/[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.19 by jmc, Tue Aug 25 21:33:28 2009 UTC revision 1.20 by jmc, Wed Sep 2 19:28:44 2009 UTC
# Line 135  C--     Read initial conditions: Line 135  C--     Read initial conditions:
135           CALL READ_REC_XY_RL(thSIceEnthp_InitFile,Qice2,2,0,myThid)           CALL READ_REC_XY_RL(thSIceEnthp_InitFile,Qice2,2,0,myThid)
136          ENDIF          ENDIF
137          IF ( thSIceTsurf_InitFile .NE. ' ' ) THEN          IF ( thSIceTsurf_InitFile .NE. ' ' ) THEN
138           CALL READ_REC_XY_RS(thSIceTsurf_InitFile,Tsrf,1,0,myThid)           CALL READ_REC_XY_RL(thSIceTsurf_InitFile,Tsrf,1,0,myThid)
139          ENDIF          ENDIF
140          IF ( thSIceEnthp_InitFile .EQ. ' ' ) THEN          IF ( thSIceEnthp_InitFile .EQ. ' ' ) THEN
141  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
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22