/[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.18 by dfer, Thu Sep 24 20:08:06 2009 UTC revision 1.19 by dfer, Tue Oct 26 20:59:53 2010 UTC
# Line 116  C     tFreeze = freezing temperature of Line 116  C     tFreeze = freezing temperature of
116    
117  C--   Constants for forcing fields (common FORCON) :  C--   Constants for forcing fields (common FORCON) :
118  C      SOLC   = Solar constant (area averaged) in W/m^2  C      SOLC   = Solar constant (area averaged) in W/m^2
119    C      OBLIQ  = Obliquity (in degree) only used if #define ALLOW_INSOLATION
120  C      ALBSEA = Albedo over sea  C      ALBSEA = Albedo over sea
121  C      ALBICE = Albedo over sea ice (for ice fraction = 1)  C      ALBICE = Albedo over sea ice (for ice fraction = 1)
122  C      ALBSN  = Albedo over snow (for snow depth > SDALB)  C      ALBSN  = Albedo over snow (for snow depth > SDALB)
# Line 125  C      SWWIL  = Soil wetness at wilting Line 126  C      SWWIL  = Soil wetness at wilting
126  C      hSnowWetness :: snow depth (m) corresponding to maximum wetness  C      hSnowWetness :: snow depth (m) corresponding to maximum wetness
127        NAMELIST /AIM_PAR_FOR/        NAMELIST /AIM_PAR_FOR/
128       &    SOLC, ALBSEA, ALBICE, ALBSN,       &    SOLC, ALBSEA, ALBICE, ALBSN,
129       &    SDALB, SWCAP, SWWIL, hSnowWetness       &    SDALB, SWCAP, SWWIL, hSnowWetness, OBLIQ
130    
131  C--   Constants for surface fluxes (common SFLCON) :  C--   Constants for surface fluxes (common SFLCON) :
132  C      FWIND0 = ratio of near-sfc wind to lowest-level wind  C      FWIND0 = ratio of near-sfc wind to lowest-level wind
# Line 259  C      > TimePeriod/deltaT -> jump from Line 260  C      > TimePeriod/deltaT -> jump from
260        aim_taveFreq = taveFreq        aim_taveFreq = taveFreq
261        aim_diagFreq = dumpFreq        aim_diagFreq = dumpFreq
262        aim_tendFreq = 0.        aim_tendFreq = 0.
263          OBLIQ = 23.45 _d 0
264  #ifdef ALLOW_AIM_CO2  #ifdef ALLOW_AIM_CO2
265        atmpCO2init  = 326. _d -6        atmpCO2init  = 326. _d -6
266        Aim_CO2_Flag = 1        Aim_CO2_Flag = 1
# Line 416  C- namelist AIM_PARAMS: Line 418  C- namelist AIM_PARAMS:
418  C- namelist AIM_PAR_FOR:  C- namelist AIM_PAR_FOR:
419         CALL WRITE_0D_RL( SOLC,  INDEX_NONE,'AIM_FOR:   SOLC =',         CALL WRITE_0D_RL( SOLC,  INDEX_NONE,'AIM_FOR:   SOLC =',
420       &  '   /* Solar constant (area averaged) in W/m2 */')       &  '   /* Solar constant (area averaged) in W/m2 */')
421           CALL WRITE_0D_RL( OBLIQ, INDEX_NONE,'AIM_FOR:  OBLIQ =',
422         &  '   /* Obliquity (degree) used with ALLOW_INSOLATION */')
423         CALL WRITE_0D_RL( ALBSEA,INDEX_NONE,'AIM_FOR: ALBSEA =',         CALL WRITE_0D_RL( ALBSEA,INDEX_NONE,'AIM_FOR: ALBSEA =',
424       &  '   /* Albedo over sea [0-1]      */')       &  '   /* Albedo over sea [0-1]      */')
425         CALL WRITE_0D_RL( ALBICE,INDEX_NONE,'AIM_FOR: ALBICE =',         CALL WRITE_0D_RL( ALBICE,INDEX_NONE,'AIM_FOR: ALBICE =',
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22