/[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.3 by jmc, Fri Jan 3 03:51:26 2003 UTC revision 1.5 by jmc, Thu Jul 31 18:40:57 2003 UTC
# Line 24  C     !USES: Line 24  C     !USES:
24  C     == Global variables ===  C     == Global variables ===
25  #include "AIM_SIZE.h"  #include "AIM_SIZE.h"
26  #include "EEPARAMS.h"  #include "EEPARAMS.h"
27  c #include "PARAMS.h"  #include "PARAMS.h"
28  #include "AIM_PARAMS.h"  #include "AIM_PARAMS.h"
29    
30  C-   Physical constants + functions of sigma and latitude  C-   Physical constants + functions of sigma and latitude
# Line 67  C     aim_lstFile  :: file name for Land Line 67  C     aim_lstFile  :: file name for Land
67  C     aim_oiceFile :: file name for Sea Ice fraction    (F.M. surfBC)  C     aim_oiceFile :: file name for Sea Ice fraction    (F.M. surfBC)
68  C     aim_snowFile :: file name for Snow depth          (F.M. surfBC)  C     aim_snowFile :: file name for Snow depth          (F.M. surfBC)
69  C     aim_swcFile  :: file name for Soil Water content  (F.M. surfBC)  C     aim_swcFile  :: file name for Soil Water content  (F.M. surfBC)
70    C     aim_dragStrato :: stratospheric-drag damping time scale (s)
71  C     aim_taveFreq :: Frequency^-1 for time-average output (s)  C     aim_taveFreq :: Frequency^-1 for time-average output (s)
72  C     aim_diagFreq :: Frequency^-1 for diagnostic output (s)  C     aim_diagFreq :: Frequency^-1 for diagnostic output (s)
73  C     aim_tendFreq :: Frequency^-1 for tendencies output (s)  C     aim_tendFreq :: Frequency^-1 for tendencies output (s)
# Line 76  C     aim_tendFreq :: Frequency^-1 for t Line 77  C     aim_tendFreq :: Frequency^-1 for t
77       &    aim_LandFile, aim_albFile, aim_vegFile,       &    aim_LandFile, aim_albFile, aim_vegFile,
78       &    aim_sstFile, aim_lstFile, aim_oiceFile, aim_snowFile,       &    aim_sstFile, aim_lstFile, aim_oiceFile, aim_snowFile,
79       &    aim_swcFile,       &    aim_swcFile,
80         &    aim_dragStrato,
81       &    aim_taveFreq, aim_diagFreq, aim_tendFreq       &    aim_taveFreq, aim_diagFreq, aim_tendFreq
82    
83  C--   Physical constants (common PHYCON) :  C--   Physical constants (common PHYCON) :
# Line 248  C--   Print out parameter values : Line 250  C--   Print out parameter values :
250        WRITE(msgBuf,'(A)') '// ==================================='        WRITE(msgBuf,'(A)') '// ==================================='
251        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
252    
253           CALL WRITE_0D_L( useLand, INDEX_NONE,
254         &                 'useLand =',
255         &'   /* use Land package for surf.BC over land  */')      
256    
257  C- namelist AIM_PARAMS:  C- namelist AIM_PARAMS:
258         CALL WRITE_0D_L( aim_useFMsurfBC, INDEX_NONE,         CALL WRITE_0D_L( aim_useFMsurfBC, INDEX_NONE,
259       &                 'aim_useFMsurfBC =',       &                 'aim_useFMsurfBC =',
# Line 258  C- namelist AIM_PARAMS: Line 264  C- namelist AIM_PARAMS:
264         CALL WRITE_0D_L( aim_surfPotTemp, INDEX_NONE,         CALL WRITE_0D_L( aim_surfPotTemp, INDEX_NONE,
265       &                 'aim_surfPotTemp =',       &                 'aim_surfPotTemp =',
266       &'   /* Surf Temp file in Pot.Temp on/off flag */')             &'   /* Surf Temp file in Pot.Temp on/off flag */')      
267           CALL WRITE_0D_R8(aim_dragStrato,INDEX_NONE,'aim_dragStrato=',
268         &    ' /* stratospheric-drag damping time scale (s) */')
269         CALL WRITE_0D_R8( aim_taveFreq, INDEX_NONE,'aim_taveFreq =',         CALL WRITE_0D_R8( aim_taveFreq, INDEX_NONE,'aim_taveFreq =',
270       &  '   /* Frequency^-1 for time-Aver. output (s) */')       &  '   /* Frequency^-1 for time-Aver. output (s) */')
271         CALL WRITE_0D_R8( aim_diagFreq, INDEX_NONE,'aim_diagFreq =',         CALL WRITE_0D_R8( aim_diagFreq, INDEX_NONE,'aim_diagFreq =',
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22