ocean_epbl_enter_data_impl Subroutine

private subroutine ocean_epbl_enter_data_impl(this)

Arguments

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

Calls

proc~~ocean_epbl_enter_data_impl~~CallsGraph proc~ocean_epbl_enter_data_impl ocean_epbl_enter_data_impl proc~scratch_3d_buffer_enter_data_impl scratch_3d_buffer_enter_data_impl proc~ocean_epbl_enter_data_impl->proc~scratch_3d_buffer_enter_data_impl

Called by

proc~~ocean_epbl_enter_data_impl~~CalledByGraph proc~ocean_epbl_enter_data_impl ocean_epbl_enter_data_impl proc~ocean_epbl_enter_data ocean_epbl_t%ocean_epbl_enter_data proc~ocean_epbl_enter_data->proc~ocean_epbl_enter_data_impl

Source Code

   subroutine ocean_epbl_enter_data_impl(this)
      type(ocean_epbl_t), intent(inout) :: this
      if (allocated(this%f_centre)) then
         !$acc enter data copyin(this%f_centre)
      end if
      if (allocated(this%mld)) then
         !$acc enter data copyin(this%mld)
      end if
      if (allocated(this%b0)) then
         !$acc enter data copyin(this%b0)
      end if
      if (allocated(this%kd_int)) then
         !$acc enter data copyin(this%kd_int)
      end if
      if (allocated(this%la)) then
         !$acc enter data copyin(this%la)
      end if
      if (allocated(this%tke_wind)) then
         !$acc enter data copyin(this%tke_wind)
      end if
      if (allocated(this%tke_conv)) then
         !$acc enter data copyin(this%tke_conv)
      end if
      if (allocated(this%tke_forcing)) then
         !$acc enter data copyin(this%tke_forcing)
      end if
      if (allocated(this%tke_mixing)) then
         !$acc enter data copyin(this%tke_mixing)
      end if
      if (allocated(this%tke_mech_decay)) then
         !$acc enter data copyin(this%tke_mech_decay)
      end if
      if (allocated(this%tke_conv_decay)) then
         !$acc enter data copyin(this%tke_conv_decay)
      end if
      call scratch_3d_buffer_enter_data_impl(this%t0)
      call scratch_3d_buffer_enter_data_impl(this%s0)
      call scratch_3d_buffer_enter_data_impl(this%dpe_t)
      call scratch_3d_buffer_enter_data_impl(this%dpe_s)
      call scratch_3d_buffer_enter_data_impl(this%dcolht_t)
      call scratch_3d_buffer_enter_data_impl(this%dcolht_s)
      call scratch_3d_buffer_enter_data_impl(this%ctke_sw)
   end subroutine ocean_epbl_enter_data_impl