Symbol Description Uses
KK1 8


File Line number Procedure Code
./pkg/fizhi/update_earth_exports.F 791 GETLGR 
       KK1 = K1
./pkg/fizhi/update_earth_exports.F 794 GETLGR 
       KK1 = MOD(K1+5,12) + 1
./pkg/fizhi/update_earth_exports.F 799 GETLGR 
     .                                 VGLA(KK1,ITYP(I,bi,bj))*(ONE-FAC)
./pkg/fizhi/update_earth_exports.F 801 GETLGR 
     .                                 VGGR(KK1,ITYP(I,bi,bj))*(ONE-FAC)