Changeset 3759 for LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/cv3_routines.F90

Timestamp:

Jul 15, 2020, 10:14:34 PM (4 years ago)

Author:

adurocher

Message:

Fixed array size in cv3_tracer to match compressed arrays

File:

• LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/cv3_routines.F90 (modified) (1 diff)

LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/cv3_routines.F90

@@ -4944 +4944 @@
 !inputs:
   INTEGER, INTENT (IN)                               :: ncum, nd, na, nloc, len
-  INTEGER, DIMENSION (len), INTENT (IN)              :: icb, inb
-  REAL, DIMENSION (len, na, na), INTENT (IN)         :: ment, sigij, elij
-  REAL, DIMENSION (len, nd), INTENT (IN)             :: clw
-  REAL, DIMENSION (len, na), INTENT (IN)             :: ep
-  REAL, DIMENSION (len, nd+1), INTENT (IN)           :: Vprecip
+  INTEGER, DIMENSION (nloc), INTENT (IN)              :: icb, inb
+  REAL, DIMENSION (nloc, na, na), INTENT (IN)         :: ment, sigij, elij
+  REAL, DIMENSION (nloc, nd), INTENT (IN)             :: clw
+  REAL, DIMENSION (nloc, na), INTENT (IN)             :: ep
+  REAL, DIMENSION (nloc, nd+1), INTENT (IN)           :: Vprecip
 !ouputs:
-  REAL, DIMENSION (len, na, na), INTENT (OUT)        :: phi, phi2, epmlmMm
-  REAL, DIMENSION (len, na), INTENT (OUT)            :: da, d1a, dam, eplaMm
+  REAL, DIMENSION (nloc, na, na), INTENT (OUT)        :: phi, phi2, epmlmMm
+  REAL, DIMENSION (nloc, na), INTENT (OUT)            :: da, d1a, dam, eplaMm
 !
 ! variables pour tracer dans precip de l'AA et des mel