/[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.2 by molod, Fri Jul 16 19:52:21 2004 UTC revision 1.3 by molod, Fri Jul 16 20:00:42 2004 UTC
# Line 859  C**** Line 859  C****
859       &           DEA,     DTC,  SNLEFT,     Q0X,  Q0SNOW,       &           DEA,     DTC,  SNLEFT,     Q0X,  Q0SNOW,
860       &         EANEW,  ESATNW,  EHARMN, DETERM, DENOM       &         EANEW,  ESATNW,  EHARMN, DETERM, DENOM
861    
862        LOGICAL DEBUG, CHOKE        LOGICAL CHOKE
       DATA DEBUG /.FALSE./  
863        real deepfac(ntyps)        real deepfac(ntyps)
864        DATA deepfac /1.,1.,1.,1.,1.,1.,1.,1.,1.,1./        DATA deepfac /1.,1.,1.,1.,1.,1.,1.,1.,1.,1./
865  C****  C****
# Line 1139  C**** Line 1138  C****
1138        INTEGER NCH        INTEGER NCH
1139        INTEGER ITYP(NCH), ChNo        INTEGER ITYP(NCH), ChNo
1140        REAL    ESATTC(NCH), EA(NCH),  VPDSTR(NCH)        REAL    ESATTC(NCH), EA(NCH),  VPDSTR(NCH)
1141        REAL  VGDFAC(NTYPS)  c     REAL  VGDFAC(NTYPS)
1142  C****  C****
1143        DATA VGDFAC /   .0273,    .0357,    .0310,    .0238,  c     DATA VGDFAC /   .0273,    .0357,    .0310,    .0238,
1144       5                .0275,    .0275,       0.,       0.,  c    5                .0275,    .0275,       0.,       0.,
1145       9                   0.,      0. /  c    9                   0.,      0. /
1146  C****  C****
1147  C**** -----------------------------------------------------------------  C**** -----------------------------------------------------------------
1148    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22