ocean_data_input_exit_data_impl Subroutine

private subroutine ocean_data_input_exit_data_impl(this)

Arguments

Type IntentOptional Attributes Name
type(ocean_data_input_t), intent(inout) :: this

Called by

proc~~ocean_data_input_exit_data_impl~~CalledByGraph proc~ocean_data_input_exit_data_impl ocean_data_input_exit_data_impl proc~ocean_data_input_exit_data ocean_data_input_t%ocean_data_input_exit_data proc~ocean_data_input_exit_data->proc~ocean_data_input_exit_data_impl proc~ocean_state_exit_data ocean_state_exit_data proc~ocean_state_exit_data->proc~ocean_data_input_exit_data proc~engine_exit_data engine_exit_data proc~engine_exit_data->proc~ocean_state_exit_data proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_exit_data proc~rdb_ocean_destroy rdb_ocean_destroy proc~rdb_ocean_destroy->proc~engine_exit_data proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean

Variables

Type Visibility Attributes Name Initial
integer, private :: i

Source Code

   subroutine ocean_data_input_exit_data_impl(this)
      type(ocean_data_input_t), intent(inout) :: this
      integer :: i
      if (.not. this%is_init) return
      do i = 1, this%nfields
         if (.not. allocated(this%fields(i)%f0)) cycle
         !$acc exit data delete(this%fields(i)%f0, this%fields(i)%f1)
      end do
   end subroutine ocean_data_input_exit_data_impl