data_input_workspace_cleanup Subroutine

private subroutine data_input_workspace_cleanup()

Arguments

None

Called by

proc~~data_input_workspace_cleanup~~CalledByGraph proc~data_input_workspace_cleanup data_input_workspace_cleanup proc~ocean_data_input_destroy ocean_data_input_t%ocean_data_input_destroy proc~ocean_data_input_destroy->proc~data_input_workspace_cleanup proc~ocean_data_input_init ocean_data_input_t%ocean_data_input_init proc~ocean_data_input_init->proc~ocean_data_input_destroy proc~ocean_data_input_load_static_2d ocean_data_input_load_static_2d proc~ocean_data_input_load_static_2d->proc~ocean_data_input_destroy proc~ocean_data_input_load_static_2d->proc~ocean_data_input_init proc~seed_cavity_draft seed_cavity_draft proc~seed_cavity_draft->proc~ocean_data_input_load_static_2d proc~ocean_state_seed_from_cfg ocean_state_seed_from_cfg proc~ocean_state_seed_from_cfg->proc~seed_cavity_draft proc~engine_setup engine_setup proc~engine_setup->proc~ocean_state_seed_from_cfg

Source Code

   subroutine data_input_workspace_cleanup()
      if (allocated(data_input_ws)) deallocate (data_input_ws)
   end subroutine data_input_workspace_cleanup