cavity_t_ice Function

private pure function cavity_t_ice(ice) result(T_ice)

Ice temperature actually used: exactly zero when the mode ignores it, so an unset or stale T_ice cannot leak into an insulating run through L_eff.

Arguments

Type IntentOptional Attributes Name
type(ocean_cavity_ice_t), intent(in) :: ice

Ice-conduction bundle.

Return Value real(kind=wp)


Called by

proc~~cavity_t_ice~~CalledByGraph proc~cavity_t_ice cavity_t_ice proc~cavity_heat_fluxes cavity_heat_fluxes proc~cavity_heat_fluxes->proc~cavity_t_ice proc~cavity_three_equation cavity_three_equation proc~cavity_three_equation->proc~cavity_t_ice proc~cavity_two_equation cavity_two_equation proc~cavity_two_equation->proc~cavity_t_ice proc~cavity_solve_melt_f cavity_solve_melt_f proc~cavity_solve_melt_f->proc~cavity_heat_fluxes proc~cavity_state_at_x cavity_state_at_x proc~cavity_solve_melt_f->proc~cavity_state_at_x proc~cavity_state_at_x->proc~cavity_three_equation proc~cavity_melt_point_gamma_f cavity_melt_point_gamma_f proc~cavity_melt_point_gamma_f->proc~cavity_solve_melt_f proc~cavity_solve_melt cavity_solve_melt proc~cavity_solve_melt->proc~cavity_solve_melt_f proc~cavity_melt_columns_2d cavity_melt_columns_2d proc~cavity_melt_columns_2d->proc~cavity_melt_point_gamma_f proc~cavity_melt_point cavity_melt_point proc~cavity_melt_point->proc~cavity_solve_melt proc~cavity_melt_point_gamma cavity_melt_point_gamma proc~cavity_melt_point_gamma->proc~cavity_melt_point_gamma_f proc~cavity_melt_columns cavity_melt_columns proc~cavity_melt_columns->proc~cavity_melt_point proc~ocean_cavity_flux_step ocean_cavity_flux_step proc~ocean_cavity_flux_step->proc~cavity_melt_columns_2d

Source Code

   pure function cavity_t_ice(ice) result(T_ice)
      !! Ice temperature actually used: exactly zero when the mode ignores
      !! it, so an unset or stale `T_ice` cannot leak into an insulating
      !! run through `L_eff`.
      !$acc routine seq
      type(ocean_cavity_ice_t), intent(in) :: ice
         !! Ice-conduction bundle.
      real(wp) :: T_ice
      if (ice%mode == CAVITY_ICE_INSULATING) then
         T_ice = 0.0_wp
      else
         T_ice = ice%T_ice
      end if
   end function cavity_t_ice