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) |
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 |
|
|