tags_north_fold Function

private pure function tags_north_fold(cfg) result(fold)

.true. iff &ocean_bc_nml north = "tripolar_fold".

Arguments

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

Return Value logical


Calls

proc~~tags_north_fold~~CallsGraph proc~tags_north_fold tags_north_fold proc~ocean_bc_type_from_string ocean_bc_type_from_string proc~tags_north_fold->proc~ocean_bc_type_from_string to_lower to_lower proc~ocean_bc_type_from_string->to_lower

Called by

proc~~tags_north_fold~~CalledByGraph proc~tags_north_fold tags_north_fold proc~configure_ocean_metrics configure_ocean_metrics proc~configure_ocean_metrics->proc~tags_north_fold 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_north_fold(cfg) result(fold)
      !! `.true.` iff `&ocean_bc_nml north = "tripolar_fold"`.
      type(config_t), intent(in) :: cfg
      logical :: fold
      fold = ocean_bc_type_from_string(cfg%ocean%bc%north) == OBC_TRIPOLAR_FOLD
   end function tags_north_fold