Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
ssidec | Module: SEAICE | File: SEAICE.f |
Author : Jiping Liu
Version:
Declaration:
subroutine ssidec(snow, msi2, hsil, ssil, dt, melt12, mflux, hflux, sflux)
- hsil :
real*8, intent(inout), dimension(lmi)
- enthalpy of ice layers (J/m^2)
- ssil :
real*8, intent(inout), dimension(lmi)
- salt in ice layers (kg/m^2)
- msi2 :
real*8, intent(inout)
- second mass layer ice thickness (kg/m^2)
- msi1 :
real*8
- first mass layer ice thickness (kg/m^2)
- dt :
real*8
- source time step (s)
- melt12 :
real*8, intent(inout)
- surface melt this time step (kg/m2)
- hflux :
real*8, intent(out)
- mass, salt and heat flux arising from
- sflux :
real*8, intent(out)
- mass, salt and heat flux arising from
- mflux :
real*8, intent(out)
- mass, salt and heat flux arising from
- snow :
real*8
- dssi :
real*8, dimension(LMI)
- dmsi :
real*8, dimension(LMI)
- dhsi :
real*8, dimension(LMI)
- fmsi :
real*8, dimension(LMI-1)
- fssi :
real*8, dimension(LMI-1)
- fhsi :
real*8, dimension(LMI-1)
- hsnow :
real*8, dimension(2)
- hice :
real*8, dimension(LMI)
- sice :
real*8, dimension(LMI)
- tsil :
real*8, dimension(LMI)
- mice :
real*8, dimension(LMI)
- snowl :
real*8, dimension(2)
- tsnw :
real*8, dimension(LMI)
- dtssi :
real*8, parameter
- decay time scale for sea ice salinity (days)
Initial Value= 30.d0
- bydtssi :
real*8, parameter
- decay constant for sea ice salinity (1/s)
Initial Value= 1./(dtssi*SECONDS_PER_DAY)
- l :
integer
- rate :
real*8
- brine_frac :
real*8