Symbol Description Uses
K2 7



File Line number Procedure Code
./pkg/fizhi/update_earth_exports.F 778 GETLGR
        K2 = IMON
./pkg/fizhi/update_earth_exports.F 782 GETLGR
        K2 = MOD(IMON,12) + 1
./pkg/fizhi/update_earth_exports.F 791 GETLGR
        MIDP = DAYS(K2)/2 + 1 + DAYS(K1)
./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/opps/opps_calc.F 328 OPPS_CALC
         IF ( Wd(K2) .NE. 0. _d 0 ) dt = min(dt,drF(k2)/Wd(k2))
./pkg/opps/opps_calc.F 96 OPPS_CALC
      INTEGER K, K2, K2m1, K2p1, ktr