nc_open_read Subroutine

public subroutine nc_open_read(filename, ncid, ierr)

Open an existing NetCDF file for reading

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename
integer, intent(out) :: ncid
integer, intent(out), optional :: ierr

Non-zero (a missing/unreadable file) when present; absent behaves as today (error stop).

Calls

proc~~nc_open_read~~CallsGraph proc~nc_open_read nc_open_read nf90_open nf90_open proc~nc_open_read->nf90_open proc~nc_check nc_check proc~nc_open_read->proc~nc_check nf90_strerror nf90_strerror proc~nc_check->nf90_strerror proc~fail fail proc~nc_check->proc~fail error error proc~fail->error proc~error_ring_push error_ring_push proc~fail->proc~error_ring_push

Called by

proc~~nc_open_read~~CalledByGraph proc~nc_open_read nc_open_read proc~load_bathymetry_into_array load_bathymetry_into_array proc~load_bathymetry_into_array->proc~nc_open_read proc~metrics_fill_from_supergrid metrics_fill_from_supergrid proc~metrics_fill_from_supergrid->proc~nc_open_read proc~ocean_restart_check_decomp ocean_restart_check_decomp proc~ocean_restart_check_decomp->proc~nc_open_read proc~ocean_restart_read_local ocean_restart_read_local proc~ocean_restart_read_local->proc~nc_open_read proc~ocean_restart_read_local->proc~ocean_restart_check_decomp proc~register_common register_common proc~register_common->proc~nc_open_read proc~seed_ts_from_zfile seed_ts_from_zfile proc~seed_ts_from_zfile->proc~nc_open_read proc~configure_ocean_metrics configure_ocean_metrics proc~configure_ocean_metrics->proc~metrics_fill_from_supergrid proc~ocean_data_input_register_2d ocean_data_input_register_2d proc~ocean_data_input_register_2d->proc~register_common proc~ocean_data_input_register_3d ocean_data_input_register_3d proc~ocean_data_input_register_3d->proc~register_common proc~ocean_data_input_register_segment_2d ocean_data_input_register_segment_2d proc~ocean_data_input_register_segment_2d->proc~register_common proc~ocean_data_input_register_segment_3d ocean_data_input_register_segment_3d proc~ocean_data_input_register_segment_3d->proc~register_common proc~ocean_state_restart_read ocean_state_restart_read proc~ocean_state_restart_read->proc~ocean_restart_read_local proc~ocean_state_seed_from_cfg ocean_state_seed_from_cfg proc~ocean_state_seed_from_cfg->proc~load_bathymetry_into_array proc~seed_zinit_overlay seed_zinit_overlay proc~ocean_state_seed_from_cfg->proc~seed_zinit_overlay proc~seed_cavity_draft seed_cavity_draft proc~ocean_state_seed_from_cfg->proc~seed_cavity_draft proc~seed_zinit_overlay->proc~seed_ts_from_zfile proc~engine_setup engine_setup proc~engine_setup->proc~configure_ocean_metrics proc~engine_setup->proc~ocean_state_restart_read proc~engine_setup->proc~ocean_state_seed_from_cfg proc~ocean_data_forcing_configure ocean_data_forcing_configure proc~engine_setup->proc~ocean_data_forcing_configure proc~ocean_data_input_load_static_2d ocean_data_input_load_static_2d proc~ocean_data_input_load_static_2d->proc~ocean_data_input_register_2d proc~register_tag register_tag proc~register_tag->proc~ocean_data_input_register_2d proc~complete_ocean_create complete_ocean_create proc~complete_ocean_create->proc~engine_setup proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_setup proc~driver_validate driver_validate proc~driver_validate->proc~engine_setup proc~ocean_data_forcing_configure->proc~register_tag proc~seed_cavity_draft->proc~ocean_data_input_load_static_2d proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean proc~rdb_ocean_create_finalize rdb_ocean_create_finalize proc~rdb_ocean_create_finalize->proc~complete_ocean_create proc~rdb_ocean_create_from_string rdb_ocean_create_from_string proc~rdb_ocean_create_from_string->proc~complete_ocean_create

Source Code

   subroutine nc_open_read(filename, ncid, ierr)
      !! Open an existing NetCDF file for reading
      character(len=*), intent(in) :: filename
      integer, intent(out) :: ncid
      integer, intent(out), optional :: ierr
         !! Non-zero (a missing/unreadable file) when present; absent
         !! behaves as today (`error stop`).

      call nc_check(nf90_open(trim(filename), nf90_nowrite, ncid), &
                    "opening "//trim(filename), ierr)

   end subroutine nc_open_read