Symbol Description Uses
BETA 13



File Line number Procedure Code
./pkg/fizhi/slprs.F 27 SLPRS
      _RL TWO, BETA
./pkg/fizhi/slprs.F 29 SLPRS
      PARAMETER(BETA = 0.0065)
./pkg/fizhi/slprs.F 67 SLPRS
      TM(I) = TM(I) * (PLE(I,LM+1)/1000.)**AK + BETA*PHIS(I)/(TWO*G)
./pkg/fizhi/slprs.F 69 SLPRS
      TM(I) = THZ(I,LM)*(PLE(I,LM+1)/1000.)**AK + BETA*PHIS(I)/(TWO*G)
./pkg/fizhi/update_earth_exports.F 243 SIBALB
      _RL FAC,GAMMA,BETA,ALPHA,DX,DY,ALA,GRN (2),SNWALB(4,NTYPS)
./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 664 SIBALB
          AVISDR(I) = ALPHA - ZTH(I)*BETA / (GAMMA+ZTH(I))
./pkg/fizhi/update_earth_exports.F 665 SIBALB
          AVISDF(I) = ALPHA-BETA
./pkg/fizhi/update_earth_exports.F 666 SIBALB
     &          + 2.*BETA*GAMMA*(1.-GAMMA*LOG((1.+GAMMA)/GAMMA))
./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 672 SIBALB
          ANIRDR(I) = ALPHA - ZTH(I)*BETA / (GAMMA+ZTH(I))
./pkg/fizhi/update_earth_exports.F 673 SIBALB
          ANIRDF(I) = ALPHA-BETA
./pkg/fizhi/update_earth_exports.F 674 SIBALB
     &          + 2.*BETA*GAMMA*(1.-GAMMA*LOG((1.+GAMMA)/GAMMA))