59 |
& frac_energy, hihig |
& frac_energy, hihig |
60 |
|
|
61 |
NAMELIST /THSICE_PARM01/ |
NAMELIST /THSICE_PARM01/ |
62 |
& startIceModel, stepFwd_oceMxL, |
& startIceModel, stepFwd_oceMxL, |
63 |
& thSIce_deltaT, ocean_deltaT, tauRelax_MxL, |
& thSIce_deltaT, ocean_deltaT, tauRelax_MxL, |
64 |
& hMxL_default, sMxL_default, vMxL_default, |
& hMxL_default, sMxL_default, vMxL_default, |
65 |
& stressReduction, |
& stressReduction, |
66 |
& thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq, |
& thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq, |
67 |
c & thSIce_tave_mnc, thSIce_diag_mnc, thSIce_mon_mnc, |
& thSIce_tave_mnc, thSIce_snapshot_mnc, thSIce_mon_mnc, |
68 |
& thSIceFract_InitFile, thSIceThick_InitFile, |
& thSIce_pickup_read_mnc, thSIce_pickup_write_mnc, |
69 |
& thSIceSnowH_InitFile, thSIceSnowA_InitFile, |
& thSIceFract_InitFile, thSIceThick_InitFile, |
70 |
& thSIceEnthp_InitFile, thSIceTsurf_InitFile |
& thSIceSnowH_InitFile, thSIceSnowA_InitFile, |
71 |
|
& thSIceEnthp_InitFile, thSIceTsurf_InitFile |
72 |
|
|
73 |
_BEGIN_MASTER(myThid) |
_BEGIN_MASTER(myThid) |
74 |
|
|
132 |
thSIce_diagFreq = dumpFreq |
thSIce_diagFreq = dumpFreq |
133 |
thSIce_monFreq = monitorFreq |
thSIce_monFreq = monitorFreq |
134 |
#ifdef ALLOW_MNC |
#ifdef ALLOW_MNC |
135 |
thSIce_tave_mnc = timeave_mnc |
thSIce_tave_mnc = timeave_mnc |
136 |
thSIce_diag_mnc = snapshot_mnc |
thSIce_snapshot_mnc = snapshot_mnc |
137 |
thSIce_mon_mnc = monitor_mnc |
thSIce_mon_mnc = monitor_mnc |
138 |
|
thSIce_pickup_read_mnc = pickup_read_mnc |
139 |
|
thSIce_pickup_write_mnc = pickup_write_mnc |
140 |
#else |
#else |
141 |
thSIce_tave_mnc = .FALSE. |
thSIce_tave_mnc = .FALSE. |
142 |
thSIce_diag_mnc = .FALSE. |
thSIce_snapshot_mnc = .FALSE. |
143 |
thSIce_mon_mnc = .FALSE. |
thSIce_mon_mnc = .FALSE. |
144 |
|
thSIce_pickup_read_mnc = .FALSE. |
145 |
|
thSIce_pickup_write_mnc = .FALSE. |
146 |
#endif |
#endif |
147 |
thSIceFract_InitFile = ' ' |
thSIceFract_InitFile = ' ' |
148 |
thSIceThick_InitFile = ' ' |
thSIceThick_InitFile = ' ' |
170 |
Tmlt1=-mu_Tf*S_winton |
Tmlt1=-mu_Tf*S_winton |
171 |
rhoiw = rhosw - rhoi |
rhoiw = rhosw - rhoi |
172 |
|
|
173 |
C- Set other parameters (from previous ones): |
C Set I/O parameters |
174 |
thSIce_tave_mdsio = .TRUE. |
thSIce_tave_mdsio = .TRUE. |
175 |
thSIce_diag_mdsio = .TRUE. |
thSIce_snapshot_mdsio = .TRUE. |
176 |
thSIce_mon_stdio = .TRUE. |
thSIce_mon_stdio = .TRUE. |
177 |
|
thSIce_pickup_write_mdsio = .TRUE. |
178 |
#ifdef ALLOW_MNC |
#ifdef ALLOW_MNC |
179 |
IF (useMNC) THEN |
IF (useMNC) THEN |
|
C------- |
|
|
C- MNC not yet available in this package => turn off MNC flags for now |
|
|
thSIce_tave_mnc = .FALSE. |
|
|
thSIce_diag_mnc = .FALSE. |
|
|
thSIce_mon_mnc = .FALSE. |
|
|
C------- |
|
180 |
IF ( .NOT.outputTypesInclusive |
IF ( .NOT.outputTypesInclusive |
181 |
& .AND. thSIce_tave_mnc ) thSIce_tave_mdsio = .FALSE. |
& .AND. thSIce_tave_mnc ) thSIce_tave_mdsio = .FALSE. |
182 |
IF ( .NOT.outputTypesInclusive) |
IF ( .NOT.outputTypesInclusive |
183 |
& .AND. thSIce_diag_mnc ) thSIce_diag_mdsio = .FALSE. |
& .AND. thSIce_snapshot_mnc ) |
184 |
|
& thSIce_snapshot_mdsio = .FALSE. |
185 |
IF ( .NOT.outputTypesInclusive |
IF ( .NOT.outputTypesInclusive |
186 |
& .AND. thSIce_mon_mnc ) thSIce_mon_stdio = .FALSE. |
& .AND. thSIce_mon_mnc ) thSIce_mon_stdio = .FALSE. |
187 |
|
IF ( .NOT.outputTypesInclusive |
188 |
|
& .AND. thSIce_pickup_write_mnc ) |
189 |
|
& thSIce_pickup_write_mdsio = .FALSE. |
190 |
ENDIF |
ENDIF |
191 |
#endif |
#endif |
192 |
|
|