/[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.4 by molod, Mon Jul 26 18:45:17 2004 UTC revision 1.5 by molod, Fri Jul 30 18:59:32 2004 UTC
# Line 231  C      SMELT(CHNO)  = 0. Line 231  C      SMELT(CHNO)  = 0.
231        FWSOIL(CHNO) = 0.        FWSOIL(CHNO) = 0.
232   100  CONTINUE   100  CONTINUE
233    
   
234  C****  C****
235  C**** - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  C**** - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
236  C****       STEP 1: COMPUTE EFFECTIVE RESISTANCE RC FOR ENERGY BALANCE.  C****       STEP 1: COMPUTE EFFECTIVE RESISTANCE RC FOR ENERGY BALANCE.
# Line 364  C****         EIRFRC=fraction of total e Line 363  C****         EIRFRC=fraction of total e
363        ALHX(CHNO) = (1.-ESNFRC(CHNO))*ALHE + ESNFRC(CHNO)*ALHS        ALHX(CHNO) = (1.-ESNFRC(CHNO))*ALHE + ESNFRC(CHNO)*ALHS
364    200 CONTINUE    200 CONTINUE
365    
   
366        CALL FLUXES (        CALL FLUXES (
367       I                NCH,   ITYP, DTSTEP, ESATTC, DESDTC,   ALHX,       I                NCH,   ITYP, DTSTEP, ESATTC, DESDTC,   ALHX,
368       I              ETURB,  DEDEA,  DEDTC, HSTURB, DHSDEA, DHSDTC,       I              ETURB,  DEDEA,  DEDTC, HSTURB, DHSDEA, DHSDTC,
# Line 876  C**** Line 874  C****
874  C****  C****
875  C**** Compute matrix elements A11, A22, AND Q0 (energy balance equation).  C**** Compute matrix elements A11, A22, AND Q0 (energy balance equation).
876  C****  C****
877    
878        A11 = CSOIL(ChNo)/DTSTEP +        A11 = CSOIL(ChNo)/DTSTEP +
879       &        DHLWTC +       &        DHLWTC +
880       &        DHSDTC(ChNo) +       &        DHSDTC(ChNo) +
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22