/[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.6 by jmc, Fri Dec 17 04:59:48 2004 UTC revision 1.7 by edhill, Fri Jun 24 04:36:54 2005 UTC
# Line 59  C--   Th-Sea-ICE parameter Line 59  C--   Th-Sea-ICE parameter
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       &                                           thSIce_mon_mnc,       &     thSIce_pickup_read_mnc, thSIce_pickup_write_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
72    
73        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
74    
# Line 132  C--   Default values (parameters) Line 132  C--   Default values (parameters)
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 = ' '
# Line 166  C-    Define other constants (from previ Line 170  C-    Define other constants (from previ
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.  
 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    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22