/[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.13 by jmc, Wed Oct 18 20:08:15 2006 UTC revision 1.14 by enderton, Thu Feb 8 17:41:37 2007 UTC
# Line 81  C     aim_clrSkyDiag :: compute clear-sk Line 81  C     aim_clrSkyDiag :: compute clear-sk
81  C     aim_taveFreq :: Frequency^-1 for time-average output (s)  C     aim_taveFreq :: Frequency^-1 for time-average output (s)
82  C     aim_diagFreq :: Frequency^-1 for diagnostic output (s)  C     aim_diagFreq :: Frequency^-1 for diagnostic output (s)
83  C     aim_tendFreq :: Frequency^-1 for tendencies output (s)  C     aim_tendFreq :: Frequency^-1 for tendencies output (s)
84    C     aim_selectOceAlbedo :: Ocean albedo(latitude) scheme (integer)
85    C                              0 = constant (default)
86    C                              1 = Briegleb et al. 1986
87        NAMELIST /AIM_PARAMS/        NAMELIST /AIM_PARAMS/
88       &    aim_useFMsurfBC, aim_useMMsurfFc,       &    aim_useFMsurfBC, aim_useMMsurfFc,
89       &    aim_surfForc_TimePeriod, aim_surfForc_NppCycle,       &    aim_surfForc_TimePeriod, aim_surfForc_NppCycle,
# Line 93  C     aim_tendFreq :: Frequency^-1 for t Line 96  C     aim_tendFreq :: Frequency^-1 for t
96       &    aim_dragStrato,       &    aim_dragStrato,
97       &    aim_clrSkyDiag, aim_taveFreq, aim_diagFreq, aim_tendFreq,       &    aim_clrSkyDiag, aim_taveFreq, aim_diagFreq, aim_tendFreq,
98       &    aim_timeave_mnc, aim_snapshot_mnc,       &    aim_timeave_mnc, aim_snapshot_mnc,
99       &    aim_pickup_write_mnc, aim_pickup_read_mnc       &    aim_pickup_write_mnc, aim_pickup_read_mnc,
100         &    aim_selectOceAlbedo
101    
102  C--   Physical constants (common PHYCON) :  C--   Physical constants (common PHYCON) :
103  C       P0    = reference pressure                 [Pa=N/m2]  C       P0    = reference pressure                 [Pa=N/m2]
# Line 229  C-    Length (s) of one time period: Line 233  C-    Length (s) of one time period:
233        aim_surfForc_TimePeriod = 30.*86400.        aim_surfForc_TimePeriod = 30.*86400.
234  C-    Number of time period per Cycle:  C-    Number of time period per Cycle:
235        aim_surfForc_NppCycle   = 12        aim_surfForc_NppCycle   = 12
236          aim_selectOceAlbedo = 0
237  C-    define how fast the (linear) transition is from one month to the next  C-    define how fast the (linear) transition is from one month to the next
238  C      = 1                 -> linear between 2 midle month  C      = 1                 -> linear between 2 midle month
239  C      > TimePeriod/deltaT -> jump from one month to the next one  C      > TimePeriod/deltaT -> jump from one month to the next one
# Line 386  C- namelist AIM_PARAMS: Line 391  C- namelist AIM_PARAMS:
391       &  '   /* Frequency^-1 for diagnostic output (s) */')       &  '   /* Frequency^-1 for diagnostic output (s) */')
392         CALL WRITE_0D_R8( aim_tendFreq, INDEX_NONE,'aim_tendFreq =',         CALL WRITE_0D_R8( aim_tendFreq, INDEX_NONE,'aim_tendFreq =',
393       &  '   /* Frequency^-1 for tendencies output (s) */')       &  '   /* Frequency^-1 for tendencies output (s) */')
394           CALL WRITE_0D_I( aim_selectOceAlbedo, INDEX_NONE,
395         &                 'aim_selectOceAlbedo =',
396         &  '   /* Ocean albedo(latitude) flag */')
397    
398  C- namelist AIM_PAR_FOR:  C- namelist AIM_PAR_FOR:
399         CALL WRITE_0D_R8( SOLC,  INDEX_NONE,'AIM_FOR:   SOLC =',         CALL WRITE_0D_R8( SOLC,  INDEX_NONE,'AIM_FOR:   SOLC =',
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22