/[MITgcm]/MITgcm/pkg/aim_v23/aim_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/aim_v23/aim_readparms.F

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

revision 1.9 by edhill, Thu Jun 23 20:02:50 2005 UTC revision 1.10 by edhill, Sun Sep 11 04:35:31 2005 UTC
# Line 75  C     aim_clrSkyDiag :: compute clear-sk Line 75  C     aim_clrSkyDiag :: compute clear-sk
75  C     aim_taveFreq :: Frequency^-1 for time-average output (s)  C     aim_taveFreq :: Frequency^-1 for time-average output (s)
76  C     aim_diagFreq :: Frequency^-1 for diagnostic output (s)  C     aim_diagFreq :: Frequency^-1 for diagnostic output (s)
77  C     aim_tendFreq :: Frequency^-1 for tendencies output (s)  C     aim_tendFreq :: Frequency^-1 for tendencies output (s)
 C     aim_tave_mnc :: write TimeAverage output using MNC  
78        NAMELIST /AIM_PARAMS/        NAMELIST /AIM_PARAMS/
79       &    aim_useFMsurfBC, aim_useMMsurfFc,       &    aim_useFMsurfBC, aim_useMMsurfFc,
80       &    aim_surfPotTemp, aim_energPrecip, aim_splitSIOsFx,       &    aim_surfPotTemp, aim_energPrecip, aim_splitSIOsFx,
# Line 85  C     aim_tave_mnc :: write TimeAverage Line 84  C     aim_tave_mnc :: write TimeAverage
84       &    aim_swcFile,       &    aim_swcFile,
85       &    aim_dragStrato,       &    aim_dragStrato,
86       &    aim_clrSkyDiag, aim_taveFreq, aim_diagFreq, aim_tendFreq,       &    aim_clrSkyDiag, aim_taveFreq, aim_diagFreq, aim_tendFreq,
87       &    aim_tave_mnc       &     aim_timeave_mnc, aim_snapshot_mnc,
88         &     aim_pickup_write_mnc, aim_pickup_read_mnc
89    
90  C--   Physical constants (common PHYCON) :  C--   Physical constants (common PHYCON) :
91  C       P0    = reference pressure                 [Pa=N/m2]  C       P0    = reference pressure                 [Pa=N/m2]
# Line 263  C-    If aim_taveFreq is positive, then Line 263  C-    If aim_taveFreq is positive, then
263  #endif /* ALLOW_AIM_TAVE */  #endif /* ALLOW_AIM_TAVE */
264    
265  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
266        IF (useMNC) THEN        aim_timeave_mnc      =
267          IF ( .NOT.outputTypesInclusive       &     aim_timeave_mnc .AND. useMNC
268       &       .AND. aim_tave_mnc ) aim_tave_mdsio = .FALSE.        aim_snapshot_mnc     =
269        ENDIF       &     aim_snapshot_mnc .AND. useMNC
270          aim_pickup_write_mnc =
271         &     aim_pickup_write_mnc .AND. useMNC
272          aim_pickup_read_mnc  =
273         &     aim_pickup_read_mnc .AND. useMNC
274    
275          aim_timeave_mdsio      = (.NOT. aim_timeave_mnc)
276         &     .OR. outputTypesInclusive
277          aim_snapshot_mdsio     = (.NOT. aim_snapshot_mnc)
278         &     .OR. outputTypesInclusive
279          aim_pickup_write_mdsio = (.NOT. aim_pickup_write_mnc)
280         &     .OR. outputTypesInclusive
281          aim_pickup_read_mdsio  = (.NOT. aim_pickup_read_mnc)
282         &     .OR. outputTypesInclusive
283  #else  #else
284  C     Stop if MNC is not compiled-in and aim_tave_mnc=.TRUE.  C     Stop if MNC is not compiled-in and aim_*_mnc=.TRUE.
285        IF (aim_tave_mnc) THEN        IF ( aim_timeave_mnc .OR. aim_snapshot_mnc
286          WRITE(msgBuf,'(2A)') 'AIM_READPARMS: aim_tave_mnc=.TRUE. ',       &     .OR. aim_pickup_write_mnc .OR. aim_pickup_read_mnc ) THEN
287            WRITE(msgBuf,'(2A)')
288         &       'AIM_READPARMS: one or more aim_*_mnc vars is .TRUE. ',
289       &       'but ALLOW_MNC is undefined'       &       'but ALLOW_MNC is undefined'
290          CALL PRINT_ERROR( msgBuf, myThid)          CALL PRINT_ERROR( msgBuf, myThid)
291          WRITE(msgBuf,'(2A)') 'Please re-compile with the MNC ',          WRITE(msgBuf,'(2A)') 'Please re-compile with the MNC ',
# Line 278  C     Stop if MNC is not compiled-in and Line 293  C     Stop if MNC is not compiled-in and
293          CALL PRINT_ERROR( msgBuf, myThid)          CALL PRINT_ERROR( msgBuf, myThid)
294          STOP 'ABNORMAL END: S/R AIM_READPARMS'          STOP 'ABNORMAL END: S/R AIM_READPARMS'
295        ENDIF        ENDIF
296          aim_timeave_mnc        = .FALSE.
297          aim_snapshot_mnc       = .FALSE.
298          aim_pickup_write_mnc   = .FALSE.
299          aim_pickup_read_mnc    = .FALSE.
300          aim_timeave_mdsio      = .TRUE.
301          aim_snapshot_mdsio     = .TRUE.
302          aim_pickup_write_mdsio = .TRUE.
303          aim_pickup_read_mdsio  = .TRUE.
304  #endif /* ALLOW_MNC */  #endif /* ALLOW_MNC */
305    
306    
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22