/[MITgcm]/MITgcm/pkg/thsice/thsice_ini_vars.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_ini_vars.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.15 by dimitri, Fri May 23 21:24:41 2008 UTC revision 1.16 by dimitri, Fri May 23 21:29:33 2008 UTC
# Line 141  C--     Read initial conditions: Line 141  C--     Read initial conditions:
141          IF ( thSIceEnthp_InitFile .EQ. ' ' ) THEN          IF ( thSIceEnthp_InitFile .EQ. ' ' ) THEN
142  C-    enthalpy of new ice in J/kg, taken from thsice_extend.F with Tf beeing  C-    enthalpy of new ice in J/kg, taken from thsice_extend.F with Tf beeing
143  C     the freezing Temp of seawater computed from a fixed salinity (31.5 psu)  C     the freezing Temp of seawater computed from a fixed salinity (31.5 psu)
144  C     Tf = -mu_Tf*salinity = -1.62 deg C;  Qice1 ~ 3.2e5;  Qice2 ~ 3.4e5  C     Tf = -mu_Tf*salinity = -1.70 deg C;  Qice1 ~ 3.2e5;  Qice2 ~ 3.4e5
145           Tf = -1.70 _d 0           Tf = -1.70 _d 0
146           DO bj = myByLo(myThid), myByHi(myThid)           DO bj = myByLo(myThid), myByHi(myThid)
147            DO bi = myBxLo(myThid), myBxHi(myThid)            DO bi = myBxLo(myThid), myBxHi(myThid)
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22