/[MITgcm]/MITgcm/pkg/fizhi/fizhi_lsm.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_lsm.F

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

revision 1.6 by ce107, Thu Jun 16 16:46:12 2005 UTC revision 1.7 by ce107, Fri Jun 17 16:51:24 2005 UTC
# Line 554  C**** (Time scale TIMFRL for large scale Line 554  C**** (Time scale TIMFRL for large scale
554  C**** to reflect the effective loss of "position memory" when storm  C**** to reflect the effective loss of "position memory" when storm
555  C**** covers entire grid square.)  C**** covers entire grid square.)
556    
557        XTCORR= (1.-TIMFRL) * MIN( 1. _d 0,(CAPAC(CHNO)/SATCAP(CHNO))/FWETL )          XTCORR= (1.-TIMFRL) * MIN( 1. _d 0,(CAPAC(CHNO)/SATCAP(CHNO))/
558         $       FWETL )
559    
560  C****  C****
561  C**** Fill interception reservoir with precipitation.  C**** Fill interception reservoir with precipitation.
# Line 588  C**** Line 589  C****
589  C**** Determine XTCORR, the fraction of a storm that falls on a previously  C**** Determine XTCORR, the fraction of a storm that falls on a previously
590  C**** wet surface due to the time correlation of precipitation position.  C**** wet surface due to the time correlation of precipitation position.
591    
592        XTCORR= (1.-TIMFRC) * MIN( 1. _d 0,(CAPAC(CHNO)/SATCAP(CHNO))/FWETC )        XTCORR= (1.-TIMFRC) * MIN( 1. _d 0,(CAPAC(CHNO)/SATCAP(CHNO))/
593         $     FWETC )
594    
595  C****  C****
596  C**** Fill interception reservoir with precipitation.  C**** Fill interception reservoir with precipitation.
# Line 1514  C**** Line 1516  C****
1516        SWET(ChNo,ROOTLY) = (WLAY2 - ELAY2) / VGWMAX(ROOTLY,ITYP(CHNO))        SWET(ChNo,ROOTLY) = (WLAY2 - ELAY2) / VGWMAX(ROOTLY,ITYP(CHNO))
1517  C****  C****
1518  C**** Ensure against numerical precision problems:  C**** Ensure against numerical precision problems:
1519        SWET(ChNo,SFCLY)  = MIN( 1. _d 0, MAX( 0. _d 0, SWET(ChNo,SFCLY) ) )        SWET(ChNo,SFCLY)  = MIN( 1. _d 0, MAX( 0. _d 0, SWET(ChNo,SFCLY) )
1520        SWET(ChNo,ROOTLY) = MIN( 1. _d 0, MAX( 0. _d 0, SWET(ChNo,ROOTLY) ) )       $     )
1521          SWET(ChNo,ROOTLY) = MIN( 1. _d 0, MAX( 0. _d 0, SWET(ChNo,ROOTLY)
1522         $     ) )
1523  C****  C****
1524  C****  C****
1525  C**** -------------------------------------------------  C**** -------------------------------------------------
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22