Symbol Description Uses
M 75


File Line number Procedure Code
./pkg/fizhi/fizhi_clockstuff.F 785 TIC_TIME 
      FUNCTION INCYMD (NYMD,M)
./pkg/fizhi/fizhi_clockstuff.F 810 TIC_TIME 
      ND = MOD(NYMD,100) + M
./pkg/seaice/lsr.F 1089 LSR 
      DO M=1, SEAICElinearIterMax
./pkg/seaice/lsr.F 1161 LSR 
      IF(MOD(M,SOLV_NCHECK).EQ.0) THEN
./pkg/seaice/lsr.F 1176 LSR 
       IF(M.GT.1.AND.S2.GT.S2A) WFAV=WFAV2
./pkg/seaice/lsr.F 1179 LSR 
        ICOUNT2=M
./pkg/seaice/lsr.F 855 LSR 
      DO M=1, SEAICElinearIterMax
./pkg/seaice/lsr.F 913 LSR 
      IF(MOD(M,SOLV_NCHECK).EQ.0) THEN
./pkg/seaice/lsr.F 928 LSR 
       IF(M.GT.1.AND.S1.GT.S1A) WFAU=WFAU2
./pkg/seaice/lsr.F 931 LSR 
        ICOUNT1=M
./pkg/sphere/sphere.F 266 SHCROTATE 
      INTEGER K, L, M
./pkg/sphere/sphere.F 273 SHCROTATE 
         DO M = 0,LMAX
./pkg/sphere/sphere.F 274 SHCROTATE 
            IF(M.EQ.0) THEN
./pkg/sphere/sphere.F 278 SHCROTATE 
               COSA = H(M+M)
./pkg/sphere/sphere.F 279 SHCROTATE 
               SINA = H(M+M+1)
./pkg/sphere/sphere.F 281 SHCROTATE 
            DO L = M,LMAX
./pkg/sphere/sphere.F 283 SHCROTATE 
               C = SHC(K+M)
./pkg/sphere/sphere.F 284 SHCROTATE 
               S = SHC(K-M)
./pkg/sphere/sphere.F 285 SHCROTATE 
               SHC(K+M) = COSA*C + SINA*S
./pkg/sphere/sphere.F 286 SHCROTATE 
               SHC(K-M) =-SINA*C + COSA*S
./pkg/sphere/sphere.F 313 SHC2ZONE 
      INTEGER LMAX1, J, K, L, M
./pkg/sphere/sphere.F 330 SHC2ZONE 
      DO M = 0,LMAX
./pkg/sphere/sphere.F 335 SHC2ZONE 
         DO L = M,LMAX-1,2
./pkg/sphere/sphere.F 339 SHC2ZONE 
            DA   = Q*SHC(J+M)
./pkg/sphere/sphere.F 340 SHC2ZONE 
            DB   = Q*SHC(J-M)
./pkg/sphere/sphere.F 348 SHC2ZONE 
            DA   = Q*SHC(J+M)
./pkg/sphere/sphere.F 349 SHC2ZONE 
            DB   = Q*SHC(J-M)
./pkg/sphere/sphere.F 359 SHC2ZONE 
            DA   = Q*SHC(J+M)
./pkg/sphere/sphere.F 360 SHC2ZONE 
            DB   = Q*SHC(J-M)
./pkg/sphere/sphere.F 366 SHC2ZONE 
         IF(M.EQ.0) THEN
./pkg/sphere/sphere.F 370 SHC2ZONE 
            HS(M+M  ) = A
./pkg/sphere/sphere.F 371 SHC2ZONE 
            HS(M+M+1) = B
./pkg/sphere/sphere.F 372 SHC2ZONE 
            HN(M+M  ) = E
./pkg/sphere/sphere.F 373 SHC2ZONE 
            HN(M+M+1) = F
./pkg/sphere/sphere.F 404 SHC4ZONE 
      INTEGER I, J, K, L, M
./pkg/sphere/sphere.F 430 SHC4ZONE 
      DO M = 0,LMAX
./pkg/sphere/sphere.F 431 SHC4ZONE 
         IF (M .EQ. 0) THEN
./pkg/sphere/sphere.F 435 SHC4ZONE 
            J  = 2*M
./pkg/sphere/sphere.F 445 SHC4ZONE 
         DO L = M,LMAX-1,2
./pkg/sphere/sphere.F 447 SHC4ZONE 
            SHC(K+M) = SHC(K+M) + P(I1) * CE
./pkg/sphere/sphere.F 448 SHC4ZONE 
            SHC(K-M) = SHC(K-M) + P(I1) * SE
./pkg/sphere/sphere.F 450 SHC4ZONE 
            SHC(K+M) = SHC(K+M) + P(I2) * CO
./pkg/sphere/sphere.F 451 SHC4ZONE 
            SHC(K-M) = SHC(K-M) + P(I2) * SO
./pkg/sphere/sphere.F 454 SHC4ZONE 
         IF(MOD(LMAX-M,2).NE.1) THEN
./pkg/sphere/sphere.F 457 SHC4ZONE 
            SHC(K+M) = SHC(K+M) + P(I) * CE
./pkg/sphere/sphere.F 458 SHC4ZONE 
            SHC(K-M) = SHC(K-M) + P(I) * SE
./pkg/sphere/sphere.F 557 HELMHOLTZ 
      INTEGER K, L, N, M
./pkg/sphere/sphere.F 574 HELMHOLTZ 
         DO M = 1,LMAX
./pkg/sphere/sphere.F 575 HELMHOLTZ 
            K = ISECT(M)
./pkg/sphere/sphere.F 577 HELMHOLTZ 
            P(K) = Z(M) * CM
./pkg/sphere/sphere.F 580 HELMHOLTZ 
         DO M = 0,LMAX-N
./pkg/sphere/sphere.F 581 HELMHOLTZ 
            K = ISECT(M)+N
./pkg/sphere/sphere.F 582 HELMHOLTZ 
            L = N+M
./pkg/sphere/sphere.F 583 HELMHOLTZ 
            AK   = X(L)*Y(L+M)*Y(N)
./pkg/sphere/sphere.F 585 HELMHOLTZ 
            A(M) = AK
./pkg/sphere/sphere.F 588 HELMHOLTZ 
            DO M = 0,LMAX-N
./pkg/sphere/sphere.F 589 HELMHOLTZ 
               K = ISECT(M)+N
./pkg/sphere/sphere.F 590 HELMHOLTZ 
               L = N+M
./pkg/sphere/sphere.F 591 HELMHOLTZ 
               AK   = X(L)*Y(L+M)*Y(N)
./pkg/sphere/sphere.F 592 HELMHOLTZ 
               P(K) =(S*P(K-1)-P(K-2)*A(M))/AK
./pkg/sphere/sphere.F 593 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