/[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.8 by jmc, Thu Jun 24 23:43:11 2004 UTC revision 1.9 by edhill, Thu Jun 23 20:02:50 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)
78    C     aim_tave_mnc :: write TimeAverage output using MNC
79        NAMELIST /AIM_PARAMS/        NAMELIST /AIM_PARAMS/
80       &    aim_useFMsurfBC, aim_useMMsurfFc,       &    aim_useFMsurfBC, aim_useMMsurfFc,
81       &    aim_surfPotTemp, aim_energPrecip, aim_splitSIOsFx,       &    aim_surfPotTemp, aim_energPrecip, aim_splitSIOsFx,
# Line 83  C     aim_tendFreq :: Frequency^-1 for t Line 84  C     aim_tendFreq :: Frequency^-1 for t
84       &    aim_sstFile, aim_lstFile, aim_oiceFile, aim_snowFile,       &    aim_sstFile, aim_lstFile, aim_oiceFile, aim_snowFile,
85       &    aim_swcFile,       &    aim_swcFile,
86       &    aim_dragStrato,       &    aim_dragStrato,
87       &    aim_clrSkyDiag, aim_taveFreq, aim_diagFreq, aim_tendFreq       &    aim_clrSkyDiag, aim_taveFreq, aim_diagFreq, aim_tendFreq,
88         &    aim_tave_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 260  C-    If aim_taveFreq is positive, then Line 262  C-    If aim_taveFreq is positive, then
262        ENDIF        ENDIF
263  #endif /* ALLOW_AIM_TAVE */  #endif /* ALLOW_AIM_TAVE */
264    
265    #ifdef ALLOW_MNC
266          IF (useMNC) THEN
267            IF ( .NOT.outputTypesInclusive
268         &       .AND. aim_tave_mnc ) aim_tave_mdsio = .FALSE.
269          ENDIF
270    #else
271    C     Stop if MNC is not compiled-in and aim_tave_mnc=.TRUE.
272          IF (aim_tave_mnc) THEN
273            WRITE(msgBuf,'(2A)') 'AIM_READPARMS: aim_tave_mnc=.TRUE. ',
274         &       'but ALLOW_MNC is undefined'
275            CALL PRINT_ERROR( msgBuf, myThid)
276            WRITE(msgBuf,'(2A)') 'Please re-compile with the MNC ',
277         &       'package enabled'
278            CALL PRINT_ERROR( msgBuf, myThid)
279            STOP 'ABNORMAL END: S/R AIM_READPARMS'
280          ENDIF
281    #endif /* ALLOW_MNC */
282    
283    
284  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
285  C--   Print out parameter values :  C--   Print out parameter values :
286    
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22