Changeset 2298 for LMDZ5/branches/testing/libf/phylmd/cv3p1_closure.F90

Timestamp:

Jun 14, 2015, 9:13:32 PM (9 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes -r2237:2291 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/cv3p1_closure.F90 (modified) (3 diffs)

LMDZ5/branches/testing/libf/phylmd/cv3p1_closure.F90

@@ -29 +29 @@
 
   ! input:
-  INTEGER ncum, nd, nloc
-  INTEGER icb(nloc), inb(nloc)
-  REAL pbase(nloc), plcl(nloc)
-  REAL p(nloc, nd), ph(nloc, nd+1)
-  REAL tv(nloc, nd), tvp(nloc, nd), buoy(nloc, nd)
-  REAL supmax(nloc, nd)
-  LOGICAL ok_inhib ! enable convection inhibition by dryness
-  REAL ale(nloc), alp(nloc)
-  REAL omega(nloc,nd)
+  INTEGER, INTENT (IN)                               :: ncum, nd, nloc
+  INTEGER, DIMENSION (nloc), INTENT (IN)             :: icb, inb
+  REAL, DIMENSION (nloc), INTENT (IN)                :: pbase, plcl
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: p
+  REAL, DIMENSION (nloc, nd+1), INTENT (IN)          :: ph
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: tv, tvp, buoy
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: supmax
+  LOGICAL, INTENT (IN)                               :: ok_inhib ! enable convection inhibition by dryness
+  REAL, DIMENSION (nloc), INTENT (IN)                :: ale, alp
+  REAL, DIMENSION (nloc, nd), INTENT (IN)            :: omega
 
   ! input/output:
-  REAL sig(nloc, nd), w0(nloc, nd), ptop2(nloc)
+  REAL, DIMENSION (nloc, nd), INTENT (INOUT)         :: sig, w0
+  REAL, DIMENSION (nloc), INTENT (INOUT)             :: ptop2
 
   ! output:
-  REAL cape(nloc), cin(nloc)
-  REAL m(nloc, nd)
-  REAL plim1(nloc), plim2(nloc)
-  REAL asupmax(nloc, nd), supmax0(nloc)
-  REAL asupmaxmin(nloc)
-  REAL cbmf(nloc), plfc(nloc)
-  REAL wbeff(nloc)
-  INTEGER iflag(nloc)
+  REAL, DIMENSION (nloc), INTENT (OUT)               :: cape, cin
+  REAL, DIMENSION (nloc, nd), INTENT (OUT)           :: m
+  REAL, DIMENSION (nloc), INTENT (OUT)               :: plim1, plim2
+  REAL, DIMENSION (nloc, nd), INTENT (OUT)           :: asupmax
+  REAL, DIMENSION (nloc), INTENT (OUT)               :: supmax0
+  REAL, DIMENSION (nloc), INTENT (OUT)               :: asupmaxmin
+  REAL, DIMENSION (nloc), INTENT (OUT)               :: cbmf, plfc
+  REAL, DIMENSION (nloc), INTENT (OUT)               :: wbeff
+  INTEGER, DIMENSION (nloc), INTENT (OUT)            :: iflag
 
   ! local variables:
@@ -91 +94 @@
 
 
-
   DO il = 1, ncum
     alp2(il) = max(alp(il), 1.E-5)
@@ -498 +500 @@
   IF (prt_level>=20) PRINT *, 'cv3p1_param apres cbmflim'
 
-  ! c 1.5 Compute cloud base mass flux given by Alp closure (Cbmf1), maximum
-  ! c     allowed mass flux (Cbmfmax) and final target mass flux (Cbmf)
-  ! c     Cbmf is set to zero if Cbmflim (the mass flux of elementary cloud)
-  ! is
-  ! --    exceedingly small.
+  ! 1.5 Compute cloud base mass flux given by Alp closure (Cbmf1), maximum
+  !     allowed mass flux (Cbmfmax) and final target mass flux (Cbmf)
+  !     Cbmf is set to zero if Cbmflim (the mass flux of elementary cloud)
+  !     is exceedingly small.
 
   DO il = 1, ncum