ROMS
Loading...
Searching...
No Matches
Functions/Subroutines | Variables
mod_parallel Module Reference

Functions/Subroutines

subroutine, public allocate_parallel (ngrids)
 
subroutine, public deallocate_parallel
 
subroutine, public initialize_parallel
 

Variables

logical master
 
logical inpthread
 
logical outthread
 
integer numthreads
 
integer forksize
 
integer, dimension(:), allocatable first_tile
 
integer, dimension(:), allocatable last_tile
 
integer peocn_frst
 
integer peocn_last
 
integer tile_count = 0
 
integer block_count = 0
 
integer thread_count = 0
 
integer, dimension(:,:,:), allocatable proc
 
real(r8) ctotal
 
real(r8) total_cpu
 
real(r8), dimension(4) total_model
 
real(r8), dimension(:,:,:), allocatable cstr
 
real(r8), dimension(:,:,:), allocatable cend
 
real(r8), dimension(:,:,:), allocatable csum
 
logical lwclock = .FALSE.
 
integer mymaster = 0
 
integer fullrank = 0
 
integer taskrank = 0
 
integer myrank = 0
 
integer mythread = 0
 
integer ocn_comm_world
 
integer mp_info = MPI_INFO_NULL
 
integer, parameter mp_float = MPI_DOUBLE_PRECISION
 
integer, parameter mp_double = MPI_DOUBLE_PRECISION
 

Function/Subroutine Documentation

◆ allocate_parallel()

subroutine, public mod_parallel::allocate_parallel ( integer, intent(in) ngrids)

Definition at line 205 of file mod_parallel.F.

206!
207!=======================================================================
208! !
209! This routine allocates several variables in the module that depend !
210! on the number of nested grids. !
211! !
212!=======================================================================
213!
214 USE mod_strings, ONLY: nregion
215!
216! Imported variable declarations.
217!
218 integer, intent(in) :: Ngrids
219!
220!-----------------------------------------------------------------------
221! Allocate and initialize module variables.
222!-----------------------------------------------------------------------
223!
224!$OMP PARALLEL
225! First and last tile to process in a tiled application.
226!
227 IF (.not.allocated(first_tile)) THEN
228 allocate ( first_tile(ngrids) )
229 END IF
230 IF (.not.allocated(last_tile)) THEN
231 allocate ( last_tile(ngrids) )
232 END IF
233!
234! Time profiling variables.
235!
236 IF (.not.allocated(proc)) THEN
237 allocate ( proc(0:1,4,ngrids) )
238 proc(0:1,1:4,1:ngrids)=0
239 END IF
240
241 IF (.not.allocated(cstr)) THEN
242 allocate ( cstr(0:nregion,4,ngrids) )
243 cstr(0:nregion,1:4,1:ngrids)=0.0_r8
244 END IF
245
246 IF (.not.allocated(cend)) THEN
247 allocate ( cend(0:nregion,4,ngrids) )
248 cend(0:nregion,1:4,1:ngrids)=0.0_r8
249 END IF
250!$OMP END PARALLEL
251
252 IF (.not.allocated(csum)) THEN
253 allocate ( csum(0:nregion,4,ngrids) )
254 csum(0:nregion,1:4,1:ngrids)=0.0_r8
255 END IF
256!
257! Initialize other profiling variables.
258!
259 ctotal=0.0_r8
260 total_cpu=0.0_r8
261 total_model=0.0_r8
262
263#if defined DISTRIBUTE && defined PROFILE
264!
265! Activate wall clock switch used only in "mp_bcasts". This switch
266! is set to .FALSE. during initialization before calling "inp_par.F"
267! because the above profiling variables are allocated and initialized
268! after the value of "Ngrids" is known.
269!
270 lwclock=.true.
271#endif
272
273 RETURN
mod_strings
Definition mod_strings.F:2
mod_strings::nregion
integer, parameter nregion
Definition mod_strings.F:140

References cend, cstr, csum, ctotal, first_tile, last_tile, lwclock, mod_strings::nregion, proc, total_cpu, and total_model.

Referenced by mod_esmf_esm::read_esmconfig().

Here is the caller graph for this function:

◆ deallocate_parallel()

subroutine, public mod_parallel::deallocate_parallel

Definition at line 276 of file mod_parallel.F.

277!
278!=======================================================================
279! !
280! This routine deallocates variables in the module. !
281! !
282!=======================================================================
283!
284!-----------------------------------------------------------------------
285! Deallocate variables in module.
286!-----------------------------------------------------------------------
287!
288!$OMP PARALLEL
289 IF (allocated(first_tile)) deallocate ( first_tile )
290 IF (allocated(last_tile)) deallocate ( last_tile )
291!
292 IF (allocated(proc)) deallocate ( proc )
293 IF (allocated(cstr)) deallocate ( cstr )
294 IF (allocated(cend)) deallocate ( cend )
295!$OMP END PARALLEL
296
297 IF (allocated(csum)) deallocate ( csum )
298!
299 RETURN

References cend, cstr, csum, first_tile, last_tile, and proc.

◆ initialize_parallel()

subroutine, public mod_parallel::initialize_parallel

Definition at line 302 of file mod_parallel.F.

303!
304!=======================================================================
305! !
306! This routine initializes and spawn distribute-memory nodes. !
307! !
308!=======================================================================
309!
310 USE mod_iounits
311 USE mod_scalars
312!
313! Local variable declarations.
314!
315 integer :: i
316#ifdef DISTRIBUTE
317 integer :: MyError
318#else
319 integer :: my_numthreads, my_threadnum
320#endif
321
322#if defined _OPENMP
323!
324!-----------------------------------------------------------------------
325! Initialize shared-memory (OpenMP) configuration.
326!-----------------------------------------------------------------------
327!
328! Disable dynamic adjustment, by the run-time environment, of the
329! number of threads available to execute parallel regions.
330!
331 CALL omp_set_dynamic (.false.)
332!
333! Inquire number of threads in parallel region. Set master and I/O
334! switches.
335!
336 numthreads=my_numthreads()
337 IF (my_threadnum().eq.0) THEN
338 inpthread=.true.
339 outthread=.true.
340 ELSE
341 inpthread=.false.
342 outthread=.false.
343 END IF
344 master=.true.
345
346#elif defined DISTRIBUTE
347# ifdef MPI
348!
349!-----------------------------------------------------------------------
350! Initialize distributed-memory (MPI) configuration.
351!-----------------------------------------------------------------------
352!
353! Get the number of processes in the group associated with the world
354! communicator. Here FullRank and MyRank are the same. It is computed
355! for consistency wity concurrent applications.
356!
357 CALL mpi_comm_size (ocn_comm_world, numthreads, myerror)
358 IF (myerror.ne.0) THEN
359 WRITE (stdout,10)
360 10 FORMAT (/,' ROMS - Unable to inquire number of', &
361 & ' processors in the group.')
362 exit_flag=6
363 RETURN
364 END IF
365 CALL mpi_comm_rank (ocn_comm_world, fullrank, myerror)
366 forksize=numthreads
367!
368! Identify master, input and output threads.
369!
370# ifdef PARALLEL_IO
371 master=.false.
372 inpthread=.true.
373 outthread=.true.
374 IF (myrank.eq.mymaster) THEN
375 master=.true.
376 END IF
377# else
378 master=.false.
379 inpthread=.false.
380 outthread=.false.
381 IF (myrank.eq.mymaster) THEN
382 master=.true.
383 inpthread=.true.
384 outthread=.true.
385 END IF
386# endif
387# endif
388#else
389!
390!-----------------------------------------------------------------------
391! Initialize serial configuration.
392!-----------------------------------------------------------------------
393!
394 numthreads=my_numthreads()
395 master=.true.
396 inpthread=.true.
397 outthread=.true.
398#endif
399!
400 RETURN
my_threadnum
integer function my_threadnum()
Definition mp_routines.F:121
my_numthreads
integer function my_numthreads()
Definition mp_routines.F:89
mod_iounits
Definition mod_iounits.F:2
mod_iounits::stdout
integer stdout
Definition mod_iounits.F:195
mod_scalars
Definition mod_scalars.F:2
mod_scalars::exit_flag
integer exit_flag
Definition mod_scalars.F:559

References mod_scalars::exit_flag, forksize, fullrank, inpthread, master, my_numthreads(), my_threadnum(), mymaster, myrank, numthreads, ocn_comm_world, outthread, mod_iounits::stdout, and taskrank.

Referenced by esmf_data_mod::data_setinitializep2(), mod_esmf_esm::read_esmconfig(), roms_kernel_mod::roms_initialize(), and roms_kernel_mod::roms_initializep1().

Here is the call graph for this function:
Here is the caller graph for this function:

Variable Documentation

◆ block_count

integer mod_parallel::block_count = 0

Definition at line 90 of file mod_parallel.F.

90 integer :: block_count = 0

Referenced by wpoints_tile().

◆ cend

real(r8), dimension(:,:,:), allocatable mod_parallel::cend

Definition at line 107 of file mod_parallel.F.

107 real(r8), allocatable :: Cend(:,:,:)

Referenced by allocate_parallel(), esmf_data_mod::data_setinitializep2(), deallocate_parallel(), wclock_off(), and wclock_on().

◆ cstr

real(r8), dimension(:,:,:), allocatable mod_parallel::cstr

Definition at line 106 of file mod_parallel.F.

106 real(r8), allocatable :: Cstr(:,:,:)

Referenced by allocate_parallel(), esmf_data_mod::data_setinitializep2(), deallocate_parallel(), wclock_off(), and wclock_on().

◆ csum

real(r8), dimension(:,:,:), allocatable mod_parallel::csum

Definition at line 108 of file mod_parallel.F.

108 real(r8), allocatable :: Csum(:,:,:)

Referenced by allocate_parallel(), esmf_data_mod::data_setinitializep2(), deallocate_parallel(), wclock_off(), and wclock_on().

◆ ctotal

real(r8) mod_parallel::ctotal

Definition at line 104 of file mod_parallel.F.

104 real(r8) :: Ctotal, total_cpu, total_model(4)

Referenced by allocate_parallel(), esmf_data_mod::data_setinitializep2(), and wclock_off().

◆ first_tile

integer, dimension(:), allocatable mod_parallel::first_tile

Definition at line 62 of file mod_parallel.F.

62 integer, allocatable :: first_tile(:)

Referenced by ad_initial(), ad_main3d(), ad_nesting_mod::ad_nesting(), ad_post_initial_mod::ad_post_initial(), roms_kernel_mod::adm_initial(), allocate_parallel(), i4dvar_mod::analysis(), rbl4dvar_mod::analysis_initialize(), r4dvar_mod::background(), i4dvar_mod::background_initialize(), rbl4dvar_mod::background_initialize(), convolve_mod::convolve(), deallocate_parallel(), convolve_mod::error_covariance(), i4dvar_mod::increment(), r4dvar_mod::increment(), rbl4dvar_mod::increment(), initial(), main3d(), nesting_mod::nesting(), roms_kernel_mod::nlm_initial(), post_initial_mod::post_initial(), i4dvar_mod::posterior_analysis_initialize(), r4dvar_mod::posterior_error(), rbl4dvar_mod::posterior_error(), i4dvar_mod::prior_error(), r4dvar_mod::prior_error(), rbl4dvar_mod::prior_error(), propagator_mod::propagator_afte(), propagator_mod::propagator_fsv(), propagator_mod::propagator_fte(), propagator_mod::propagator_hop(), propagator_mod::propagator_hso(), propagator_mod::propagator_op(), propagator_mod::propagator_so(), propagator_mod::propagator_so_semi(), roms_kernel_mod::roms_initialize(), mod_arrays::roms_initialize_arrays(), roms_kernel_mod::roms_initializep1(), roms_kernel_mod::roms_run(), rp_initial(), rp_main3d(), rp_post_initial_mod::rp_post_initial(), convolve_mod::saddlec(), set_grid(), tl_initial(), tl_main3d(), tl_nesting_mod::tl_nesting(), tl_post_initial_mod::tl_post_initial(), and roms_kernel_mod::tlm_initial().

◆ forksize

integer mod_parallel::forksize

Definition at line 57 of file mod_parallel.F.

57 integer :: ForkSize

Referenced by initialize_parallel().

◆ fullrank

integer mod_parallel::fullrank = 0

Definition at line 155 of file mod_parallel.F.

155 integer :: FullRank = 0

Referenced by strings_mod::globalerror(), initialize_parallel(), strings_mod::taskerror(), wclock_off(), and wclock_on().

◆ inpthread

logical mod_parallel::inpthread

Definition at line 47 of file mod_parallel.F.

47 logical :: InpThread

Referenced by initialize_parallel(), set_pio_mod::initialize_pio(), lbc_mod::lbc_getatt::lbc_getatt_nf90(), mod_netcdf::netcdf_find_var(), mod_netcdf::netcdf_get_dim(), mod_netcdf::netcdf_get_fatt::netcdf_get_fatt_dp(), mod_netcdf::netcdf_get_fatt::netcdf_get_fatt_r8(), mod_netcdf::netcdf_get_fvar::netcdf_get_fvar_0d(), mod_netcdf::netcdf_get_fvar::netcdf_get_fvar_0dp(), mod_netcdf::netcdf_get_fvar::netcdf_get_fvar_1d(), mod_netcdf::netcdf_get_fvar::netcdf_get_fvar_1dp(), mod_netcdf::netcdf_get_fvar::netcdf_get_fvar_2d(), mod_netcdf::netcdf_get_fvar::netcdf_get_fvar_2dp(), mod_netcdf::netcdf_get_fvar::netcdf_get_fvar_3d(), mod_netcdf::netcdf_get_fvar::netcdf_get_fvar_3dp(), mod_netcdf::netcdf_get_fvar::netcdf_get_fvar_4d(), mod_netcdf::netcdf_get_ivar::netcdf_get_ivar_0d(), mod_netcdf::netcdf_get_ivar::netcdf_get_ivar_1d(), mod_netcdf::netcdf_get_ivar::netcdf_get_ivar_2d(), mod_netcdf::netcdf_get_lvar::netcdf_get_lvar_0d(), mod_netcdf::netcdf_get_lvar::netcdf_get_lvar_1d(), mod_netcdf::netcdf_get_satt(), mod_netcdf::netcdf_get_svar::netcdf_get_svar_0d(), mod_netcdf::netcdf_get_svar::netcdf_get_svar_1d(), mod_netcdf::netcdf_get_svar::netcdf_get_svar_2d(), mod_netcdf::netcdf_get_svar::netcdf_get_svar_3d(), mod_netcdf::netcdf_get_time::netcdf_get_time_0d(), mod_netcdf::netcdf_get_time::netcdf_get_time_1d(), mod_netcdf::netcdf_inq_var(), mod_netcdf::netcdf_inq_varid(), mod_netcdf::netcdf_open(), nf_fread2d_mod::nf_fread2d::nf90_fread2d(), nf_fread2d_bry_mod::nf_fread2d_bry::nf90_fread2d_bry(), nf_fread3d_mod::nf_fread3d::nf90_fread3d(), nf_fread3d_bry_mod::nf_fread3d_bry::nf90_fread3d_bry(), nf_fread4d_mod::nf_fread4d::nf90_fread4d(), and set_pio_mod::set_iodecomp().

◆ last_tile

integer, dimension(:), allocatable mod_parallel::last_tile

Definition at line 63 of file mod_parallel.F.

63 integer, allocatable :: last_tile(:)

Referenced by ad_initial(), ad_main3d(), ad_nesting_mod::ad_nesting(), ad_post_initial_mod::ad_post_initial(), roms_kernel_mod::adm_initial(), allocate_parallel(), i4dvar_mod::analysis(), rbl4dvar_mod::analysis_initialize(), r4dvar_mod::background(), i4dvar_mod::background_initialize(), rbl4dvar_mod::background_initialize(), convolve_mod::convolve(), deallocate_parallel(), convolve_mod::error_covariance(), i4dvar_mod::increment(), r4dvar_mod::increment(), rbl4dvar_mod::increment(), initial(), main3d(), nesting_mod::nesting(), roms_kernel_mod::nlm_initial(), post_initial_mod::post_initial(), i4dvar_mod::posterior_analysis_initialize(), r4dvar_mod::posterior_error(), rbl4dvar_mod::posterior_error(), i4dvar_mod::prior_error(), r4dvar_mod::prior_error(), rbl4dvar_mod::prior_error(), propagator_mod::propagator_afte(), propagator_mod::propagator_fsv(), propagator_mod::propagator_fte(), propagator_mod::propagator_hop(), propagator_mod::propagator_hso(), propagator_mod::propagator_op(), propagator_mod::propagator_so(), propagator_mod::propagator_so_semi(), roms_kernel_mod::roms_initialize(), mod_arrays::roms_initialize_arrays(), roms_kernel_mod::roms_initializep1(), roms_kernel_mod::roms_run(), rp_initial(), rp_main3d(), rp_post_initial_mod::rp_post_initial(), convolve_mod::saddlec(), set_grid(), tl_initial(), tl_main3d(), tl_nesting_mod::tl_nesting(), tl_post_initial_mod::tl_post_initial(), and roms_kernel_mod::tlm_initial().

◆ lwclock

logical mod_parallel::lwclock = .FALSE.

Definition at line 119 of file mod_parallel.F.

119 logical :: Lwclock = .false.

Referenced by allocate_parallel(), esmf_data_mod::data_setinitializep2(), distribute_mod::mp_bcasti::mp_bcasti_0d(), and distribute_mod::mp_bcasts::mp_bcasts_0d().

◆ master

logical mod_parallel::master

Definition at line 40 of file mod_parallel.F.

40 logical :: Master

Referenced by ad_nesting_mod::ad_check_massflux(), ad_def_his_mod::ad_def_his(), ad_def_his_mod::ad_def_his_nf90(), ad_def_his_mod::ad_def_his_pio(), ad_diag_mod::ad_diag_tile(), dotproduct_mod::ad_dotproduct_tile(), ad_nesting_mod::ad_fine2coarse(), ad_nesting_mod::ad_get_refine(), ad_htobs_mod::ad_htobs_tile(), ad_initial(), ad_misfit_mod::ad_misfit_tile(), ad_output(), ad_pack_tile(), ad_nesting_mod::ad_put_refine2d(), ad_nesting_mod::ad_put_refine3d(), ad_step2d_mod::ad_step2d_tile(), ad_step2d_mod::ad_step2d_tile(), ad_wrt_his_mod::ad_wrt_his(), ad_wrt_his_mod::ad_wrt_his_nf90(), ad_wrt_his_mod::ad_wrt_his_pio(), roms_kernel_mod::adm_initial(), adsen_force_mod::adsen_force_tile(), analytical_mod::ana_perturb_tile(), analytical_mod::ana_psource_tile(), r4dvar_mod::analysis(), rbl4dvar_mod::analysis(), i4dvar_mod::background(), r4dvar_mod::background(), rbl4dvar_mod::background(), bbl_output_mod::bbl_def_nf90(), bbl_output_mod::bbl_def_pio(), bbl_output_mod::bbl_def_station_nf90(), bbl_output_mod::bbl_def_station_pio(), bbl_output_mod::bbl_wrt_nf90(), bbl_output_mod::bbl_wrt_pio(), zeta_balance_mod::biconj_tile(), cgradient_mod::cg_read_cgradient(), congrad_mod::cg_read_congrad(), rpcg_lanczos_mod::cg_read_rpcg(), cgradient_mod::cg_write_cgradient(), congrad_mod::cg_write_congrad(), rpcg_lanczos_mod::cg_write_rpcg(), cgradient_mod::cgradient_tile(), check_file(), nesting_mod::check_massflux(), mod_sources::check_sources(), checkadj(), checkdefs(), checkerror(), checkvars_mod::checkvars::checkvars_nf90(), checkvars_mod::checkvars::checkvars_pio(), close_io_mod::close_out(), get_metadata_mod::cmeps_metadata(), congrad_mod::congrad(), get_metadata_mod::coupling_metadata(), def_avg_mod::def_avg(), def_avg_mod::def_avg_nf90(), def_avg_mod::def_avg_pio(), def_dai_mod::def_dai(), def_dai_mod::def_dai_nf90(), def_dai_mod::def_dai_pio(), def_diags_mod::def_diags(), def_diags_mod::def_diags_nf90(), def_diags_mod::def_diags_pio(), def_dim_mod::def_dim::def_dim_nf90(), def_dim_mod::def_dim::def_dim_pio(), def_error_mod::def_error(), def_error_mod::def_error_nf90(), def_error_mod::def_error_pio(), def_floats_mod::def_floats(), def_floats_mod::def_floats_nf90(), def_floats_mod::def_floats_pio(), def_gst_mod::def_gst(), def_gst_mod::def_gst_nf90(), def_gst_mod::def_gst_pio(), def_hessian_mod::def_hessian(), def_hessian_mod::def_hessian_nf90(), def_hessian_mod::def_hessian_pio(), def_his_mod::def_his(), def_his_mod::def_his_nf90(), def_his_mod::def_his_pio(), def_impulse_mod::def_impulse(), def_impulse_mod::def_impulse_nf90(), def_impulse_mod::def_impulse_pio(), def_info_mod::def_info::def_info_nf90(), def_info_mod::def_info::def_info_pio(), def_ini_mod::def_ini(), def_ini_mod::def_ini_nf90(), def_ini_mod::def_ini_pio(), def_lanczos_mod::def_lanczos(), def_lanczos_mod::def_lanczos_nf90(), def_lanczos_mod::def_lanczos_pio(), def_mod_mod::def_mod(), def_mod_mod::def_mod_nf90(), def_mod_mod::def_mod_pio(), def_norm_mod::def_norm(), def_norm_mod::def_norm_nf90(), def_norm_mod::def_norm_pio(), def_quick_mod::def_quick(), def_quick_mod::def_quick_nf90(), def_quick_mod::def_quick_pio(), def_rst_mod::def_rst(), def_rst_mod::def_rst_nf90(), def_rst_mod::def_rst_pio(), def_state_mod::def_state(), def_state_mod::def_state_nf90(), def_state_mod::def_state_pio(), def_station_mod::def_station(), def_station_mod::def_station_nf90(), def_station_mod::def_station_pio(), def_tides_mod::def_tides(), def_tides_mod::def_tides_nf90(), def_tides_mod::def_tides_pio(), def_var_mod::def_var::def_var_nf90(), def_var_mod::def_var::def_var_pio(), destroy_mod::destroy::destroy_1d_dp(), destroy_mod::destroy::destroy_1d_i(), destroy_mod::destroy::destroy_1d_l(), destroy_mod::destroy::destroy_1d_r8(), destroy_mod::destroy::destroy_2d_dp(), destroy_mod::destroy::destroy_2d_r8(), destroy_mod::destroy::destroy_3d_dp(), destroy_mod::destroy::destroy_3d_r8(), destroy_mod::destroy::destroy_4d_dp(), destroy_mod::destroy::destroy_4d_r8(), destroy_mod::destroy::destroy_5d_dp(), destroy_mod::destroy::destroy_5d_r8(), diag_mod::diag_tile(), convolve_mod::error_covariance(), inp_decode_mod::find_file(), nesting_mod::fine2coarse(), forcing_mod::forcing_tile(), strings_mod::founderror(), get_2dfld(), get_2dfld_nf90(), get_2dfld_pio(), get_2dfldr(), get_2dfldr_nf90(), get_2dfldr_pio(), get_3dfld(), get_3dfld_nf90(), get_3dfld_pio(), get_3dfldr(), get_3dfldr_nf90(), get_3dfldr_pio(), get_cycle_mod::get_cycle::get_cycle_nf90(), get_cycle_mod::get_cycle::get_cycle_pio(), get_env_mod::get_env::get_env_i(), get_env_mod::get_env::get_env_s(), get_grid_mod::get_grid(), get_grid_mod::get_grid_nf90(), get_grid_mod::get_grid_pio(), get_gst_mod::get_gst(), get_gst_mod::get_gst_nf90(), get_gst_mod::get_gst_pio(), get_idata(), get_ngfld(), get_ngfld_nf90(), get_ngfld_pio(), get_ngfldr(), get_ngfldr_nf90(), get_ngfldr_pio(), get_nudgcoef_mod::get_nudgcoef(), get_nudgcoef_mod::get_nudgcoef_nf90(), get_nudgcoef_mod::get_nudgcoef_pio(), nesting_mod::get_refine(), get_state_mod::get_state(), get_state_mod::get_state_nf90(), get_state_mod::get_state_pio(), get_varcoords_mod::get_varcoords::get_varcoords_nf90(), get_varcoords_mod::get_varcoords::get_varcoords_pio(), get_wetdry_mod::get_wetdry(), get_wetdry_mod::get_wetdry_nf90(), get_wetdry_mod::get_wetdry_pio(), strings_mod::globalerror(), cgradient_mod::hessian_evecs(), i4dvar_mod::increment(), r4dvar_mod::increment(), rbl4dvar_mod::increment(), ini_adjust_mod::ini_perturb_tile(), initial(), mod_fourdvar::initialize_fourdvar(), initialize_parallel(), set_pio_mod::initialize_pio(), inp_par_mod::inp_par(), inquiry_mod::inquiry::inquiry_nf90(), inquiry_mod::inquiry::inquiry_pio(), cgradient_mod::lanczos(), posterior_mod::lanczos(), lbc_mod::lbc_getatt::lbc_getatt_nf90(), lbc_mod::lbc_getatt::lbc_getatt_pio(), lbc_mod::lbc_putatt::lbc_putatt_nf90(), lbc_mod::lbc_putatt::lbc_putatt_pio(), inp_decode_mod::load_lbc(), inp_decode_mod::load_s1d::load_s1d1(), inp_decode_mod::load_s1d::load_s1d2(), main3d(), memory(), metrics_mod::metrics_tile(), distribute_mod::mp_aggregate2d(), distribute_mod::mp_aggregate3d(), distribute_mod::mp_assemble::mp_assemblef_1d(), distribute_mod::mp_assemble::mp_assemblef_2d(), distribute_mod::mp_assemble::mp_assemblef_3d(), distribute_mod::mp_assemble::mp_assemblei_1d(), distribute_mod::mp_assemble::mp_assemblei_2d(), distribute_mod::mp_dump(), multifile_info_s1d(), multifile_info_s2d(), mod_netcdf::netcdf_check_dim(), mod_netcdf::netcdf_check_var(), mod_netcdf::netcdf_create(), mod_netcdf::netcdf_enddef(), mod_netcdf::netcdf_get_fatt::netcdf_get_fatt_dp(), mod_netcdf::netcdf_get_fatt::netcdf_get_fatt_r8(), mod_netcdf::netcdf_get_satt(), mod_netcdf::netcdf_inq_var(), mod_netcdf::netcdf_open(), mod_netcdf::netcdf_redef(), dotproduct_mod::nl_dotproduct_tile(), roms_kernel_mod::nlm_initial(), nlm_step_sequence(), normalization_mod::normalization_tile(), ntimesteps(), obs_initial_mod::obs_initial(), obs_initial_mod::obs_initial_nf90(), obs_initial_mod::obs_initial_pio(), obs_read_mod::obs_read(), obs_read_mod::obs_read_nf90(), obs_read_mod::obs_read_pio(), obs_write_mod::obs_write(), output(), mod_pio_netcdf::pio_netcdf_check_dim(), mod_pio_netcdf::pio_netcdf_check_var(), mod_pio_netcdf::pio_netcdf_close(), mod_pio_netcdf::pio_netcdf_copy_att(), mod_pio_netcdf::pio_netcdf_create(), mod_pio_netcdf::pio_netcdf_enddef(), mod_pio_netcdf::pio_netcdf_get_fatt::pio_netcdf_get_fatt_dp(), mod_pio_netcdf::pio_netcdf_get_fatt::pio_netcdf_get_fatt_r8(), mod_pio_netcdf::pio_netcdf_get_fvar::pio_netcdf_get_fvar_0d(), mod_pio_netcdf::pio_netcdf_get_fvar::pio_netcdf_get_fvar_0dp(), mod_pio_netcdf::pio_netcdf_get_fvar::pio_netcdf_get_fvar_1d(), mod_pio_netcdf::pio_netcdf_get_fvar::pio_netcdf_get_fvar_1dp(), mod_pio_netcdf::pio_netcdf_get_fvar::pio_netcdf_get_fvar_2d(), mod_pio_netcdf::pio_netcdf_get_fvar::pio_netcdf_get_fvar_2dp(), mod_pio_netcdf::pio_netcdf_get_fvar::pio_netcdf_get_fvar_3d(), mod_pio_netcdf::pio_netcdf_get_fvar::pio_netcdf_get_fvar_3dp(), mod_pio_netcdf::pio_netcdf_get_fvar::pio_netcdf_get_fvar_4d(), mod_pio_netcdf::pio_netcdf_get_ivar::pio_netcdf_get_ivar_0d(), mod_pio_netcdf::pio_netcdf_get_ivar::pio_netcdf_get_ivar_1d(), mod_pio_netcdf::pio_netcdf_get_ivar::pio_netcdf_get_ivar_2d(), mod_pio_netcdf::pio_netcdf_get_lvar::pio_netcdf_get_lvar_0d(), mod_pio_netcdf::pio_netcdf_get_lvar::pio_netcdf_get_lvar_1d(), mod_pio_netcdf::pio_netcdf_get_satt::pio_netcdf_get_satt_g(), mod_pio_netcdf::pio_netcdf_get_satt::pio_netcdf_get_satt_v(), mod_pio_netcdf::pio_netcdf_get_svar::pio_netcdf_get_svar_0d(), mod_pio_netcdf::pio_netcdf_get_svar::pio_netcdf_get_svar_1d(), mod_pio_netcdf::pio_netcdf_get_svar::pio_netcdf_get_svar_2d(), mod_pio_netcdf::pio_netcdf_get_svar::pio_netcdf_get_svar_3d(), mod_pio_netcdf::pio_netcdf_inq_var(), mod_pio_netcdf::pio_netcdf_inq_varid(), mod_pio_netcdf::pio_netcdf_open(), mod_pio_netcdf::pio_netcdf_put_fvar::pio_netcdf_put_fvar_0d(), mod_pio_netcdf::pio_netcdf_put_fvar::pio_netcdf_put_fvar_0dp(), mod_pio_netcdf::pio_netcdf_put_fvar::pio_netcdf_put_fvar_1d(), mod_pio_netcdf::pio_netcdf_put_fvar::pio_netcdf_put_fvar_1dp(), mod_pio_netcdf::pio_netcdf_put_fvar::pio_netcdf_put_fvar_2d(), mod_pio_netcdf::pio_netcdf_put_fvar::pio_netcdf_put_fvar_2dp(), mod_pio_netcdf::pio_netcdf_put_fvar::pio_netcdf_put_fvar_3d(), mod_pio_netcdf::pio_netcdf_put_fvar::pio_netcdf_put_fvar_3dp(), mod_pio_netcdf::pio_netcdf_put_fvar::pio_netcdf_put_fvar_4d(), mod_pio_netcdf::pio_netcdf_put_ivar::pio_netcdf_put_ivar_0d(), mod_pio_netcdf::pio_netcdf_put_ivar::pio_netcdf_put_ivar_1d(), mod_pio_netcdf::pio_netcdf_put_ivar::pio_netcdf_put_ivar_2d(), mod_pio_netcdf::pio_netcdf_put_lvar::pio_netcdf_put_lvar_0d(), mod_pio_netcdf::pio_netcdf_put_lvar::pio_netcdf_put_lvar_1d(), mod_pio_netcdf::pio_netcdf_put_lvar::pio_netcdf_put_lvar_2d(), mod_pio_netcdf::pio_netcdf_put_svar::pio_netcdf_put_svar_0d(), mod_pio_netcdf::pio_netcdf_put_svar::pio_netcdf_put_svar_1d(), mod_pio_netcdf::pio_netcdf_put_svar::pio_netcdf_put_svar_2d(), mod_pio_netcdf::pio_netcdf_put_svar::pio_netcdf_put_svar_3d(), mod_pio_netcdf::pio_netcdf_redef(), i4dvar_mod::posterior_analysis(), posterior_mod::posterior_eofs(), r4dvar_mod::posterior_error(), rbl4dvar_mod::posterior_error(), posterior_mod::posterior_tile(), posterior_var_mod::posterior_var_tile(), cgradient_mod::precond(), propagator_mod::propagator_afte(), propagator_mod::propagator_fsv(), propagator_mod::propagator_fte(), propagator_mod::propagator_hop(), propagator_mod::propagator_hso(), propagator_mod::propagator_op(), propagator_mod::propagator_so(), propagator_mod::propagator_so_semi(), nesting_mod::put_refine2d(), nesting_mod::put_refine3d(), r_norm2(), normalization_mod::randomization_tile(), read_couplepar(), regrid_mod::regrid_nf90(), regrid_mod::regrid_pio(), array_modes_mod::rep_check(), array_modes_mod::rep_clip(), array_modes_mod::rep_eigen(), rep_matrix(), roms_kernel_mod::roms_finalize(), roms_horiz_interp_2d(), roms_horiz_interp_3d(), roms_kernel_mod::roms_initialize(), roms_kernel_mod::roms_initializep1(), roms_kernel_mod::roms_run(), roms_kernel_mod::roms_run(), cmeps_roms_mod::roms_setinitializep1(), rp_def_ini_mod::rp_def_ini(), rp_def_ini_mod::rp_def_ini_nf90(), rp_def_ini_mod::rp_def_ini_pio(), rp_diag_mod::rp_diag_tile(), rp_initial(), rp_output(), rp_step2d_mod::rp_step2d_tile(), rp_step2d_mod::rp_step2d_tile(), rp_wrt_ini_mod::rp_wrt_ini(), rp_wrt_ini_mod::rp_wrt_ini_nf90(), rp_wrt_ini_mod::rp_wrt_ini_pio(), rpcg_lanczos_mod::rpcg_lanczos(), sediment_output_mod::sediment_def_nf90(), sediment_output_mod::sediment_def_pio(), sediment_output_mod::sediment_def_station_nf90(), sediment_output_mod::sediment_def_station_pio(), sediment_output_mod::sediment_wrt_nf90(), sediment_output_mod::sediment_wrt_pio(), set_2dfld_mod::set_2dfld_tile(), set_2dfldr_mod::set_2dfldr_tile(), set_3dfld_mod::set_3dfld_tile(), set_3dfldr_mod::set_3dfldr_tile(), set_contact_mod::set_contact(), set_contact_mod::set_contact_nf90(), set_contact_mod::set_contact_pio(), set_pio_mod::set_iodecomp(), set_ngfld(), set_ngfldr(), set_scoord(), set_weights(), so_semi_red(), so_semi_white(), bbl_mod::ssw_bbl_tile(), state_join_mod::state_join(), state_join_mod::state_join_nf90(), state_join_mod::state_join_pio(), state_read_mod::state_read(), state_read_mod::state_read_nf90(), state_read_mod::state_read_pio(), stats_modobs_mod::stats_modobs(), stats_modobs_mod::stats_modobs_nf90(), stats_modobs_mod::stats_modobs_pio(), step2d_mod::step2d_tile(), step_floats_mod::step_floats_tile(), stiffness_mod::stiffness_tile(), tadv_mod::tadv_putatt::tadv_putatt_nf90(), tadv_mod::tadv_putatt::tadv_putatt_pio(), tadv_mod::tadv_report(), strings_mod::taskerror(), time_corr_mod::time_corr(), time_corr_mod::time_corr_nf90(), time_corr_mod::time_corr_pio(), tl_nesting_mod::tl_check_massflux(), tl_def_his_mod::tl_def_his(), tl_def_his_mod::tl_def_his_nf90(), tl_def_his_mod::tl_def_his_pio(), tl_def_ini_mod::tl_def_ini(), tl_def_ini_mod::tl_def_ini_nf90(), tl_def_ini_mod::tl_def_ini_pio(), tl_diag_mod::tl_diag_tile(), dotproduct_mod::tl_dotproduct_tile(), tl_nesting_mod::tl_fine2coarse(), tl_forcing_mod::tl_forcing_tile(), tl_nesting_mod::tl_get_refine(), ini_adjust_mod::tl_ini_perturb_tile(), tl_initial(), inner2state_mod::tl_inner2state_tile(), tl_main3d(), tl_output(), tl_nesting_mod::tl_put_refine2d(), tl_nesting_mod::tl_put_refine3d(), tl_rpcg_lanczos(), tl_step2d_mod::tl_step2d_tile(), tl_step2d_mod::tl_step2d_tile(), tl_wrt_his_mod::tl_wrt_his(), tl_wrt_his_mod::tl_wrt_his_nf90(), tl_wrt_his_mod::tl_wrt_his_pio(), tl_wrt_ini_mod::tl_wrt_ini(), tl_wrt_ini_mod::tl_wrt_ini_nf90(), tl_wrt_ini_mod::tl_wrt_ini_pio(), roms_kernel_mod::tlm_initial(), vwalk_floats_mod::vwalk_floats_tile(), wclock_off(), wclock_on(), white_noise_mod::white_noise1d(), white_noise_mod::white_noise2d(), white_noise_mod::white_noise2d_bry(), white_noise_mod::white_noise3d(), white_noise_mod::white_noise3d_bry(), wpoints_tile(), wrt_aug_imp_mod::wrt_aug_imp(), wrt_aug_imp_mod::wrt_aug_imp_nf90(), wrt_aug_imp_mod::wrt_aug_imp_pio(), wrt_avg_mod::wrt_avg(), wrt_avg_mod::wrt_avg_nf90(), wrt_avg_mod::wrt_avg_pio(), wrt_dai_mod::wrt_dai(), wrt_dai_mod::wrt_dai_nf90(), wrt_dai_mod::wrt_dai_pio(), wrt_diags_mod::wrt_diags(), wrt_diags_mod::wrt_diags_nf90(), wrt_diags_mod::wrt_diags_pio(), wrt_error_mod::wrt_error(), wrt_error_mod::wrt_error_nf90(), wrt_error_mod::wrt_error_pio(), wrt_evolved_mod::wrt_evolved(), wrt_evolved_mod::wrt_evolved_nf90(), wrt_evolved_mod::wrt_evolved_pio(), wrt_floats_mod::wrt_floats(), wrt_ini_mod::wrt_frc(), wrt_ini_mod::wrt_frc_ad(), wrt_ini_mod::wrt_frc_ad_nf90(), wrt_ini_mod::wrt_frc_ad_pio(), wrt_ini_mod::wrt_frc_nf90(), wrt_ini_mod::wrt_frc_pio(), wrt_gst_mod::wrt_gst(), wrt_gst_mod::wrt_gst_nf90(), wrt_gst_mod::wrt_gst_pio(), wrt_hessian_mod::wrt_hessian(), wrt_hessian_mod::wrt_hessian_nf90(), wrt_hessian_mod::wrt_hessian_pio(), wrt_his_mod::wrt_his(), wrt_his_mod::wrt_his_nf90(), wrt_his_mod::wrt_his_pio(), wrt_impulse_mod::wrt_impulse(), wrt_impulse_mod::wrt_impulse_nf90(), wrt_impulse_mod::wrt_impulse_pio(), wrt_info_mod::wrt_info::wrt_info_nf90(), wrt_info_mod::wrt_info::wrt_info_pio(), wrt_ini_mod::wrt_ini(), wrt_ini_mod::wrt_ini_nf90(), wrt_ini_mod::wrt_ini_pio(), normalization_mod::wrt_norm2d_nf90(), normalization_mod::wrt_norm2d_pio(), normalization_mod::wrt_norm3d_nf90(), normalization_mod::wrt_norm3d_pio(), wrt_quick_mod::wrt_quick(), wrt_quick_mod::wrt_quick_nf90(), wrt_quick_mod::wrt_quick_pio(), wrt_rst_mod::wrt_rst(), wrt_rst_mod::wrt_rst_nf90(), wrt_rst_mod::wrt_rst_pio(), wrt_state_mod::wrt_state(), wrt_state_mod::wrt_state_nf90(), wrt_state_mod::wrt_state_pio(), wrt_station_mod::wrt_station(), wrt_tides_mod::wrt_tides(), wrt_tides_mod::wrt_tides_nf90(), and wrt_tides_mod::wrt_tides_pio().

◆ mp_double

integer, parameter mod_parallel::mp_double = MPI_DOUBLE_PRECISION

Definition at line 199 of file mod_parallel.F.

199 integer, parameter :: MP_DOUBLE = mpi_double_precision

Referenced by distribute_mod::mp_bcastf::mp_bcastf_0dp(), distribute_mod::mp_bcastf::mp_bcastf_1dp(), distribute_mod::mp_reduce::mp_reduce_0dp(), and distribute_mod::mp_reduce::mp_reduce_1dp().

◆ mp_float

integer, parameter mod_parallel::mp_float = MPI_DOUBLE_PRECISION

Definition at line 189 of file mod_parallel.F.

189 integer, parameter :: MP_FLOAT = mpi_double_precision

Referenced by mp_exchange_mod::ad_mp_exchange2d(), mp_exchange_mod::ad_mp_exchange2d_bry(), mp_exchange_mod::ad_mp_exchange3d(), mp_exchange_mod::ad_mp_exchange3d_bry(), mp_exchange_mod::ad_mp_exchange4d(), distribute_mod::mp_aggregate2d(), distribute_mod::mp_aggregate3d(), distribute_mod::mp_assemble::mp_assemblef_1d(), distribute_mod::mp_assemble::mp_assemblef_2d(), distribute_mod::mp_assemble::mp_assemblef_3d(), distribute_mod::mp_bcastf::mp_bcastf_0d(), distribute_mod::mp_bcastf::mp_bcastf_1d(), distribute_mod::mp_bcastf::mp_bcastf_2d(), distribute_mod::mp_bcastf::mp_bcastf_2dp(), distribute_mod::mp_bcastf::mp_bcastf_3d(), distribute_mod::mp_bcastf::mp_bcastf_3dp(), distribute_mod::mp_bcastf::mp_bcastf_4d(), distribute_mod::mp_boundary(), distribute_mod::mp_collect::mp_collect_f(), mp_exchange_mod::mp_exchange2d(), mp_exchange_mod::mp_exchange2d_bry(), mp_exchange_mod::mp_exchange3d(), mp_exchange_mod::mp_exchange3d_bry(), mp_exchange_mod::mp_exchange4d(), distribute_mod::mp_gather2d(), distribute_mod::mp_gather3d(), distribute_mod::mp_gather_state(), distribute_mod::mp_ncread1d(), distribute_mod::mp_ncread2d(), distribute_mod::mp_ncwrite1d(), distribute_mod::mp_ncwrite2d(), distribute_mod::mp_reduce::mp_reduce_0d(), distribute_mod::mp_reduce::mp_reduce_1d(), distribute_mod::mp_scatter2d(), distribute_mod::mp_scatter3d(), and distribute_mod::mp_scatter_state().

◆ mp_info

integer mod_parallel::mp_info = MPI_INFO_NULL

Definition at line 182 of file mod_parallel.F.

182 integer :: MP_INFO = mpi_info_null

Referenced by mod_netcdf::netcdf_create(), and mod_netcdf::netcdf_open().

◆ mymaster

integer mod_parallel::mymaster = 0

Definition at line 124 of file mod_parallel.F.

124 integer :: MyMaster = 0

Referenced by ad_diag_mod::ad_diag_tile(), diag_mod::diag_tile(), initialize_parallel(), set_pio_mod::initialize_pio(), distribute_mod::mp_assemble::mp_assemblef_1d(), distribute_mod::mp_assemble::mp_assemblef_2d(), distribute_mod::mp_assemble::mp_assemblef_3d(), distribute_mod::mp_assemble::mp_assemblei_1d(), distribute_mod::mp_assemble::mp_assemblei_2d(), distribute_mod::mp_bcast_struc(), distribute_mod::mp_bcastf::mp_bcastf_0d(), distribute_mod::mp_bcastf::mp_bcastf_0dp(), distribute_mod::mp_bcastf::mp_bcastf_1d(), distribute_mod::mp_bcastf::mp_bcastf_1dp(), distribute_mod::mp_bcastf::mp_bcastf_2d(), distribute_mod::mp_bcastf::mp_bcastf_2dp(), distribute_mod::mp_bcastf::mp_bcastf_3d(), distribute_mod::mp_bcastf::mp_bcastf_3dp(), distribute_mod::mp_bcastf::mp_bcastf_4d(), distribute_mod::mp_bcasti::mp_bcasti_0d(), distribute_mod::mp_bcasti::mp_bcasti_1d(), distribute_mod::mp_bcasti::mp_bcasti_2d(), distribute_mod::mp_bcastl::mp_bcastl_0d(), distribute_mod::mp_bcastl::mp_bcastl_1d(), distribute_mod::mp_bcastl::mp_bcastl_2d(), distribute_mod::mp_bcasts::mp_bcasts_0d(), distribute_mod::mp_bcasts::mp_bcasts_1d(), distribute_mod::mp_bcasts::mp_bcasts_2d(), distribute_mod::mp_bcasts::mp_bcasts_3d(), distribute_mod::mp_collect::mp_collect_f(), distribute_mod::mp_collect::mp_collect_i(), distribute_mod::mp_gather2d(), distribute_mod::mp_gather3d(), distribute_mod::mp_gather_state(), distribute_mod::mp_ncread1d(), distribute_mod::mp_ncread2d(), distribute_mod::mp_ncwrite1d(), distribute_mod::mp_ncwrite2d(), distribute_mod::mp_reduce::mp_reduce_0d(), distribute_mod::mp_reduce::mp_reduce_0dp(), distribute_mod::mp_reduce::mp_reduce_1d(), distribute_mod::mp_reduce::mp_reduce_1dp(), distribute_mod::mp_reduce::mp_reduce_i8(), distribute_mod::mp_scatter2d(), distribute_mod::mp_scatter3d(), distribute_mod::mp_scatter_state(), rp_diag_mod::rp_diag_tile(), set_pio_mod::set_iodecomp(), stdout_mod::stdout_unit(), and tl_diag_mod::tl_diag_tile().

◆ myrank

integer mod_parallel::myrank = 0

Definition at line 157 of file mod_parallel.F.

157 integer :: MyRank = 0

Referenced by ad_initial(), mp_exchange_mod::ad_mp_exchange2d(), mp_exchange_mod::ad_mp_exchange2d_bry(), mp_exchange_mod::ad_mp_exchange3d(), mp_exchange_mod::ad_mp_exchange3d_bry(), mp_exchange_mod::ad_mp_exchange4d(), ad_output(), mod_coupler::allocate_coupler(), i4dvar_mod::analysis(), i4dvar_mod::background(), r4dvar_mod::background(), i4dvar_mod::background_initialize(), rbl4dvar_mod::background_initialize(), esmf_data_mod::data_setinitializep2(), convolve_mod::error_covariance(), set_pio_mod::field_iodecomp(), get_gst_mod::get_gst_pio(), get_state_mod::get_state(), get_state_mod::get_state_nf90(), get_state_mod::get_state_pio(), strings_mod::globalerror(), grid_coords(), cgradient_mod::hessian_evecs(), i4dvar_mod::increment(), r4dvar_mod::increment(), rbl4dvar_mod::increment(), initial(), mod_fourdvar::initialize_fourdvar(), initialize_parallel(), set_pio_mod::initialize_pio(), mct_driver(), memory(), distribute_mod::mp_aggregate2d(), distribute_mod::mp_aggregate3d(), distribute_mod::mp_assemble::mp_assemblef_1d(), distribute_mod::mp_assemble::mp_assemblef_2d(), distribute_mod::mp_assemble::mp_assemblef_3d(), distribute_mod::mp_assemble::mp_assemblei_1d(), distribute_mod::mp_assemble::mp_assemblei_2d(), distribute_mod::mp_bcast_struc(), distribute_mod::mp_bcastf::mp_bcastf_0d(), distribute_mod::mp_bcastf::mp_bcastf_0dp(), distribute_mod::mp_bcastf::mp_bcastf_1d(), distribute_mod::mp_bcastf::mp_bcastf_1dp(), distribute_mod::mp_bcastf::mp_bcastf_2d(), distribute_mod::mp_bcastf::mp_bcastf_2dp(), distribute_mod::mp_bcastf::mp_bcastf_3d(), distribute_mod::mp_bcastf::mp_bcastf_3dp(), distribute_mod::mp_bcastf::mp_bcastf_4d(), distribute_mod::mp_bcasti::mp_bcasti_0d(), distribute_mod::mp_bcasti::mp_bcasti_1d(), distribute_mod::mp_bcasti::mp_bcasti_2d(), distribute_mod::mp_bcastl::mp_bcastl_0d(), distribute_mod::mp_bcastl::mp_bcastl_1d(), distribute_mod::mp_bcastl::mp_bcastl_2d(), distribute_mod::mp_bcasts::mp_bcasts_0d(), distribute_mod::mp_bcasts::mp_bcasts_1d(), distribute_mod::mp_bcasts::mp_bcasts_2d(), distribute_mod::mp_bcasts::mp_bcasts_3d(), distribute_mod::mp_boundary(), distribute_mod::mp_collect::mp_collect_f(), distribute_mod::mp_collect::mp_collect_i(), distribute_mod::mp_dump(), mp_exchange_mod::mp_exchange2d(), mp_exchange_mod::mp_exchange2d_bry(), mp_exchange_mod::mp_exchange3d(), mp_exchange_mod::mp_exchange3d_bry(), mp_exchange_mod::mp_exchange4d(), distribute_mod::mp_gather2d(), distribute_mod::mp_gather3d(), distribute_mod::mp_gather_state(), distribute_mod::mp_ncread1d(), distribute_mod::mp_ncread2d(), distribute_mod::mp_ncwrite1d(), distribute_mod::mp_ncwrite2d(), distribute_mod::mp_reduce2(), distribute_mod::mp_reduce::mp_reduce_0d(), distribute_mod::mp_reduce::mp_reduce_0dp(), distribute_mod::mp_reduce::mp_reduce_1d(), distribute_mod::mp_reduce::mp_reduce_1dp(), distribute_mod::mp_reduce::mp_reduce_i8(), distribute_mod::mp_scatter2d(), distribute_mod::mp_scatter3d(), distribute_mod::mp_scatter_state(), myroms(), nf_fread2d_mod::nf_fread2d::nf90_fread2d(), nf_fread2d_bry_mod::nf_fread2d_bry::nf90_fread2d_bry(), nf_fread3d_mod::nf_fread3d::nf90_fread3d(), nf_fread3d_bry_mod::nf_fread3d_bry::nf90_fread3d_bry(), nf_fread4d_mod::nf_fread4d::nf90_fread4d(), nf_fwrite2d_mod::nf_fwrite2d::nf90_fwrite2d(), nf_fwrite2d_bry_mod::nf_fwrite2d_bry::nf90_fwrite2d_bry(), nf_fwrite3d_mod::nf_fwrite3d::nf90_fwrite3d(), nf_fwrite3d_bry_mod::nf_fwrite3d_bry::nf90_fwrite3d_bry(), nf_fwrite4d_mod::nf_fwrite4d::nf90_fwrite4d(), obc_volcons_mod::obc_flux_tile(), obs_read_mod::obs_read_nf90(), obs_read_mod::obs_read_pio(), output(), nf_fread2d_mod::nf_fread2d::pio_fread2d(), nf_fread2d_bry_mod::nf_fread2d_bry::pio_fread2d_bry(), nf_fread3d_mod::nf_fread3d::pio_fread3d(), nf_fread3d_bry_mod::nf_fread3d_bry::pio_fread3d_bry(), nf_fread4d_mod::nf_fread4d::pio_fread4d(), nf_fwrite2d_mod::nf_fwrite2d::pio_fwrite2d(), nf_fwrite2d_bry_mod::nf_fwrite2d_bry::pio_fwrite2d_bry(), nf_fwrite3d_mod::nf_fwrite3d::pio_fwrite3d(), nf_fwrite3d_bry_mod::nf_fwrite3d_bry::pio_fwrite3d_bry(), nf_fwrite4d_mod::nf_fwrite4d::pio_fwrite4d(), posterior_mod::posterior_eofs(), r4dvar_mod::posterior_error(), rbl4dvar_mod::posterior_error(), read_couplepar(), mod_esmf_esm::read_esmconfig(), read_icepar(), regrid_mod::regrid_nf90(), regrid_mod::regrid_pio(), mod_arrays::roms_allocate_arrays(), roms_kernel_mod::roms_finalize(), roms_kernel_mod::roms_initialize(), roms_kernel_mod::roms_initializep1(), roms_kernel_mod::roms_run(), roms_kernel_mod::roms_run(), rp_initial(), rp_output(), set_grid(), set_pio_mod::set_iodecomp(), set_pio_mod::state_iodecomp(), step_floats_mod::step_floats_tile(), strings_mod::taskerror(), mp_exchange_mod::tile_neighbors(), tile_indices_mod::tile_obs_bounds(), tl_initial(), tl_output(), wclock_off(), wclock_on(), wpoints_tile(), wrt_gst_mod::wrt_gst_nf90(), and wrt_gst_mod::wrt_gst_pio().

◆ mythread

integer mod_parallel::mythread = 0

Definition at line 158 of file mod_parallel.F.

158 integer :: MyThread = 0

Referenced by ad_main3d(), main3d(), roms_kernel_mod::roms_initialize(), roms_kernel_mod::roms_initializep1(), tl_main3d(), wclock_off(), and wclock_on().

◆ numthreads

integer mod_parallel::numthreads

Definition at line 55 of file mod_parallel.F.

55 integer :: numthreads

Referenced by ad_main3d(), get_gst_mod::get_gst_nf90(), get_gst_mod::get_gst_pio(), initialize_parallel(), set_pio_mod::initialize_pio(), main3d(), memory(), roms_kernel_mod::roms_initialize(), roms_kernel_mod::roms_initializep1(), rp_main3d(), set_pio_mod::set_iodecomp(), tl_main3d(), wclock_off(), wclock_on(), and wpoints_tile().

◆ ocn_comm_world

integer mod_parallel::ocn_comm_world

Definition at line 178 of file mod_parallel.F.

178 integer :: OCN_COMM_WORLD ! internal ROMS communicator

Referenced by mp_exchange_mod::ad_mp_exchange2d(), mp_exchange_mod::ad_mp_exchange2d_bry(), mp_exchange_mod::ad_mp_exchange3d(), mp_exchange_mod::ad_mp_exchange3d_bry(), mp_exchange_mod::ad_mp_exchange4d(), esmf_data_mod::data_setinitializep2(), mod_esmf_esm::def_fieldatt(), mod_esmf_esm::get_weights(), strings_mod::globalerror(), initialize_parallel(), set_pio_mod::initialize_pio(), mct_driver(), distribute_mod::mp_aggregate2d(), distribute_mod::mp_aggregate3d(), distribute_mod::mp_assemble::mp_assemblef_1d(), distribute_mod::mp_assemble::mp_assemblef_2d(), distribute_mod::mp_assemble::mp_assemblef_3d(), distribute_mod::mp_assemble::mp_assemblei_1d(), distribute_mod::mp_assemble::mp_assemblei_2d(), distribute_mod::mp_barrier(), distribute_mod::mp_bcast_struc(), distribute_mod::mp_bcastf::mp_bcastf_0d(), distribute_mod::mp_bcastf::mp_bcastf_0dp(), distribute_mod::mp_bcastf::mp_bcastf_1d(), distribute_mod::mp_bcastf::mp_bcastf_1dp(), distribute_mod::mp_bcastf::mp_bcastf_2d(), distribute_mod::mp_bcastf::mp_bcastf_2dp(), distribute_mod::mp_bcastf::mp_bcastf_3d(), distribute_mod::mp_bcastf::mp_bcastf_3dp(), distribute_mod::mp_bcastf::mp_bcastf_4d(), distribute_mod::mp_bcasti::mp_bcasti_0d(), distribute_mod::mp_bcasti::mp_bcasti_1d(), distribute_mod::mp_bcasti::mp_bcasti_2d(), distribute_mod::mp_bcastl::mp_bcastl_0d(), distribute_mod::mp_bcastl::mp_bcastl_1d(), distribute_mod::mp_bcastl::mp_bcastl_2d(), distribute_mod::mp_bcasts::mp_bcasts_0d(), distribute_mod::mp_bcasts::mp_bcasts_1d(), distribute_mod::mp_bcasts::mp_bcasts_2d(), distribute_mod::mp_bcasts::mp_bcasts_3d(), distribute_mod::mp_boundary(), distribute_mod::mp_collect::mp_collect_f(), distribute_mod::mp_collect::mp_collect_i(), mp_exchange_mod::mp_exchange2d(), mp_exchange_mod::mp_exchange2d_bry(), mp_exchange_mod::mp_exchange3d(), mp_exchange_mod::mp_exchange3d_bry(), mp_exchange_mod::mp_exchange4d(), distribute_mod::mp_gather2d(), distribute_mod::mp_gather3d(), distribute_mod::mp_gather_state(), distribute_mod::mp_ncread1d(), distribute_mod::mp_ncread2d(), distribute_mod::mp_ncwrite1d(), distribute_mod::mp_ncwrite2d(), distribute_mod::mp_reduce2(), distribute_mod::mp_reduce::mp_reduce_0d(), distribute_mod::mp_reduce::mp_reduce_0dp(), distribute_mod::mp_reduce::mp_reduce_1d(), distribute_mod::mp_reduce::mp_reduce_1dp(), distribute_mod::mp_reduce::mp_reduce_i8(), distribute_mod::mp_scatter2d(), distribute_mod::mp_scatter3d(), distribute_mod::mp_scatter_state(), mod_netcdf::netcdf_create(), mod_netcdf::netcdf_open(), mod_esmf_esm::read_esmconfig(), roms_kernel_mod::roms_initialize(), roms_kernel_mod::roms_initializep1(), set_pio_mod::set_iodecomp(), strings_mod::taskerror(), wclock_off(), and wclock_on().

◆ outthread

logical mod_parallel::outthread

Definition at line 48 of file mod_parallel.F.

48 logical :: OutThread

Referenced by def_dim_mod::def_dim::def_dim_nf90(), def_info_mod::def_info::def_info_nf90(), def_mod_mod::def_mod_nf90(), def_var_mod::def_var::def_var_nf90(), initialize_parallel(), set_pio_mod::initialize_pio(), mod_netcdf::netcdf_close(), mod_netcdf::netcdf_create(), mod_netcdf::netcdf_enddef(), mod_netcdf::netcdf_put_fvar::netcdf_put_fvar_0d(), mod_netcdf::netcdf_put_fvar::netcdf_put_fvar_0dp(), mod_netcdf::netcdf_put_fvar::netcdf_put_fvar_1d(), mod_netcdf::netcdf_put_fvar::netcdf_put_fvar_1dp(), mod_netcdf::netcdf_put_fvar::netcdf_put_fvar_2d(), mod_netcdf::netcdf_put_fvar::netcdf_put_fvar_2dp(), mod_netcdf::netcdf_put_fvar::netcdf_put_fvar_3d(), mod_netcdf::netcdf_put_fvar::netcdf_put_fvar_3dp(), mod_netcdf::netcdf_put_fvar::netcdf_put_fvar_4d(), mod_netcdf::netcdf_put_ivar::netcdf_put_ivar_0d(), mod_netcdf::netcdf_put_ivar::netcdf_put_ivar_1d(), mod_netcdf::netcdf_put_ivar::netcdf_put_ivar_2d(), mod_netcdf::netcdf_put_lvar::netcdf_put_lvar_0d(), mod_netcdf::netcdf_put_lvar::netcdf_put_lvar_1d(), mod_netcdf::netcdf_put_lvar::netcdf_put_lvar_2d(), mod_netcdf::netcdf_put_svar::netcdf_put_svar_0d(), mod_netcdf::netcdf_put_svar::netcdf_put_svar_1d(), mod_netcdf::netcdf_put_svar::netcdf_put_svar_2d(), mod_netcdf::netcdf_put_svar::netcdf_put_svar_3d(), mod_netcdf::netcdf_redef(), mod_netcdf::netcdf_sync(), nf_fwrite2d_mod::nf_fwrite2d::nf90_fwrite2d(), nf_fwrite2d_bry_mod::nf_fwrite2d_bry::nf90_fwrite2d_bry(), nf_fwrite3d_mod::nf_fwrite3d::nf90_fwrite3d(), nf_fwrite3d_bry_mod::nf_fwrite3d_bry::nf90_fwrite3d_bry(), nf_fwrite4d_mod::nf_fwrite4d::nf90_fwrite4d(), nf_fwrite2d_mod::nf_fwrite2d::pio_fwrite2d(), nf_fwrite3d_mod::nf_fwrite3d::pio_fwrite3d(), nf_fwrite4d_mod::nf_fwrite4d::pio_fwrite4d(), and set_pio_mod::set_iodecomp().

◆ peocn_frst

integer mod_parallel::peocn_frst

Definition at line 84 of file mod_parallel.F.

84 integer :: peOCN_frst ! first ocean parallel node

◆ peocn_last

integer mod_parallel::peocn_last

Definition at line 85 of file mod_parallel.F.

85 integer :: peOCN_last ! last ocean parallel node

◆ proc

integer, dimension(:,:,:), allocatable mod_parallel::proc

Definition at line 102 of file mod_parallel.F.

102 integer, allocatable :: proc(:,:,:)

Referenced by allocate_parallel(), esmf_data_mod::data_setinitializep2(), deallocate_parallel(), wclock_off(), and wclock_on().

◆ taskrank

integer mod_parallel::taskrank = 0

Definition at line 156 of file mod_parallel.F.

156 integer :: TaskRank = 0

Referenced by initialize_parallel(), and strings_mod::taskerror().

◆ thread_count

integer mod_parallel::thread_count = 0

Definition at line 91 of file mod_parallel.F.

91 integer :: thread_count = 0

Referenced by stats_mod::stats_3dfld(), stats_mod::stats_4dfld(), wclock_off(), and wclock_on().

◆ tile_count

integer mod_parallel::tile_count = 0

Definition at line 89 of file mod_parallel.F.

89 integer :: tile_count = 0

Referenced by zeta_balance_mod::ad_biconj_tile(), ad_diag_mod::ad_diag_tile(), dotproduct_mod::ad_dotproduct_tile(), ad_obc_volcons_mod::ad_set_duv_bc_tile(), dotproduct_mod::ad_statenorm_tile(), analytical_mod::ana_psource_tile(), back_cost_mod::back_cost_tile(), c_norm2(), diag_mod::diag_tile(), metrics_mod::metrics_tile(), dotproduct_mod::nl_dotproduct_tile(), normalization_mod::normalization_tile(), obc_volcons_mod::obc_flux_tile(), obs_cost(), zeta_balance_mod::r2d_dotp(), r_norm2(), rp_diag_mod::rp_diag_tile(), rp_obc_volcons_mod::rp_obc_flux_tile(), so_semi_red(), so_semi_white(), state_dotprod_mod::state_dotprod(), stats_mod::stats_2dfld(), stiffness_mod::stiffness_tile(), tl_diag_mod::tl_diag_tile(), dotproduct_mod::tl_dotproduct_tile(), tl_obc_volcons_mod::tl_obc_flux_tile(), zeta_balance_mod::tl_r2d_dotp(), and dotproduct_mod::tl_statenorm_tile().

◆ total_cpu

real(r8) mod_parallel::total_cpu

Definition at line 104 of file mod_parallel.F.

Referenced by allocate_parallel(), esmf_data_mod::data_setinitializep2(), and wclock_off().

◆ total_model

real(r8), dimension(4) mod_parallel::total_model

Definition at line 104 of file mod_parallel.F.

Referenced by allocate_parallel(), esmf_data_mod::data_setinitializep2(), and wclock_off().