tags_periodic_x Function

private pure function tags_periodic_x(cfg) result(per_x)

.true. iff &ocean_bc_nml tags BOTH west and east periodic — the rule ocean_bc_state_init applies, for callers that run before configure_ocean_bc (the grid metrics).

Arguments

Type IntentOptional Attributes Name
type(config_t), intent(in) :: cfg

Return Value logical


Calls

proc~~tags_periodic_x~~CallsGraph proc~tags_periodic_x tags_periodic_x proc~ocean_bc_type_from_string ocean_bc_type_from_string proc~tags_periodic_x->proc~ocean_bc_type_from_string to_lower to_lower proc~ocean_bc_type_from_string->to_lower

Called by

proc~~tags_periodic_x~~CalledByGraph proc~tags_periodic_x tags_periodic_x proc~configure_ocean_metrics configure_ocean_metrics proc~configure_ocean_metrics->proc~tags_periodic_x proc~engine_setup engine_setup proc~engine_setup->proc~configure_ocean_metrics 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~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

   pure function tags_periodic_x(cfg) result(per_x)
      !! `.true.` iff `&ocean_bc_nml` tags BOTH west and east `periodic` —
      !! the rule `ocean_bc_state_init` applies, for callers that run before
      !! `configure_ocean_bc` (the grid metrics).
      type(config_t), intent(in) :: cfg
      logical :: per_x
      per_x = ocean_bc_type_from_string(cfg%ocean%bc%west) == OBC_PERIODIC .and. &
              ocean_bc_type_from_string(cfg%ocean%bc%east) == OBC_PERIODIC
   end function tags_periodic_x