Symbol Description Uses
ALBOC 2



File Line number Procedure Code
./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/fizhi/update_earth_exports.F 890 GETALB
       ALBVR(I,J,bi,bj) = ALBSI*FRACI(I,J) + ALBOC(I,J)*(ONE-FRACI(I,J))