Changeset 4824

Timestamp:

Feb 15, 2024, 10:50:45 PM (3 months ago)

Author:

fhourdin

Message:

Correction dimensions thermcell_dtke

File:

• LMDZ6/trunk/libf/phylmd/lmdz_thermcell_dtke.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_thermcell_dtke.F90

@@ -15 +15 @@
 !=======================================================================
 
-      integer ngrid,nlay,nsrf
+      integer, intent(in) :: ngrid,nlay,nsrf
+      real, intent(in) :: ptimestep
+      real, dimension(ngrid,nlay), intent(in) :: entr0
+      real, dimension(ngrid,nlay+1), intent(in) :: fm0,pplev
+      real, intent(in) :: rg
+      real, intent(inout) :: tke(ngrid,nlay+1,nsrf)
 
-      real ptimestep
-      real masse0(ngrid,nlay),fm0(ngrid,nlay+1),pplev(ngrid,nlay+1)
-      real entr0(ngrid,nlay),rg
-      real tke(ngrid,nlay,nsrf)
-      real detr0(ngrid,nlay)
+      real, dimension(ngrid,nlay) :: masse0,detr0, masse,entr,detr
+      real, dimension(ngrid,nlay+1) :: fm,wqd,q,qa
+      integer lev_out                           ! niveau pour les print
 
 
-      real masse(ngrid,nlay),fm(ngrid,nlay+1)
-      real entr(ngrid,nlay)
-      real q(ngrid,nlay)
-      integer lev_out                           ! niveau pour les print
-
-      real qa(ngrid,nlay),detr(ngrid,nlay),wqd(ngrid,nlay+1)
-
-      real zzm
+      real :: zzm
 
       integer ig,k
@@ -39 +35 @@
       lev_out=0
 
+!print*,'thermcell_dtke'
 
       if (prt_level.ge.1) print*,'Q2 THERMCEL_DQ 0'