ice_atm_forcing_restoring Subroutine

public pure subroutine ice_atm_forcing_restoring(ice, air_temp, restore_lambda, sw_down, snowfall)

Outer shim: forward the four seam arrays + four scalars to the device kernel. No registry indirection here, but keep the shim+_impl split for the explicit-shape device-kernel discipline.

Arguments

Type IntentOptional Attributes Name
type(ocean_sea_ice_t), intent(inout) :: ice
real(kind=wp), intent(in) :: air_temp
real(kind=wp), intent(in) :: restore_lambda
real(kind=wp), intent(in) :: sw_down
real(kind=wp), intent(in) :: snowfall

Calls

proc~~ice_atm_forcing_restoring~~CallsGraph proc~ice_atm_forcing_restoring ice_atm_forcing_restoring proc~ice_atm_forcing_restoring_impl ice_atm_forcing_restoring_impl proc~ice_atm_forcing_restoring->proc~ice_atm_forcing_restoring_impl

Called by

proc~~ice_atm_forcing_restoring~~CalledByGraph proc~ice_atm_forcing_restoring ice_atm_forcing_restoring proc~engine_step_ice engine_step_ice proc~engine_step_ice->proc~ice_atm_forcing_restoring proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_step_ice 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

Source Code

   pure subroutine ice_atm_forcing_restoring(ice, air_temp, restore_lambda, sw_down, snowfall)
      !! Outer shim: forward the four seam arrays + four scalars to the
      !! device kernel. No registry indirection here, but keep the shim+_impl
      !! split for the explicit-shape device-kernel discipline.
      type(ocean_sea_ice_t), intent(inout) :: ice
      real(wp), intent(in) :: air_temp, restore_lambda, sw_down, snowfall
      call ice_atm_forcing_restoring_impl(ice%atm_sf0, ice%atm_dsfdt, ice%atm_sw_dn, &
                                          ice%atm_fprec, air_temp, restore_lambda, &
                                          sw_down, snowfall, ice%nx_total, ice%ny_total)
   end subroutine ice_atm_forcing_restoring