/[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.1 by jmc, Fri Nov 22 17:17:03 2002 UTC revision 1.2 by jmc, Tue Dec 10 02:35:27 2002 UTC
# Line 25  C     == Global variables === Line 25  C     == Global variables ===
25  #include "AIM_SIZE.h"  #include "AIM_SIZE.h"
26  #include "EEPARAMS.h"  #include "EEPARAMS.h"
27  c #include "PARAMS.h"  c #include "PARAMS.h"
28    #include "AIM_PARAMS.h"
29    
30  C-   Physical constants + functions of sigma and latitude  C-   Physical constants + functions of sigma and latitude
31  c #include "com_physcon.h"  c #include "com_physcon.h"
# Line 52  C     iUnit       - Work variable for IO Line 53  C     iUnit       - Work variable for IO
53    
54  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
55    
56    C--   AIM interface parameter (common AIM_PARM_?):
57    C     aim_useFMsurfBC :: select surface B.C. from Franco Molteni
58    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)
60    C     aim_MMsufx   :: sufix for all Monthly Mean surface forcing files
61    C     aim_MMsufxLength :: Length of sufix (Monthly Mean surf. forc. files)
62    C     aim_LandFile :: file name for Land fraction       (F.M. surfBC)
63    C     aim_albFile  :: file name for Albedo input file   (F.M. surfBC)
64    C     aim_vegFile  :: file name for vegetation fraction (F.M. surfBC)
65    C     aim_sstFile  :: file name for  Sea.Surf.Temp      (F.M. surfBC)
66    C     aim_lstFile  :: file name for Land.Surf.Temp      (F.M. surfBC)
67    C     aim_oiceFile :: file name for Sea Ice fraction    (F.M. surfBC)
68    C     aim_snowFile :: file name for Snow depth          (F.M. surfBC)
69    C     aim_swcFile  :: file name for Soil Water content  (F.M. surfBC)
70    C     aim_diagFreq :: Frequency^-1 for diagnostic output (s)
71    C     aim_tendFreq :: Frequency^-1 for tendencies output (s)
72          NAMELIST /AIM_PARAMS/
73         &    aim_useFMsurfBC, aim_useMMsurfFc, aim_surfPotTemp,
74         &    aim_MMsufx, aim_MMsufxLength,
75         &    aim_LandFile, aim_albFile, aim_vegFile,
76         &    aim_sstFile, aim_lstFile, aim_oiceFile, aim_snowFile,
77         &    aim_swcFile,
78         &    aim_diagFreq, aim_tendFreq
79    
80  C--   Physical constants (common PHYCON) :  C--   Physical constants (common PHYCON) :
81  C      P0   = reference pressure  C      P0   = reference pressure
82  C      GG   = gravity accel.  C      GG   = gravity accel.
# Line 165  C---+----1----+----2----+----3----+----4 Line 190  C---+----1----+----2----+----3----+----4
190    
191  C--   Read parameters from open data file:  C--   Read parameters from open data file:
192    
193    C-    Parameters for AIM interface code:
194          READ(UNIT=iUnit,NML=AIM_PARAMS)
195    
196  C-    Constants for boundary forcing  C-    Constants for boundary forcing
197        READ(UNIT=iUnit,NML=AIM_PAR_FOR)        READ(UNIT=iUnit,NML=AIM_PAR_FOR)
198    
# Line 202  C--   Print out parameter values : Line 230  C--   Print out parameter values :
230        WRITE(msgBuf,'(A)') '// ==================================='        WRITE(msgBuf,'(A)') '// ==================================='
231        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
232    
233    C- namelist AIM_PARAMS:
234           CALL WRITE_0D_L( aim_useFMsurfBC, INDEX_NONE,
235         &                 'aim_useFMsurfBC =',
236         &'   /* F.Molteni surf. BC scheme on/off flag */')      
237           CALL WRITE_0D_L( aim_useMMsurfFc, INDEX_NONE,
238         &                 'aim_useMMsurfFc =',
239         &'   /* Monthly Mean surf. Forcing on/off flag */')      
240           CALL WRITE_0D_L( aim_surfPotTemp, INDEX_NONE,
241         &                 'aim_surfPotTemp =',
242         &'   /* Surf Temp file in Pot.Temp on/off flag */')      
243           CALL WRITE_0D_R8( aim_diagFreq, INDEX_NONE,'aim_diagFreq =',
244         &  '   /* Frequency^-1 for diagnostic output (s) */')
245           CALL WRITE_0D_R8( aim_tendFreq, INDEX_NONE,'aim_tendFreq =',
246         &  '   /* Frequency^-1 for tendencies output (s) */')
247    
248  C- namelist AIM_PAR_FOR:  C- namelist AIM_PAR_FOR:
249         CALL WRITE_0D_R8( SOLC,  INDEX_NONE,'AIM_FOR:   SOLC =',         CALL WRITE_0D_R8( SOLC,  INDEX_NONE,'AIM_FOR:   SOLC =',
250       &  '   /* Solar constant (area averaged) in W/m2 */')       &  '   /* Solar constant (area averaged) in W/m2 */')
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22