Symbol Description Uses
A0 5



File Line number Procedure Code
./pkg/fizhi/update_earth_exports.F 873 GETALB
      PARAMETER (A0= 0.40670980)
./pkg/fizhi/update_earth_exports.F 889 GETALB
       ALBOC(I,J) = A0 + (A1 + (A2 +  A3*cosz(I,J))*cosz(I,J))*cosz(I,J)
./pkg/ebm/EBM.h 58 NO PROCEDURE
      _RL Q0, Q2, A0, A2, A4
./pkg/ebm/EBM.h 60 NO PROCEDURE
      PARAMETER ( A0 = 0.322 _d 0 , A2 = 0.231 _d 0 , A4 = 0.086 _d 0  )
./pkg/ebm/ebm_atmosphere.F 251 EBM_ATMOSPHERE
     &         (1. _d 0 - A0 - A2*P2(i,j,bj) - A4*P4(i,j,bj) )