Symbol Description Uses
ALBOC 4



File Line number Procedure Code
./pkg/fizhi/update_earth_exports.F 876 GETALB
       ALBOC(I,J) = A0 + (A1 + (A2 +  A3*cosz(I,J))*cosz(I,J))*cosz(I,J)
./pkg/fizhi/update_earth_exports.F 877 GETALB
       ALBVR(I,J,bi,bj) = ALBSI*FRACI(I,J) + ALBOC(I,J)*(ONE-FRACI(I,J))