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, |
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] |
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 ', |
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 |
|
|