Changeset 3605 for LMDZ6/branches/Ocean_skin/libf/phylmd/cv3_mixscale.F90

Timestamp:

Nov 21, 2019, 4:43:45 PM (5 years ago)

Author:

lguez

Message:

Merge revisions 3427:3600 of trunk into branch Ocean_skin

Location:

LMDZ6/branches/Ocean_skin

Files:

• . (modified) (1 prop)
• libf/phylmd/cv3_mixscale.F90 (modified) (1 diff)

LMDZ6/branches/Ocean_skin/libf/phylmd/cv3_mixscale.F90

@@ -13 +13 @@
   include "cv3param.h"
 
-  INTEGER nloc, ncum, na
+!inputs:
+  INTEGER, INTENT (IN)                               :: ncum, na, nloc
+  REAL, DIMENSION (nloc, na), INTENT (IN)            :: m
+!input/outputs:
+  REAL, DIMENSION (nloc, na, na), INTENT (INOUT)     :: ment
+
+!local variables:
   INTEGER i, j, il
-  REAL ment(nloc, na, na), m(nloc, na)
 
-  DO j = 1, nl
-    DO i = 1, nl
-      DO il = 1, ncum
-        ment(il, i, j) = m(il, i)*ment(il, i, j)
+    DO j = 1, nl
+      DO i = 1, nl
+        DO il = 1, ncum
+          ment(il, i, j) = m(il, i)*ment(il, i, j)
+        END DO
       END DO
     END DO
-  END DO