Symbol Description Uses
M 85


File Line number Procedure Code
./pkg/fizhi/fizhi_clockstuff.F 799 TIC_TIME 
      FUNCTION INCYMD (NYMD,M)
./pkg/fizhi/fizhi_clockstuff.F 824 TIC_TIME 
      ND = MOD(NYMD,100) + M
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F 801 TIC_TIME 
      FUNCTION INCYMD (NYMD,M)
./verification/fizhi-cs-aqualev20/code/fizhi_clockstuff.F 826 TIC_TIME 
      ND = MOD(NYMD,100) + M
./pkg/sphere/sphere.F 264 SHCROTATE 
      INTEGER K, L, M
./pkg/sphere/sphere.F 271 SHCROTATE 
         DO M = 0,LMAX
./pkg/sphere/sphere.F 272 SHCROTATE 
            IF(M.EQ.0) THEN
./pkg/sphere/sphere.F 276 SHCROTATE 
               COSA = H(M+M)
./pkg/sphere/sphere.F 277 SHCROTATE 
               SINA = H(M+M+1)
./pkg/sphere/sphere.F 279 SHCROTATE 
            DO L = M,LMAX
./pkg/sphere/sphere.F 281 SHCROTATE 
               C = SHC(K+M)
./pkg/sphere/sphere.F 282 SHCROTATE 
               S = SHC(K-M)
./pkg/sphere/sphere.F 283 SHCROTATE 
               SHC(K+M) = COSA*C + SINA*S
./pkg/sphere/sphere.F 284 SHCROTATE 
               SHC(K-M) =-SINA*C + COSA*S
./pkg/sphere/sphere.F 311 SHC2ZONE 
      INTEGER LMAX1, J, K, L, M
./pkg/sphere/sphere.F 328 SHC2ZONE 
      DO M = 0,LMAX
./pkg/sphere/sphere.F 333 SHC2ZONE 
         DO L = M,LMAX-1,2
./pkg/sphere/sphere.F 337 SHC2ZONE 
            DA   = Q*SHC(J+M)
./pkg/sphere/sphere.F 338 SHC2ZONE 
            DB   = Q*SHC(J-M)
./pkg/sphere/sphere.F 346 SHC2ZONE 
            DA   = Q*SHC(J+M)
./pkg/sphere/sphere.F 347 SHC2ZONE 
            DB   = Q*SHC(J-M)
./pkg/sphere/sphere.F 357 SHC2ZONE 
            DA   = Q*SHC(J+M)
./pkg/sphere/sphere.F 358 SHC2ZONE 
            DB   = Q*SHC(J-M)
./pkg/sphere/sphere.F 364 SHC2ZONE 
         IF(M.EQ.0) THEN
./pkg/sphere/sphere.F 368 SHC2ZONE 
            HS(M+M  ) = A
./pkg/sphere/sphere.F 369 SHC2ZONE 
            HS(M+M+1) = B
./pkg/sphere/sphere.F 370 SHC2ZONE 
            HN(M+M  ) = E
./pkg/sphere/sphere.F 371 SHC2ZONE 
            HN(M+M+1) = F
./pkg/sphere/sphere.F 402 SHC4ZONE 
      INTEGER I, J, K, L, M
./pkg/sphere/sphere.F 428 SHC4ZONE 
      DO M = 0,LMAX
./pkg/sphere/sphere.F 429 SHC4ZONE 
         IF (M .EQ. 0) THEN
./pkg/sphere/sphere.F 433 SHC4ZONE 
            J  = 2*M
./pkg/sphere/sphere.F 443 SHC4ZONE 
         DO L = M,LMAX-1,2
./pkg/sphere/sphere.F 445 SHC4ZONE 
            SHC(K+M) = SHC(K+M) + P(I1) * CE
./pkg/sphere/sphere.F 446 SHC4ZONE 
            SHC(K-M) = SHC(K-M) + P(I1) * SE
./pkg/sphere/sphere.F 448 SHC4ZONE 
            SHC(K+M) = SHC(K+M) + P(I2) * CO
./pkg/sphere/sphere.F 449 SHC4ZONE 
            SHC(K-M) = SHC(K-M) + P(I2) * SO
./pkg/sphere/sphere.F 452 SHC4ZONE 
         IF(MOD(LMAX-M,2).NE.1) THEN
./pkg/sphere/sphere.F 455 SHC4ZONE 
            SHC(K+M) = SHC(K+M) + P(I) * CE
./pkg/sphere/sphere.F 456 SHC4ZONE 
            SHC(K-M) = SHC(K-M) + P(I) * SE
./pkg/sphere/sphere.F 555 HELMHOLTZ 
      INTEGER K, L, N, M
./pkg/sphere/sphere.F 572 HELMHOLTZ 
         DO M = 1,LMAX
./pkg/sphere/sphere.F 573 HELMHOLTZ 
            K = ISECT(M)
./pkg/sphere/sphere.F 575 HELMHOLTZ 
            P(K) = Z(M) * CM
./pkg/sphere/sphere.F 578 HELMHOLTZ 
         DO M = 0,LMAX-N
./pkg/sphere/sphere.F 579 HELMHOLTZ 
            K = ISECT(M)+N
./pkg/sphere/sphere.F 580 HELMHOLTZ 
            L = N+M
./pkg/sphere/sphere.F 581 HELMHOLTZ 
            AK   = X(L)*Y(L+M)*Y(N)
./pkg/sphere/sphere.F 583 HELMHOLTZ 
            A(M) = AK
./pkg/sphere/sphere.F 586 HELMHOLTZ 
            DO M = 0,LMAX-N
./pkg/sphere/sphere.F 587 HELMHOLTZ 
               K = ISECT(M)+N
./pkg/sphere/sphere.F 588 HELMHOLTZ 
               L = N+M
./pkg/sphere/sphere.F 589 HELMHOLTZ 
               AK   = X(L)*Y(L+M)*Y(N)
./pkg/sphere/sphere.F 590 HELMHOLTZ 
               P(K) =(S*P(K-1)-P(K-2)*A(M))/AK
./pkg/sphere/sphere.F 591 HELMHOLTZ 
               A(M) = AK
./pkg/chronos/chronos.F 622 TIC_TIME 
      FUNCTION INCYMD (NYMD,M)
./pkg/chronos/chronos.F 647 TIC_TIME 
      ND = MOD(NYMD,100) + M
./pkg/seaice/seaice_lsr.F 330 SEAICE_LSR 
      DO 8000 M=1, solv_max_iters
./pkg/seaice/seaice_lsr.F 389 SEAICE_LSR 
      IF(MOD(M,SOLV_NCHECK).EQ.0) THEN
./pkg/seaice/seaice_lsr.F 404 SEAICE_LSR 
       IF(M.GT.1.AND.S1.GT.S1A) WFAU=WFAU2
./pkg/seaice/seaice_lsr.F 407 SEAICE_LSR 
        ICOUNT1=M
./pkg/seaice/seaice_lsr.F 547 SEAICE_LSR 
      DO 9000 M=1, solv_max_iters
./pkg/seaice/seaice_lsr.F 616 SEAICE_LSR 
      IF(MOD(M,SOLV_NCHECK).EQ.0) THEN
./pkg/seaice/seaice_lsr.F 631 SEAICE_LSR 
       IF(M.GT.1.AND.S2.GT.S2A) WFAV=WFAV2
./pkg/seaice/seaice_lsr.F 634 SEAICE_LSR 
        ICOUNT2=M
./pkg/seaice/lsr.F 248 LSR 
      DO 8000 M=1, solv_max_iters
./pkg/seaice/lsr.F 307 LSR 
      IF(MOD(M,SOLV_NCHECK).EQ.0) THEN
./pkg/seaice/lsr.F 322 LSR 
       IF(M.GT.1.AND.S1.GT.S1A) WFAU=WFAU2
./pkg/seaice/lsr.F 325 LSR 
        ICOUNT1=M
./pkg/seaice/lsr.F 472 LSR 
      DO 9000 M=1, solv_max_iters
./pkg/seaice/lsr.F 545 LSR 
      IF(MOD(M,SOLV_NCHECK).EQ.0) THEN
./pkg/seaice/lsr.F 560 LSR 
       IF(M.GT.1.AND.S2.GT.S2A) WFAV=WFAV2
./pkg/seaice/lsr.F 563 LSR 
        ICOUNT2=M