ice_enthalpy_liquid Function

public pure elemental function ice_enthalpy_liquid(t, s) result(enth)

Enthalpy (J/kg) of liquid water at temperature t — SIS2 enthalpy_liquid (SIS2_ice_thm.F90:1691). s is unused in this linear form; the argument is kept for SIS2 call-site parity (enthalpy_liquid(T, S, ITV)).

Arguments

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

Water temperature (degC).
real(kind=wp), intent(in) :: s

Ice bulk salinity (PSU) — unused, kept for call-site parity.

Return Value real(kind=wp)


Called by

proc~~ice_enthalpy_liquid~~CalledByGraph proc~ice_enthalpy_liquid ice_enthalpy_liquid proc~ice_column_step ice_column_step proc~ice_column_step->proc~ice_enthalpy_liquid proc~ice_temp_sis2 ice_temp_sis2 proc~ice_column_step->proc~ice_temp_sis2 proc~ice_frazil_uptake_column ice_frazil_uptake_column proc~ice_frazil_uptake_column->proc~ice_enthalpy_liquid proc~ice_snowfall_ocean_share_impl ice_snowfall_ocean_share_impl proc~ice_snowfall_ocean_share_impl->proc~ice_enthalpy_liquid proc~update_lay_enth update_lay_enth proc~update_lay_enth->proc~ice_enthalpy_liquid proc~ice_frazil_uptake_impl ice_frazil_uptake_impl proc~ice_frazil_uptake_impl->proc~ice_frazil_uptake_column proc~ice_frazil_uptake_multicat_impl ice_frazil_uptake_multicat_impl proc~ice_frazil_uptake_multicat_impl->proc~ice_frazil_uptake_column proc~ice_snowfall_ocean_share ice_snowfall_ocean_share proc~ice_snowfall_ocean_share->proc~ice_snowfall_ocean_share_impl proc~ice_temp_sis2->proc~update_lay_enth proc~ice_thermo_columns ice_thermo_columns proc~ice_thermo_columns->proc~ice_column_step proc~engine_step_ice engine_step_ice proc~engine_step_ice->proc~ice_snowfall_ocean_share proc~ice_frazil_uptake ice_frazil_uptake proc~engine_step_ice->proc~ice_frazil_uptake proc~ice_thermo_driver_step ice_thermo_driver_step proc~engine_step_ice->proc~ice_thermo_driver_step proc~ice_frazil_uptake->proc~ice_frazil_uptake_impl proc~ice_frazil_uptake->proc~ice_frazil_uptake_multicat_impl proc~ice_thermo_driver_step->proc~ice_thermo_columns 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 elemental function ice_enthalpy_liquid(t, s) result(enth)
      !! Enthalpy (J/kg) of liquid water at temperature `t` — SIS2
      !! `enthalpy_liquid` (SIS2_ice_thm.F90:1691). `s` is unused in
      !! this linear form; the argument is kept for SIS2 call-site
      !! parity (`enthalpy_liquid(T, S, ITV)`).
      !$acc routine seq
      real(wp), intent(in) :: t
         !! Water temperature (degC).
      real(wp), intent(in) :: s
         !! Ice bulk salinity (PSU) — unused, kept for call-site parity.
      real(wp) :: enth

      enth = ICE_ENTH_LIQ_0 + ICE_CP_WATER*t
   end function ice_enthalpy_liquid