/[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.2 by jmc, Wed Apr 7 23:40:34 2004 UTC revision 1.3 by jmc, Fri Dec 17 04:29:07 2004 UTC
# Line 85  C-        oceanic mixed layer state : Line 85  C-        oceanic mixed layer state :
85           ENDDO           ENDDO
86          ENDDO          ENDDO
87    
88    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
89    
90        IF ( startIceModel.LE.0 .AND. nIter0.NE.0 ) THEN        IF ( startIceModel.LE.0 .AND. nIter0.NE.0 ) THEN
91  C--     Read ice pickup fields  C--     Read ice pickup fields
92         _BARRIER         _BARRIER
93          prec=precFloat64          prec=precFloat64
94          CALL THSICE_READ_PICKUP( prec, nIter0, myThid )          CALL THSICE_READ_PICKUP( prec, nIter0, myThid )
95    
96          ELSE
97    C--     Read initial conditions:
98            _BEGIN_MASTER( myThid )
99            IF ( thSIceFract_InitFile .NE. ' ' ) THEN
100             CALL READ_REC_XY_RL(thSIceFract_InitFile,iceMask,1,0,myThid)
101            ENDIF
102            IF ( thSIceThick_InitFile .NE. ' ' ) THEN
103             CALL READ_REC_XY_RL(thSIceThick_InitFile,iceHeight,1,0,myThid)
104            ENDIF
105            IF ( thSIceSnowH_InitFile .NE. ' ' ) THEN
106             CALL READ_REC_XY_RL(thSIceSnowH_InitFile,snowHeight,1,0,myThid)
107            ENDIF
108            IF ( thSIceSnowA_InitFile .NE. ' ' ) THEN
109             CALL READ_REC_XY_RL(thSIceSnowA_InitFile,snowAge,1,0,myThid)
110            ENDIF
111            IF ( thSIceEnthp_InitFile .NE. ' ' ) THEN
112             CALL READ_REC_XY_RL(thSIceEnthp_InitFile,Qice1,1,0,myThid)
113             CALL READ_REC_XY_RL(thSIceEnthp_InitFile,Qice2,2,0,myThid)
114            ENDIF
115            IF ( thSIceTsurf_InitFile .NE. ' ' ) THEN
116             CALL READ_REC_XY_RS(thSIceTsurf_InitFile,Tsrf,1,0,myThid)
117            ENDIF
118            _END_MASTER(myThid)
119          ENDIF
120    
121          _EXCH_XY_R8(iceMask,myThid)          _EXCH_XY_R8(iceMask,myThid)
122          _EXCH_XY_R8(iceHeight, myThid)          _EXCH_XY_R8(iceHeight, myThid)
123          _EXCH_XY_R8(snowHeight,myThid)          _EXCH_XY_R8(snowHeight,myThid)
# Line 103  C--     Read ice pickup fields Line 130  C--     Read ice pickup fields
130  #ifdef COUPLE_MODEL  #ifdef COUPLE_MODEL
131          _EXCH_XY_R8(dFdT, myThid)          _EXCH_XY_R8(dFdT, myThid)
132  #endif  #endif
       ENDIF  
133    
134  #endif /* ALLOW_THSICE */  #endif /* ALLOW_THSICE */
135    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22