Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
addice | Module: SEAICE | File: SEAICE.f |
Author : Gary Russell/Gavin Schmidt
Version:
Declaration:
subroutine addice (snow, roice, hsil, ssil, msi2, tsil, enrgfo, acefo, acefi, enrgfi, salto, salti, dmimp, dhimp, dsimp, flead, qfixr)
- qfixr :
logical, intent(in)
- true if RSI and MSI2 are fixed (ie. for fixed SST run)
- ysi :
real*8, parameter, dimension(lmi)
- Initial Value
= (/XSI(1)* ACE1I/(ACE1I+AC2OIM),XSI(2)*ACE1I/(ACE1I+AC2OIM), XSI(3)*AC2OIM/(ACE1I+AC2OIM),XSI(4)*AC2OIM/(ACE1I+AC2OIM)/)
- flead :
real*8, intent(in)
- minimum lead fraction for ice (%)
- acefo :
real*8, intent(in)
- ice mass formed in ocean for open water fraction (kg/m^2)
- acefi :
real*8, intent(in)
- ice mass formed in ocean for ice covered fraction (kg/m^2)
- enrgfo :
real*8, intent(in)
- energy of ice formed in ocean for open water frac (J/m^2)
- enrgfi :
real*8, intent(in)
- energy of ice formed in ocean for ice covered frac (J/m^2)
- salto :
real*8, intent(in)
- salt in ice formed in ocean for open water frac (kg/m^2)
- salti :
real*8, intent(in)
- salt in ice formed in ocean for ice covered frac (kg/m^2)
- roice :
real*8, intent(inout)
- ice fraction over open water
- snow :
real*8, intent(inout)
- snow amount on ice (kg/m^2)
- msi2 :
real*8, intent(inout)
- second mass layer ice thickness (kg/m^2)
- 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)
- tsil :
real*8, intent(out), dimension(lmi)
- temperature of ice layers (C)
- dhimp :
real*8, intent(out)
- implicit mass,salt and heat fluxes required
- dsimp :
real*8, intent(out)
- implicit mass,salt and heat fluxes required
- dmimp :
real*8, intent(out)
- implicit mass,salt and heat fluxes required
- fri :
real*8, dimension(lmi)
- fmsi4 :
real*8
- fhsi3 :
real*8
- fhsi4 :
real*8
- fssi3 :
real*8
- fssi4 :
real*8
- hsnow :
real*8, dimension(2)
- snowl :
real*8, dimension(2)
- tsnw :
real*8, dimension(2)
- hice :
real*8, dimension(LMI)
- sice :
real*8, dimension(LMI)
- mice :
real*8, dimension(LMI)
- roicen :
real*8
- opnocn :
real*8
- drsi :
real*8
- msi1 :
real*8
- l :
integer