/[MITgcm]/MITgcm/pkg/thsice/thsice_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_readparms.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by jmc, Fri Dec 17 04:29:07 2004 UTC revision 1.6 by jmc, Fri Dec 17 04:59:48 2004 UTC
# Line 65  C--   Th-Sea-ICE parameter Line 65  C--   Th-Sea-ICE parameter
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
# Line 175  C------- Line 176  C-------
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.
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22