File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_lsm.F |
1130 |
VPDFAC |
I NCH, ITYP, ESATTC, EA, |
./pkg/fizhi/fizhi_lsm.F |
1141 |
VPDFAC |
INTEGER ITYP(NCH), ChNo |
./pkg/fizhi/fizhi_lsm.F |
1171 |
TMPFAC |
I NCH, ITYP, TC, |
./pkg/fizhi/fizhi_lsm.F |
1182 |
TMPFAC |
INTEGER ITYP(NCH), ChNo, TypPtr |
./pkg/fizhi/fizhi_lsm.F |
1214 |
TMPFAC |
TypPtr = MOD(ChNo,MemFac) + (ITYP(ChNo)-1)*MemFac + 1 |
./pkg/fizhi/fizhi_lsm.F |
1238 |
SMFAC |
I NCH, ITYP, ESATTC, EA, PHR, SOILCO, |
./pkg/fizhi/fizhi_lsm.F |
1252 |
SMFAC |
INTEGER ITYP(NCH), ChNo |
./pkg/fizhi/fizhi_lsm.F |
1407 |
WUPDAT |
I NCH, ITYP, DTSTEP, |
./pkg/fizhi/fizhi_lsm.F |
1422 |
WUPDAT |
INTEGER ITYP(NCH), ChNo |
./pkg/fizhi/fizhi_lsm.F |
1439 |
WUPDAT |
WLAY1 = SWET(ChNo,SFCLY) * VGWMAX(SFCLY,ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
1440 |
WUPDAT |
WLAY2 = SWET(ChNo,ROOTLY) * VGWMAX(ROOTLY,ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
1515 |
WUPDAT |
SWET(ChNo,SFCLY) = (WLAY1 - ELAY1) / VGWMAX(SFCLY,ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
1516 |
WUPDAT |
SWET(ChNo,ROOTLY) = (WLAY2 - ELAY2) / VGWMAX(ROOTLY,ITYP(CHNO)) |
./pkg/fizhi/fizhi_lsm.F |
1536 |
WUPDAT |
& THRU / VGWMAX(SFCLY,ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
1539 |
WUPDAT |
DEWRUN = ( SWET(ChNo,SFCLY) - 1. ) * VGWMAX(SFCLY,ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
1561 |
GWATER |
I NCH, ITYP, WSMAX, PHLAY, AKLAY, TC, |
./pkg/fizhi/fizhi_lsm.F |
1574 |
GWATER |
INTEGER ITYP(NCH), ChNo |
./pkg/fizhi/fizhi_lsm.F |
1607 |
GWATER |
& * WSMAX(SFCLY,ITYP(CHNO)) |
./pkg/fizhi/fizhi_lsm.F |
1610 |
GWATER |
& SWET(ChNo,SFCLY) * WSMAX(SFCLY,ITYP(ChNo)) ) |
./pkg/fizhi/fizhi_lsm.F |
1611 |
GWATER |
GWFLUX = MIN( GWFLUX, WSMAX(ROOTLY,ITYP(ChNo)) - |
./pkg/fizhi/fizhi_lsm.F |
1612 |
GWATER |
& SWET(ChNo,ROOTLY) * WSMAX(ROOTLY,ITYP(ChNo)) ) |
./pkg/fizhi/fizhi_lsm.F |
1616 |
GWATER |
& SWET(ChNo,ROOTLY) * WSMAX(ROOTLY,ITYP(ChNo)) ) |
./pkg/fizhi/fizhi_lsm.F |
1617 |
GWATER |
GWFLUX = -MIN( ABS(GWFLUX), WSMAX(SFCLY,ITYP(ChNo)) - |
./pkg/fizhi/fizhi_lsm.F |
1618 |
GWATER |
& SWET(ChNo,SFCLY) * WSMAX(SFCLY,ITYP(ChNo)) ) |
./pkg/fizhi/fizhi_lsm.F |
1630 |
GWATER |
& GWFLUX / WSMAX(SFCLY,ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
1632 |
GWATER |
& GWFLUX / WSMAX(ROOTLY,ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
1647 |
GWATER |
& * WSMAX(ROOTLY,ITYP(CHNO)) |
./pkg/fizhi/fizhi_lsm.F |
1650 |
GWATER |
& SWET(ChNo,ROOTLY) * WSMAX(ROOTLY,ITYP(ChNo)) ) |
./pkg/fizhi/fizhi_lsm.F |
1651 |
GWATER |
GWFLUX = MIN( GWFLUX, WSMAX(RECHLY,ITYP(ChNo)) - |
./pkg/fizhi/fizhi_lsm.F |
1652 |
GWATER |
& SWET(ChNo,RECHLY) * WSMAX(RECHLY,ITYP(ChNo)) ) |
./pkg/fizhi/fizhi_lsm.F |
1656 |
GWATER |
& SWET(ChNo,RECHLY) * WSMAX(RECHLY,ITYP(ChNo)) ) |
./pkg/fizhi/fizhi_lsm.F |
1657 |
GWATER |
GWFLUX = -MIN( ABS(GWFLUX), WSMAX(ROOTLY,ITYP(ChNo)) - |
./pkg/fizhi/fizhi_lsm.F |
1658 |
GWATER |
& SWET(ChNo,ROOTLY) * WSMAX(ROOTLY,ITYP(ChNo)) ) |
./pkg/fizhi/fizhi_lsm.F |
1669 |
GWATER |
& GWFLUX / WSMAX(ROOTLY,ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
1671 |
GWATER |
& GWFLUX / WSMAX(RECHLY,ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
1686 |
GWATER |
& SWET(ChNo,RECHLY) * WSMAX(RECHLY,ITYP(ChNo)) ) |
./pkg/fizhi/fizhi_lsm.F |
1688 |
GWATER |
& GWFLUX / WSMAX(RECHLY,ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
172 |
TILE |
VGBEEX(ChNo) = VGBEE(ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
173 |
TILE |
VGPSAX(ChNo) = VGPSAT(ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
174 |
TILE |
VGCSAX(ChNo) = VGCSAT(ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
175 |
TILE |
VGZDEX(SFCLY ,ChNo) = VGZDEP(SFCLY ,ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
176 |
TILE |
VGZDEX(ROOTLY,ChNo) = VGZDEP(ROOTLY,ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
177 |
TILE |
VGZDEX(RECHLY,ChNo) = VGZDEP(RECHLY,ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
178 |
TILE |
VGSLOX(ChNo) = VGSLOP(ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
179 |
TILE |
VGPH1X(ChNo) = VGPH1(ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
180 |
TILE |
VGPH2X(ChNo) = VGPH2(ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
181 |
TILE |
VGRPLX(ChNo) = VGRPLN(ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
207 |
TILE |
CSOIL(CHNO) = CSOIL0(ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
214 |
TILE |
SNWFRC(CHNO) = SNOW(CHNO) / ( SNOW(CHNO) + SNWMID(ITYP(CHNO)) ) |
./pkg/fizhi/fizhi_lsm.F |
219 |
TILE |
WSOI12=SWET(ChNo,SFCLY ) * VGWMAX(SFCLY ,ITYP(ChNo)) + |
./pkg/fizhi/fizhi_lsm.F |
220 |
TILE |
& SWET(ChNo,ROOTLY) * VGWMAX(ROOTLY,ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
222 |
TILE |
& (VGWMAX(SFCLY,ITYP(ChNo)) + VGWMAX(ROOTLY,ITYP(ChNo))) |
./pkg/fizhi/fizhi_lsm.F |
248 |
TILE |
I NCH, ITYP, SUNANG, SQSCAT, PDIR, |
./pkg/fizhi/fizhi_lsm.F |
254 |
TILE |
I NCH, ITYP, ESATTC, EA, |
./pkg/fizhi/fizhi_lsm.F |
259 |
TILE |
I NCH, ITYP, TC, |
./pkg/fizhi/fizhi_lsm.F |
264 |
TILE |
I NCH, ITYP, SWET12, VGBEEX, VGPSAX, VGCSAX, DELZ12, |
./pkg/fizhi/fizhi_lsm.F |
271 |
TILE |
I NCH, ITYP, ESATTC, EA, PHR, SOILCO, RCUN, |
./pkg/fizhi/fizhi_lsm.F |
303 |
TILE |
CALL VPDFAC (NCH, ITYP, ESATTX, EA, VPDSTX) |
./pkg/fizhi/fizhi_lsm.F |
304 |
TILE |
CALL TMPFAC (NCH, ITYP, TX, FTEMPX) |
./pkg/fizhi/fizhi_lsm.F |
306 |
TILE |
I NCH, ITYP, ESATTX, EA, PHR, SOILCO, RCUN, |
./pkg/fizhi/fizhi_lsm.F |
324 |
TILE |
CALL VPDFAC (NCH, ITYP, ESATTC, EAX, VPDSTX) |
./pkg/fizhi/fizhi_lsm.F |
326 |
TILE |
I NCH, ITYP, ESATTC, EAX, PHR, SOILCO, RCUN, |
./pkg/fizhi/fizhi_lsm.F |
33 |
TILE |
INTEGER ITYP(NCH) |
./pkg/fizhi/fizhi_lsm.F |
367 |
TILE |
I NCH, ITYP, DTSTEP, ESATTC, DESDTC, ALHX, |
./pkg/fizhi/fizhi_lsm.F |
389 |
TILE |
I NCH, ITYP, DTSTEP, |
./pkg/fizhi/fizhi_lsm.F |
409 |
TILE |
I NCH, ITYP, SWET (1, SFCLY), VGBEEX, |
./pkg/fizhi/fizhi_lsm.F |
414 |
TILE |
I NCH, ITYP, SWET(1,ROOTLY), VGBEEX, |
./pkg/fizhi/fizhi_lsm.F |
419 |
TILE |
I NCH, ITYP, SWET(1,RECHLY), VGBEEX, |
./pkg/fizhi/fizhi_lsm.F |
425 |
TILE |
I NCH, ITYP, VGWMAX, PHLAY, AKLAY, TC, DTSTEP, |
./pkg/fizhi/fizhi_lsm.F |
438 |
TILE |
I NCH, ITYP, SWET(1,ROOTLY), VGBEEX, |
./pkg/fizhi/fizhi_lsm.F |
444 |
TILE |
I NCH, ITYP, DTSTEP, TRAINL, TRAINC, TSNOW, SATCAP, |
./pkg/fizhi/fizhi_lsm.F |
498 |
INTERC |
I NCH, ITYP, DTSTEP, TRAINL, TRAINC, |
./pkg/fizhi/fizhi_lsm.F |
515 |
INTERC |
INTEGER ITYP(NCH), ChNo |
./pkg/fizhi/fizhi_lsm.F |
633 |
INTERC |
CAVAIL = ( 1.-WETFRC)*FWETL*WMAX(1,ITYP(ChNo))*(1-WETEQ1(CHNO)) |
./pkg/fizhi/fizhi_lsm.F |
637 |
INTERC |
* + THRUL * ( 1. - WETFRC) / WMAX(1,ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
640 |
INTERC |
SWET1(CHNO) = SWET1(CHNO) + CAVAIL / WMAX(1,ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
652 |
INTERC |
CAVAIL = (1.-WETFRC)*FWETC*WMAX(1,ITYP(ChNo))*(1-WETEQ1(CHNO)) |
./pkg/fizhi/fizhi_lsm.F |
656 |
INTERC |
* + THRUC * ( 1. - WETFRC) / WMAX(1,ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
659 |
INTERC |
SWET1(CHNO) = SWET1(CHNO) + CAVAIL / WMAX(1,ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
680 |
RCUNST |
I NCH, ITYP, SUNANG, SQSCAT, PDIR, |
./pkg/fizhi/fizhi_lsm.F |
693 |
RCUNST |
INTEGER ITYP(NCH), ChNo |
./pkg/fizhi/fizhi_lsm.F |
6 |
TILE |
I NCH, DTSTEP, ITYP, TRAINL,TRAINC, TSNOW, UM, |
./pkg/fizhi/fizhi_lsm.F |
735 |
RCUNST |
AA = 0.5 - (0.633 + 0.330*VGCHIL(ITYP(ChNo)))*VGCHIL(ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
740 |
RCUNST |
EXTK2 = (ONE / VGZMEW(ITYP(ChNo))) * SQSCAT(ChNo) |
./pkg/fizhi/fizhi_lsm.F |
752 |
RCUNST |
GAMMA = VGRST1(ITYP(ChNo)) / VGRST3(ITYP(ChNo)) + |
./pkg/fizhi/fizhi_lsm.F |
753 |
RCUNST |
& VGRST2(ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
758 |
RCUNST |
DUM1 = (VGRST2(ITYP(ChNo)) - GAMMA) / (GAMMA + 1.E-20) |
./pkg/fizhi/fizhi_lsm.F |
760 |
RCUNST |
DUM3 = ZK * VGRST3(ITYP(ChNo)) |
./pkg/fizhi/fizhi_lsm.F |
780 |
SOIL |
I NCH, ITYP, WET, VGBEEX, VGPSAX, VGCSAX, DELZ, |
./pkg/fizhi/fizhi_lsm.F |
791 |
SOIL |
INTEGER ITYP(NCH), ChNo |
./pkg/fizhi/fizhi_lsm.F |
805 |
SOIL |
PHEQ = PHR(CHNO) - DELZ(ITYP(CHNO)) |
./pkg/fizhi/fizhi_lsm.F |
822 |
FLUXES |
I NCH, ITYP, DTSTEP, ESATTC, DESDTC, ALHX, |
./pkg/fizhi/fizhi_lsm.F |
841 |
FLUXES |
INTEGER ITYP(NCH), ChNo |
./pkg/fizhi/update_earth_exports.F |
163 |
SIBALB |
& VLAI, VGRN, ZTH, SNW, ITYP, IRUN ) |
./pkg/fizhi/update_earth_exports.F |
188 |
SIBALB |
INTEGER ITYP (IRUN) |
./pkg/fizhi/update_earth_exports.F |
660 |
SIBALB |
ALPHA = COEFF (ALVDR (1, 1, ITYP (I)), NLAI, LAI ,DX, DY) |
./pkg/fizhi/update_earth_exports.F |
661 |
SIBALB |
BETA = COEFF (BTVDR (1, 1, ITYP (I)), NLAI, LAI ,DX, DY) |
./pkg/fizhi/update_earth_exports.F |
662 |
SIBALB |
GAMMA = COEFF (GMVDR (1, 1, ITYP (I)), NLAI, LAI ,DX, DY) |
./pkg/fizhi/update_earth_exports.F |
668 |
SIBALB |
ALPHA = COEFF (ALIDR (1, 1, ITYP (I)), NLAI, LAI ,DX, DY) |
./pkg/fizhi/update_earth_exports.F |
669 |
SIBALB |
BETA = COEFF (BTIDR (1, 1, ITYP (I)), NLAI, LAI ,DX, DY) |
./pkg/fizhi/update_earth_exports.F |
670 |
SIBALB |
GAMMA = COEFF (GMIDR (1, 1, ITYP (I)), NLAI, LAI ,DX, DY) |
./pkg/fizhi/update_earth_exports.F |
677 |
SIBALB |
FAC = SNW(I) / (SNW(I) + SNWMID(ITYP(I))) |
./pkg/fizhi/update_earth_exports.F |
679 |
SIBALB |
AVISDR(I) = AVISDR(I) + (SNWALB(1,ITYP(I)) - AVISDR(I)) * FAC |
./pkg/fizhi/update_earth_exports.F |
680 |
SIBALB |
ANIRDR(I) = ANIRDR(I) + (SNWALB(2,ITYP(I)) - ANIRDR(I)) * FAC |
./pkg/fizhi/update_earth_exports.F |
681 |
SIBALB |
AVISDF(I) = AVISDF(I) + (SNWALB(3,ITYP(I)) - AVISDF(I)) * FAC |
./pkg/fizhi/update_earth_exports.F |
682 |
SIBALB |
ANIRDF(I) = ANIRDF(I) + (SNWALB(4,ITYP(I)) - ANIRDF(I)) * FAC |
./pkg/fizhi/update_earth_exports.F |
705 |
GETLGR |
SUBROUTINE GETLGR(sec,IMON,IDAY,ALAT,ITYP,NCHPS,nchpdim, |
./pkg/fizhi/update_earth_exports.F |
719 |
GETLGR |
INTEGER ITYP(nchpdim,nSx,nSy) |
./pkg/fizhi/update_earth_exports.F |
808 |
GETLGR |
ALAI(I,bi,bj) = VGLA(KK2,ITYP(I,bi,bj))*FAC+ |
./pkg/fizhi/update_earth_exports.F |
809 |
GETLGR |
& VGLA(KK1,ITYP(I,bi,bj))*(ONE-FAC) |
./pkg/fizhi/update_earth_exports.F |
810 |
GETLGR |
AGRN(I,bi,bj) = VGGR(KK2,ITYP(I,bi,bj))*FAC+ |
./pkg/fizhi/update_earth_exports.F |
811 |
GETLGR |
& VGGR(KK1,ITYP(I,bi,bj))*(ONE-FAC) |