Symbol Description Uses
JM 34



File Line number Procedure Code
./pkg/fizhi/fizhi_utils.F 652 GRD2MSC
      SUBROUTINE GRD2MSC(A,IM,JM,IGRD,B,MXCHPS,NCHP)
./pkg/fizhi/fizhi_utils.F 657 GRD2MSC
      _RL A(IM,JM), B(MXCHPS)
./pkg/fizhi/fizhi_utils.F 672 MSC2GRD
      SUBROUTINE MSC2GRD(IGRD,CHFR,B,MXCHPS,NCHP,FRACG,A,IM,JM)
./pkg/fizhi/fizhi_utils.F 680 MSC2GRD
      _RL A(IM,JM), B(MXCHPS), CHFR(MXCHPS), FRACG(IM,JM)
./pkg/fizhi/fizhi_utils.F 682 MSC2GRD
      _RL VT1(IM,JM)
./pkg/fizhi/fizhi_utils.F 686 MSC2GRD
        DO I=1,IM*JM
./pkg/fizhi/fizhi_utils.F 694 MSC2GRD
        DO I=1,IM*JM
./pkg/fizhi/update_earth_exports.F 875 GETALB
      DO J=1,JM
./pkg/fizhi/update_earth_exports.F 896 GETALB
      DO J=1,JM
./pkg/fizhi/update_earth_exports.F 904 GETALB
      DO J=1,JM
./pkg/fizhi/update_earth_exports.F 909 GETALB
      DO J=1,JM
./pkg/fizhi/update_earth_exports.F 916 GETALB
      DO J=1,JM
./pkg/fizhi/update_earth_exports.F 921 GETALB
      DO J=1,JM
./pkg/fizhi/update_earth_exports.F 928 GETALB
      DO J=1,JM
./pkg/fizhi/update_earth_exports.F 933 GETALB
      DO J=1,JM
./pkg/fizhi/update_earth_exports.F 940 GETALB
      DO J=1,JM
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F 875 GETALB
      DO J=1,JM
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F 896 GETALB
      DO J=1,JM
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F 904 GETALB
      DO J=1,JM
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F 909 GETALB
      DO J=1,JM
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F 916 GETALB
      DO J=1,JM
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F 921 GETALB
      DO J=1,JM
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F 928 GETALB
      DO J=1,JM
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F 933 GETALB
      DO J=1,JM
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F 940 GETALB
      DO J=1,JM
./pkg/seaice/seaice_lsr.F 597 SEAICE_LSR
          JM=J-1
./pkg/seaice/seaice_lsr.F 598 SEAICE_LSR
          CVV(J)=CVV(J)/(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(JM))
./pkg/seaice/seaice_lsr.F 599 SEAICE_LSR
          VRT(J)=(VRT(J)-AV(I,J,bi,bj)*VRT(JM))
./pkg/seaice/seaice_lsr.F 600 SEAICE_LSR
     &          /(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(JM))
./pkg/seaice/lsr.F 526 LSR
          JM=J-1
./pkg/seaice/lsr.F 527 LSR
          CVV(J)=CVV(J)/(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(JM))
./pkg/seaice/lsr.F 528 LSR
          VRT(J)=(VRT(J)-AV(I,J,bi,bj)*VRT(JM))
./pkg/seaice/lsr.F 529 LSR
     &          /(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(JM))