preliminary SC lint rules implementation and some testing

test_sc_1.F90

@@ -0,0 +1,30 @@
+MODULE TEST_SC_1_MOD
+CONTAINS
+  SUBROUTINE TEST_SC_1(KIDIA, KFIDIA, X, Y, Z, NPROMA, KLON, HORIZONTAL, KLEV)
+
+    INTEGER, INTENT(IN) :: KIDIA, KFIDIA, NPROMA, KLON, KLEV, HORIZONTAL
+    REAL, INTENT(INOUT) :: X(NPROMA, KLEV), Y(KLON, KLEV), Z(HORIZONTAL, KLEV)
+    REAL :: TMP
+    INTEGER :: JL, JK, JO
+
+    DO JK=1,KLEV
+      DO JL=KIDIA,KFIDIA
+        X(JL, JK) = 0.0
+        TMP = X(JL, JK)
+        Y(JL, JK) = 0.0
+        TMP = Y(JL, JK)
+        Z(JL, JK) = 0.0
+        TMP = Z(JL, JK)
+      END DO
+      DO JO=KIDIA,KFIDIA
+        X(JO, JK) = 0.2
+        TMP = X(JO, JK)
+        Y(JO, JK) = 0.2
+        TMP = Y(JO, JK)
+        Z(JO, JK) = 0.2
+        TMP = Z(JO, JK)
+      END DO
+    END DO
+
+  END SUBROUTINE TEST_SC_1
+END MODULE TEST_SC_1_MOD

test_sc_2.F90

@@ -0,0 +1,31 @@
+MODULE TEST_SC_2_MOD
+CONTAINS
+  SUBROUTINE TEST_SC_2(KIDIA, KFIDIA, Z, KLON, KLEV)
+
+    INTEGER, INTENT(IN) :: KIDIA, KFIDIA, KLON, KLEV
+    REAL, INTENT(INOUT) :: Z(KLON, KLEV)
+    REAL :: TMP
+    INTEGER :: JL, JK, JO
+
+    DO JK=1,KLEV
+      DO JL=KIDIA,KFIDIA
+        Z(JL, JK) = 0.0
+        TMP = Z(JL, JK)
+      END DO
+      Z(KIDIA:KFIDIA, JK) = 0.2
+      Z(:, JK) = 0.5
+      TMP = Z(KIDIA:KFIDIA, JK)
+    END DO
+
+    DO JK=1,KLEV
+      DO JL=KIDIA,KFIDIA
+        Z(JL, JK) = 0.0
+        TMP = Z(JL, JK)
+        DO JO=1,10
+          print *, "innermost loop not the horizontal loop"
+        END DO
+      END DO
+    END DO
+
+  END SUBROUTINE TEST_SC_2
+END MODULE TEST_SC_2_MOD

test_sc_3.F90

@@ -0,0 +1,28 @@
+MODULE TEST_SC_3_MOD
+CONTAINS
+  SUBROUTINE TEST_SC_3(KIDIA, KFIDIA, Z, KLON, KLEV)
+
+    INTEGER, INTENT(IN) :: KIDIA, KFIDIA, KLON, KLEV, HORIZONTAL
+    REAL, INTENT(INOUT) :: Z(KLON, KLEV)
+    REAL :: TMP
+    INTEGER :: JL, JK, JO
+
+    DO JK=1,KLEV
+      DO JL=KIDIA,KFIDIA
+        Z(JL, JK) = EXP(0.0)
+        Z(JL, JK) = 1.0 + EXP(0.0)
+        TMP = MAX(1.0, 1.3) + MIN(-1.5, -1.7)
+        CALL SOME_FUNC()
+        print *, 'intrinsic but probably nothing to allow ...'
+      END DO
+    END DO
+
+  END SUBROUTINE TEST_SC_3
+
+  SUBROUTINE SOME_FUNC(Z, KLON, KLEV)
+    INTEGER, INTENT(IN) :: KLON, KLEV
+    REAL, INTENT(INOUT) :: Z(KLON, KLEV)
+    print *, "not an intrinsic function ..."
+  END SUBROUTINE SOME_FUNC
+
+END MODULE TEST_SC_3_MOD

test_sc_4.F90

@@ -0,0 +1,60 @@
+MODULE TEST_SC_4_MOD
+CONTAINS
+  SUBROUTINE TEST_SC_4(KIDIA, KFIDIA, ZTP1, KLON, KLEV)
+
+    INTEGER, INTENT(IN) :: KIDIA, KFIDIA, KLON, KLEV
+    REAL, INTENT(INOUT) :: ZTP1(KLON, KLEV)
+    REAL :: SCALAR_TMP, TMP(KLON)
+    INTEGER :: JL, JK, JO, JN, JM
+
+    DO JK=1,KLEV
+      TMP(JL) = JL + 1
+      DO JL=KIDIA,KFIDIA
+        ZTP1(JL, JK) = 0.0
+      END DO
+      DO JL=KIDIA,KFIDIA
+        ZTP1(JL, JK) = 0.2
+      END DO
+    END DO
+
+    DO JK=1,KLEV-1
+      DO JL=KIDIA,KFIDIA
+        IF (JL > 1) THEN
+          JO = JL - 1
+        ELSE
+          JO = JL
+        END IF
+        ZTP1(JO + JL, JK) = 1.0
+        ZTP1(TMP(JL), JK) = 2.0
+      END DO
+    END DO
+
+    DO JK=1,KLEV
+      DO JL=KIDIA,KFIDIA
+        JO = TMP(JL)
+        ZTP1(JO, JK) = 3.0
+      END DO
+    END DO
+
+    DO JK=1,KLEV-1
+      DO JL=KIDIA,KFIDIA
+        IF (JL > 1) THEN
+          JN = JL - 1
+        ELSE
+          JN = JL
+        END IF
+        ZTP1(JN, JK) = 1.0
+        ZTP1(TMP(JL), JK) = 4.0
+      END DO
+    END DO
+
+    DO JK=1,KLEV
+      DO JL=KIDIA,KFIDIA
+        JO = TMP(JL)
+        SCALAR_TMP = ZTP1(JO, JK)
+        ZTP1(JL, JK) = ZTP1(JO, JK)
+      END DO
+    END DO
+
+  END SUBROUTINE TEST_SC_4
+END MODULE TEST_SC_4_MOD

test_sc_potential_5.F90

@@ -0,0 +1,35 @@
+SUBROUTINE TEST_SC_POTENTIAL_5(A, B, N)
+  IMPLICIT NONE
+  INTEGER, INTENT(IN) :: N
+  INTEGER, INTENT(INOUT) :: A(N, N), B(N, N)
+  INTEGER :: RES_SUM, JK, JL
+  INTEGER :: i_all, i_any, i_count, i_maxval, i_minval, i_product, i_sum
+  INTEGER :: i2_sum, i2_maxval
+
+  DO JK=1,N
+    DO JL=1,N
+      A(JL, JK) = 10
+      B(JL, JK) = 20
+    END DO
+  END DO
+
+  DO JK=1,N
+    DO JL=1,N
+      A(JL, JK) = A(JL, JK) + 1
+      RES_SUM = RES_SUM + A(JL, JK)*B(JL, JK)
+    END DO
+  END DO
+
+  i_all = all(A>5)
+  i_any = any(A>5)
+  i_count = count(A>5)
+  i_maxval = maxval(A)
+  i_minval = minval(A)
+  i_product = product(A)
+  i_sum = sum(A)
+
+  i2_sum = sum(A(1, :))
+  i2_sum = sum(A, dim=2)
+  i2_maxval = maxval(A(1, :))
+
+END SUBROUTINE TEST_SC_POTENTIAL_5

test_sc_potential_6.F90

@@ -0,0 +1,20 @@
+MODULE TEST_SC_POTENTIAL_6_MOD
+CONTAINS
+  SUBROUTINE TEST_SC_POTENTIAL_6(KIDIA, KFIDIA, ZTP1, KLON, KLEV)
+
+    INTEGER, INTENT(IN) :: KIDIA, KFIDIA, KLON, KLEV
+    REAL, INTENT(INOUT) :: ZTP1(KLON, KLEV), Z(KLEV)
+    REAL :: SCALAR_TMP, TMP(KLON)
+    INTEGER :: JL, JK, JO, JN, JM
+
+    DO JK=1,KLEV
+      DO JL=KIDIA,KFIDIA
+        Z(JK) = 0.0
+        ZTP1(JL, JK) = ZTP1(JL-1, JK)
+        ZTP1(JL, JK) = ZTP1(JL+1, JK)
+        ZTP1(JL+1, JK) = ZTP1(JL, JK)
+      END DO
+    END DO
+
+  END SUBROUTINE TEST_SC_POTENTIAL_6
+END MODULE TEST_SC_POTENTIAL_6_MOD