Symbol Description Uses
KK2 4



File Line number Procedure Code
./pkg/fizhi/update_earth_exports.F 802 GETLGR
       KK2 = K2
./pkg/fizhi/update_earth_exports.F 805 GETLGR
       KK2 = MOD(K2+5,12) + 1
./pkg/fizhi/update_earth_exports.F 808 GETLGR
      ALAI(I,bi,bj) = VGLA(KK2,ITYP(I,bi,bj))*FAC+
./pkg/fizhi/update_earth_exports.F 810 GETLGR
      AGRN(I,bi,bj) = VGGR(KK2,ITYP(I,bi,bj))*FAC+