Symbol Description Uses
IMON 6



File Line number Procedure Code
./pkg/fizhi/update_earth_exports.F 696 GETLGR
      SUBROUTINE GETLGR(sec,IMON,IDAY,ALAT,ITYP,NCHPS,nchpdim,
./pkg/fizhi/update_earth_exports.F 768 GETLGR
      MIDMON = DAYS(IMON)/2 + 1
./pkg/fizhi/update_earth_exports.F 772 GETLGR
        K2 = IMON
./pkg/fizhi/update_earth_exports.F 773 GETLGR
        K1 = MOD(IMON+10,12) + 1
./pkg/fizhi/update_earth_exports.F 775 GETLGR
        K1 = IMON
./pkg/fizhi/update_earth_exports.F 776 GETLGR
        K2 = MOD(IMON,12) + 1