Changeset 4674 for LMDZ6/trunk/libf/phylmd/lmdz_cloudth.F90

Timestamp:

Sep 5, 2023, 12:13:50 PM (9 months ago)

Author:

fhourdin

Message:

Declarations intent pour replayisation

File:

• LMDZ6/trunk/libf/phylmd/lmdz_cloudth.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_cloudth.F90

@@ -602 +602 @@
       INCLUDE "FCTTRE.h"
 
-      INTEGER itap,ind1,ind2
-      INTEGER ngrid,klev,klon,l,ig 
+      integer, intent(in) :: ind2
+      integer, intent(in) :: ngrid,klev
+      
+      real, dimension(ngrid,klev), intent(in) :: ztv
+      real, dimension(ngrid), intent(in) :: po
+      real, dimension(ngrid,klev), intent(in) :: zqta
+      real, dimension(ngrid,klev+1), intent(in) :: fraca
+      real, dimension(ngrid), intent(out) :: qcloud
+      real, dimension(ngrid,klev), intent(out) :: ctot
+      real, dimension(ngrid,klev), intent(out) :: ctot_vol
+      real, dimension(ngrid,klev), intent(in) :: zpspsk
+      real, dimension(ngrid,klev+1), intent(in) :: paprs
+      real, dimension(ngrid,klev), intent(in) :: pplay
+      real, dimension(ngrid,klev), intent(in) :: ztla
+      real, dimension(ngrid,klev), intent(inout) :: zthl
+      real, dimension(ngrid,klev), intent(in) :: ratqs
+      real, dimension(ngrid), intent(in) :: zqs
+      real, dimension(ngrid,klev), intent(in) :: t
       real, dimension(ngrid,klev), intent(out) :: cloudth_sth,cloudth_senv,cloudth_sigmath,cloudth_sigmaenv
-      
-      REAL ztv(ngrid,klev)
-      REAL po(ngrid)
+
+
       REAL zqenv(ngrid)   
-      REAL zqta(ngrid,klev)
-          
-      REAL fraca(ngrid,klev+1)
-      REAL zpspsk(ngrid,klev)
-      REAL paprs(ngrid,klev+1)
-      REAL pplay(ngrid,klev)
-      REAL ztla(ngrid,klev)
-      REAL zthl(ngrid,klev)
-
       REAL zqsatth(ngrid,klev)
       REAL zqsatenv(ngrid,klev)
@@ -628 +634 @@
       REAL cth(ngrid,klev)
       REAL cenv(ngrid,klev)   
-      REAL ctot(ngrid,klev)
       REAL cth_vol(ngrid,klev)
       REAL cenv_vol(ngrid,klev)
-      REAL ctot_vol(ngrid,klev)
       REAL rneb(ngrid,klev)      
-      REAL t(ngrid,klev)
       REAL qsatmmussig1,qsatmmussig2,sqrt2pi,sqrt2,sqrtpi,pi
       REAL rdd,cppd,Lv
@@ -641 +644 @@
       REAL Tbef,zdelta,qsatbef,zcor
       REAL qlbef  
-      REAL ratqs(ngrid,klev) ! Determine the width of the vapour distribution
       REAL zpdf_sig(ngrid),zpdf_k(ngrid),zpdf_delta(ngrid)
       REAL zpdf_a(ngrid),zpdf_b(ngrid),zpdf_e1(ngrid),zpdf_e2(ngrid) 
-      REAL zqs(ngrid), qcloud(ngrid)
       REAL erf
 
+
+      INTEGER :: ind1,l, ig
 
       IF (iflag_cloudth_vert.GE.1) THEN