Changeset 3126

Timestamp:

Dec 14, 2017, 10:35:53 AM (7 years ago)

Author:

jyg

Message:

Some cleaning in cv3_tracer in cv3_routines.F90

File:

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

LMDZ6/trunk/libf/phylmd/cv3_routines.F90

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