Symbol Description Uses
ITYP 115



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)