Symbol Description Uses
BETA 22



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 225 SIBALB
      _RL FAC,GAMMA,BETA,ALPHA,DX,DY,ALA,GRN (2),SNWALB(4,NTYPS)
./pkg/fizhi/update_earth_exports.F 650 SIBALB
	  BETA  = COEFF (BTVDR (1, 1, ITYP (I)), NLAI, LAI ,DX, DY)
./pkg/fizhi/update_earth_exports.F 653 SIBALB
	  AVISDR(I) = ALPHA - ZTH(I)*BETA / (GAMMA+ZTH(I))
./pkg/fizhi/update_earth_exports.F 654 SIBALB
	  AVISDF(I) = ALPHA-BETA
./pkg/fizhi/update_earth_exports.F 655 SIBALB
     *          + 2.*BETA*GAMMA*(1.-GAMMA*LOG((1.+GAMMA)/GAMMA))
./pkg/fizhi/update_earth_exports.F 658 SIBALB
	  BETA  = COEFF (BTIDR (1, 1, ITYP (I)), NLAI, LAI ,DX, DY)
./pkg/fizhi/update_earth_exports.F 661 SIBALB
	  ANIRDR(I) = ALPHA - ZTH(I)*BETA / (GAMMA+ZTH(I))
./pkg/fizhi/update_earth_exports.F 662 SIBALB
	  ANIRDF(I) = ALPHA-BETA
./pkg/fizhi/update_earth_exports.F 663 SIBALB
     *          + 2.*BETA*GAMMA*(1.-GAMMA*LOG((1.+GAMMA)/GAMMA))
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F 225 SIBALB
      _RL FAC,GAMMA,BETA,ALPHA,DX,DY,ALA,GRN (2),SNWALB(4,NTYPS)
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F 650 SIBALB
	  BETA  = COEFF (BTVDR (1, 1, ITYP (I)), NLAI, LAI ,DX, DY)
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F 653 SIBALB
	  AVISDR(I) = ALPHA - ZTH(I)*BETA / (GAMMA+ZTH(I))
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F 654 SIBALB
	  AVISDF(I) = ALPHA-BETA
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F 655 SIBALB
     *          + 2.*BETA*GAMMA*(1.-GAMMA*LOG((1.+GAMMA)/GAMMA))
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F 658 SIBALB
	  BETA  = COEFF (BTIDR (1, 1, ITYP (I)), NLAI, LAI ,DX, DY)
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F 661 SIBALB
	  ANIRDR(I) = ALPHA - ZTH(I)*BETA / (GAMMA+ZTH(I))
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F 662 SIBALB
	  ANIRDF(I) = ALPHA-BETA
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F 663 SIBALB
     *          + 2.*BETA*GAMMA*(1.-GAMMA*LOG((1.+GAMMA)/GAMMA))