ice_enthalpy_liquid_freeze Function

public pure elemental function ice_enthalpy_liquid_freeze(s) result(enth)

Enthalpy (J/kg) of liquid water at the freezing point for salinity s — SIS2 enthalpy_liquid_freeze (SIS2_ice_thm.F90:1679).

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: s

Ice bulk salinity (PSU).

Return Value real(kind=wp)


Called by

proc~~ice_enthalpy_liquid_freeze~~CalledByGraph proc~ice_enthalpy_liquid_freeze ice_enthalpy_liquid_freeze proc~ice_bottom_melt_peel ice_bottom_melt_peel proc~ice_bottom_melt_peel->proc~ice_enthalpy_liquid_freeze proc~ice_top_melt_peel ice_top_melt_peel proc~ice_top_melt_peel->proc~ice_enthalpy_liquid_freeze proc~update_lay_enth update_lay_enth proc~update_lay_enth->proc~ice_enthalpy_liquid_freeze proc~ice_column_step ice_column_step proc~ice_column_step->proc~ice_bottom_melt_peel proc~ice_column_step->proc~ice_top_melt_peel proc~ice_temp_sis2 ice_temp_sis2 proc~ice_column_step->proc~ice_temp_sis2 proc~ice_temp_sis2->proc~update_lay_enth proc~ice_thermo_columns ice_thermo_columns proc~ice_thermo_columns->proc~ice_column_step proc~ice_thermo_driver_step ice_thermo_driver_step proc~ice_thermo_driver_step->proc~ice_thermo_columns proc~engine_step_ice engine_step_ice proc~engine_step_ice->proc~ice_thermo_driver_step

Source Code

   pure elemental function ice_enthalpy_liquid_freeze(s) result(enth)
      !! Enthalpy (J/kg) of liquid water at the freezing point for
      !! salinity `s` — SIS2 `enthalpy_liquid_freeze` (SIS2_ice_thm.F90:1679).
      !$acc routine seq
      real(wp), intent(in) :: s
         !! Ice bulk salinity (PSU).
      real(wp) :: enth

      enth = ICE_CP_WATER*(ICE_DTF_DS*s) + ICE_ENTH_LIQ_0
   end function ice_enthalpy_liquid_freeze