/[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.5 by jmc, Thu Jul 31 18:40:57 2003 UTC revision 1.6 by jmc, Thu Mar 11 14:33:19 2004 UTC
# Line 57  C--   AIM interface parameter (common AI Line 57  C--   AIM interface parameter (common AI
57  C     aim_useFMsurfBC :: select surface B.C. from Franco Molteni  C     aim_useFMsurfBC :: select surface B.C. from Franco Molteni
58  C     aim_useMMsurfFc :: select Monthly Mean surface forcing (e.g., NCEP)  C     aim_useMMsurfFc :: select Monthly Mean surface forcing (e.g., NCEP)
59  C     aim_surfPotTemp :: surf.Temp input file is in Pot.Temp (aim_useMMsurfFc)  C     aim_surfPotTemp :: surf.Temp input file is in Pot.Temp (aim_useMMsurfFc)
60    C     aim_energPrecip :: account for energy of precipitation (snow & rain temp)
61    C     aim_splitSIOsFx :: compute separately Sea-Ice & Ocean surf. Flux
62    C                 (also land SW & LW) ; default=F as in original version
63  C     aim_MMsufx   :: sufix for all Monthly Mean surface forcing files  C     aim_MMsufx   :: sufix for all Monthly Mean surface forcing files
64  C     aim_MMsufxLength :: Length of sufix (Monthly Mean surf. forc. files)  C     aim_MMsufxLength :: Length of sufix (Monthly Mean surf. forc. files)
65  C     aim_LandFile :: file name for Land fraction       (F.M. surfBC)  C     aim_LandFile :: file name for Land fraction       (F.M. surfBC)
# Line 72  C     aim_taveFreq :: Frequency^-1 for t Line 75  C     aim_taveFreq :: Frequency^-1 for t
75  C     aim_diagFreq :: Frequency^-1 for diagnostic output (s)  C     aim_diagFreq :: Frequency^-1 for diagnostic output (s)
76  C     aim_tendFreq :: Frequency^-1 for tendencies output (s)  C     aim_tendFreq :: Frequency^-1 for tendencies output (s)
77        NAMELIST /AIM_PARAMS/        NAMELIST /AIM_PARAMS/
78       &    aim_useFMsurfBC, aim_useMMsurfFc, aim_surfPotTemp,       &    aim_useFMsurfBC, aim_useMMsurfFc,
79         &    aim_surfPotTemp, aim_energPrecip, aim_splitSIOsFx,
80       &    aim_MMsufx, aim_MMsufxLength,       &    aim_MMsufx, aim_MMsufxLength,
81       &    aim_LandFile, aim_albFile, aim_vegFile,       &    aim_LandFile, aim_albFile, aim_vegFile,
82       &    aim_sstFile, aim_lstFile, aim_oiceFile, aim_snowFile,       &    aim_sstFile, aim_lstFile, aim_oiceFile, aim_snowFile,
# Line 81  C     aim_tendFreq :: Frequency^-1 for t Line 85  C     aim_tendFreq :: Frequency^-1 for t
85       &    aim_taveFreq, aim_diagFreq, aim_tendFreq       &    aim_taveFreq, aim_diagFreq, aim_tendFreq
86    
87  C--   Physical constants (common PHYCON) :  C--   Physical constants (common PHYCON) :
88  C      P0   = reference pressure  C       P0    = reference pressure                 [Pa=N/m2]
89  C      GG   = gravity accel.  C       GG    = gravity accel.                     [m/s2]
90  C      RD   = gas constant for dry air  C       RD    = gas constant for dry air           [J/kg/K]
91  C      CP   = specific heat at constant pressure  C       CP    = specific heat at constant pressure [J/kg/K]
92  C      ALHC = latent heat of condensation  C       ALHC  = latent heat of condensation        [J/g]
93  C      SBC  = Stefan-Boltzmann constant              C       ALHF  = latent heat of freezing            [J/g]
94    C       SBC   = Stefan-Boltzmann constant
95    C     rainCP  = heat capacity of liquid water      [J/g/K]
96    C     tFreeze = freezing temperature of pure water [K]
97    
98  C--   Constants for forcing fields (common FORCON) :  C--   Constants for forcing fields (common FORCON) :
99  C      SOLC   = Solar constant (area averaged) in W/m^2  C      SOLC   = Solar constant (area averaged) in W/m^2
# Line 264  C- namelist AIM_PARAMS: Line 271  C- namelist AIM_PARAMS:
271         CALL WRITE_0D_L( aim_surfPotTemp, INDEX_NONE,         CALL WRITE_0D_L( aim_surfPotTemp, INDEX_NONE,
272       &                 'aim_surfPotTemp =',       &                 'aim_surfPotTemp =',
273       &'   /* Surf Temp file in Pot.Temp on/off flag */')             &'   /* Surf Temp file in Pot.Temp on/off flag */')      
274           CALL WRITE_0D_L( aim_energPrecip, INDEX_NONE,
275         &                 'aim_energPrecip =',
276         &  ' /* account for energy of precip. on/off flag */')      
277           CALL WRITE_0D_L( aim_splitSIOsFx, INDEX_NONE,
278         &                 'aim_splitSIOsFx =',
279         &  ' /* separate Sea-Ice & Ocean Flux on/off flag */')      
280         CALL WRITE_0D_R8(aim_dragStrato,INDEX_NONE,'aim_dragStrato=',         CALL WRITE_0D_R8(aim_dragStrato,INDEX_NONE,'aim_dragStrato=',
281       &    ' /* stratospheric-drag damping time scale (s) */')       &    ' /* stratospheric-drag damping time scale (s) */')
282         CALL WRITE_0D_R8( aim_taveFreq, INDEX_NONE,'aim_taveFreq =',         CALL WRITE_0D_R8( aim_taveFreq, INDEX_NONE,'aim_taveFreq =',
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22