/[MITgcm]/MITgcm/pkg/exf/exf_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_readparms.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.58 by gforget, Wed Apr 14 23:02:18 2010 UTC revision 1.59 by gforget, Thu Apr 15 00:47:00 2010 UTC
# Line 77  c     Surface flux data. Line 77  c     Surface flux data.
77       & useExfYearlyFields,  twoDigitYear,   useExfCheckRange,       & useExfYearlyFields,  twoDigitYear,   useExfCheckRange,
78       & useStabilityFct_overIce, readStressOnAgrid, readStressOnCgrid,       & useStabilityFct_overIce, readStressOnAgrid, readStressOnCgrid,
79       & useRelativeWind, noNegativeEvap,       & useRelativeWind, noNegativeEvap,
80       & useExfZenAlbedo, useExfZenIncoming,       & select_ZenAlbedo, useExfZenIncoming,
81       & hu, ht, umin, atmrho, atmcp, cen2kel, gravity_mks,       & hu, ht, umin, atmrho, atmcp, cen2kel, gravity_mks,
82       & cdrag_1, cdrag_2, cdrag_3, cstanton_1, cstanton_2, cdalton,       & cdrag_1, cdrag_2, cdrag_3, cstanton_1, cstanton_2, cdalton,
83       & flamb, flami, zolmin, zref,       & flamb, flami, zolmin, zref,
# Line 212  c     Set default values. Line 212  c     Set default values.
212        exf_monFreq        = monitorFreq        exf_monFreq        = monitorFreq
213        useExfCheckRange   = .TRUE.        useExfCheckRange   = .TRUE.
214        useExfZenAlbedo    = .FALSE.        useExfZenAlbedo    = .FALSE.
215          select_ZenAlbedo   = 0
216        useExfZenIncoming  = .FALSE.        useExfZenIncoming  = .FALSE.
217        readStressOnAgrid  = .FALSE.        readStressOnAgrid  = .FALSE.
218        readStressOnCgrid  = .FALSE.        readStressOnCgrid  = .FALSE.
# Line 765  C--   Derive other parameters: Line 766  C--   Derive other parameters:
766        stressIsOnCgrid = readStressOnCgrid        stressIsOnCgrid = readStressOnCgrid
767  #endif  #endif
768    
769          if ( select_ZenAlbedo.GT.0 ) then
770               useExfZenAlbedo=.TRUE.
771          endif
772    
773  #ifdef ALLOW_CLIMSST_RELAXATION  #ifdef ALLOW_CLIMSST_RELAXATION
774  cgf warning before we overwrite tauThetaClimRelax/thetaClimFile:  cgf warning before we overwrite tauThetaClimRelax/thetaClimFile:
775        if ( (tauThetaClimRelax.NE.0.).AND.        if ( (tauThetaClimRelax.NE.0.).AND.
Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59
  ViewVC Help
Powered by ViewVC 1.1.22