Symbol Description Uses
GMH 15



File Line number Procedure Code
./pkg/fizhi/fizhi_moist.F 1207 RAS
      _RL HST(lng,K), QOL(lng,K), GMH(lng,K)
./pkg/fizhi/fizhi_moist.F 1301 RAS
     *,           HST, QOL, GMH
./pkg/fizhi/fizhi_moist.F 1505 CLOUD
     *,                 HST, QOL, GMH
./pkg/fizhi/fizhi_moist.F 1645 CLOUD
      _RL GMH(LENC,K)
./pkg/fizhi/fizhi_moist.F 2059 CLOUD
      GMH(I,K) = HOL(I,K) + TX3(I) * PRI(II,K) * (ALBCP)
./pkg/fizhi/fizhi_moist.F 2062 CLOUD
     *                               * GMH(I,K)
./pkg/fizhi/fizhi_moist.F 2074 CLOUD
         GMH(I,L) = HOL(I,L) + TX2(I)   * PRI(II,L) * (ALBCP*HALF)
./pkg/fizhi/fizhi_moist.F 2084 CLOUD
      GMH(I,IC) = TX1(I) + PRI(I1(I),IC) * ONEBCP
./pkg/fizhi/fizhi_moist.F 2092 CLOUD
         TX1(I) = GMH(I,K)
./pkg/fizhi/fizhi_moist.F 2097 CLOUD
         TX1(I) = TX1(I) + (ETA(I,L) - ETA(I,L+1)) * GMH(I,L)
./pkg/fizhi/fizhi_moist.F 2129 CLOUD
         GMH(I,IC1) = GMH(I,IC1) + GMH(I,IC) * TEM
./pkg/fizhi/fizhi_moist.F 2130 CLOUD
         GMH(I,IC)  = ZERO
./pkg/fizhi/fizhi_moist.F 2195 CLOUD
      TEM      = (GMH(I,L) - HOL(I,L)) * TX4(I)