Symbol Description Uses
KK1 4


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