ocean_halo_is_init Function

public pure function ocean_halo_is_init() result(flag)

True if ocean_halo_init has been called and not yet destroyed.

Arguments

None

Return Value logical


Called by

proc~~ocean_halo_is_init~~CalledByGraph proc~ocean_halo_is_init ocean_halo_is_init proc~configure_ocean_closed_faces configure_ocean_closed_faces proc~configure_ocean_closed_faces->proc~ocean_halo_is_init proc~configure_ocean_k_bot configure_ocean_k_bot proc~configure_ocean_k_bot->proc~ocean_halo_is_init proc~ice_transport_step ice_transport_step proc~ice_transport_step->proc~ocean_halo_is_init proc~engine_setup engine_setup proc~engine_setup->proc~configure_ocean_closed_faces proc~engine_setup->proc~configure_ocean_k_bot proc~engine_step_ice engine_step_ice proc~engine_step_ice->proc~ice_transport_step 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_run_ocean->proc~engine_step_ice proc~driver_validate driver_validate proc~driver_validate->proc~engine_setup proc~rdb_ocean_step rdb_ocean_step proc~rdb_ocean_step->proc~engine_step_ice 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 ocean_halo_is_init() result(flag)
      !! True if ocean_halo_init has been called and not yet destroyed.
      logical :: flag
      flag = oh_initialised
   end function ocean_halo_is_init