/[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.6 by jmc, Thu Mar 11 14:33:19 2004 UTC revision 1.7 by jmc, Fri May 14 16:08:38 2004 UTC
# Line 103  C      ALBSN  = Albedo over snow (for sn Line 103  C      ALBSN  = Albedo over snow (for sn
103  C      SDALB  = Snow depth (mm water) corresponding to maximum albedo  C      SDALB  = Snow depth (mm water) corresponding to maximum albedo
104  C      SWCAP  = Soil wetness at field capacity (volume fraction)  C      SWCAP  = Soil wetness at field capacity (volume fraction)
105  C      SWWIL  = Soil wetness at wilting point  (volume fraction)  C      SWWIL  = Soil wetness at wilting point  (volume fraction)
106    C      hSnowWetness :: snow depth (m) corresponding to maximum wetness
107        NAMELIST /AIM_PAR_FOR/        NAMELIST /AIM_PAR_FOR/
108       &    SOLC, ALBSEA, ALBICE, ALBSN,       &    SOLC, ALBSEA, ALBICE, ALBSN,
109       &    SDALB, SWCAP, SWWIL       &    SDALB, SWCAP, SWWIL, hSnowWetness
110    
111  C--   Constants for surface fluxes (common SFLCON) :  C--   Constants for surface fluxes (common SFLCON) :
112  C      FWIND0 = ratio of near-sfc wind to lowest-level wind  C      FWIND0 = ratio of near-sfc wind to lowest-level wind
# Line 301  C- namelist AIM_PAR_FOR: Line 302  C- namelist AIM_PAR_FOR:
302       &  '   /* Soil wetness at field capacity (Vol.fract.) */')       &  '   /* Soil wetness at field capacity (Vol.fract.) */')
303         CALL WRITE_0D_R8( SWWIL, INDEX_NONE,'AIM_FOR:  SWWIL =',         CALL WRITE_0D_R8( SWWIL, INDEX_NONE,'AIM_FOR:  SWWIL =',
304       &  '   /* Soil wetness at wilting point  (Vol.fract.) */')       &  '   /* Soil wetness at wilting point  (Vol.fract.) */')
305           CALL WRITE_0D_R8( hSnowWetness, INDEX_NONE,
306         &  'AIM_FOR: hSnowWetness=',
307         &  '   /* snow depth corresp. maximum wetness (m) */')
308    
309  C- namelist AIM_PAR_SFL:  C- namelist AIM_PAR_SFL:
310         CALL WRITE_0D_R8( FWIND0,INDEX_NONE,'AIM_SFL: FWIND0 =',         CALL WRITE_0D_R8( FWIND0,INDEX_NONE,'AIM_SFL: FWIND0 =',
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22