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, |
c & thSIce_tave_mnc, thSIce_diag_mnc, thSIce_mon_mnc, |
68 |
|
& thSIce_mon_mnc, |
69 |
& thSIceFract_InitFile, thSIceThick_InitFile, |
& thSIceFract_InitFile, thSIceThick_InitFile, |
70 |
& thSIceSnowH_InitFile, thSIceSnowA_InitFile, |
& thSIceSnowH_InitFile, thSIceSnowA_InitFile, |
71 |
& thSIceEnthp_InitFile, thSIceTsurf_InitFile |
& thSIceEnthp_InitFile, thSIceTsurf_InitFile |
176 |
C- MNC not yet available in this package => turn off MNC flags for now |
C- MNC not yet available in this package => turn off MNC flags for now |
177 |
thSIce_tave_mnc = .FALSE. |
thSIce_tave_mnc = .FALSE. |
178 |
thSIce_diag_mnc = .FALSE. |
thSIce_diag_mnc = .FALSE. |
|
thSIce_mon_mnc = .FALSE. |
|
179 |
C------- |
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_diag_mnc ) thSIce_diag_mdsio = .FALSE. |
184 |
IF ( .NOT.outputTypesInclusive |
IF ( .NOT.outputTypesInclusive |
185 |
& .AND. thSIce_mon_mnc ) thSIce_mon_stdio = .FALSE. |
& .AND. thSIce_mon_mnc ) thSIce_mon_stdio = .FALSE. |