Changeset 4368 for LMDZ6/branches/Ocean_skin/libf/phylmd/thermcell_height.F90

Timestamp:

Dec 6, 2022, 12:01:16 AM (2 years ago)

Author:

lguez

Message:

Sync latest trunk changes to Ocean_skin

Location:

LMDZ6/branches/Ocean_skin

Files:

• . (modified) (1 prop)
• libf/phylmd/thermcell_height.F90 (modified) (2 diffs)

LMDZ6/branches/Ocean_skin/libf/phylmd/thermcell_height.F90

@@ -1 +1 @@
       SUBROUTINE thermcell_height(ngrid,nlay,lalim,lmin,linter,lmix,  &
-     &           zw2,zlev,lmax,zmax,zmax0,zmix,wmax,lev_out)                            
+     &           zw2,zlev,lmax,zmax,zmax0,zmix,wmax)
+      IMPLICIT NONE
 
 !-----------------------------------------------------------------------------
 !thermcell_height: calcul des caracteristiques du thermique: zmax,wmax,zmix
 !-----------------------------------------------------------------------------
-      IMPLICIT NONE
-#include "thermcell.h"
 
-      INTEGER ig,l
-      INTEGER ngrid,nlay
-      INTEGER lalim(ngrid),lmin(ngrid)
-      INTEGER lmix(ngrid)
-      REAL linter(ngrid)
-      integer lev_out                           ! niveau pour les print
+! arguments
 
-      REAL zw2(ngrid,nlay+1)
-      REAL zlev(ngrid,nlay+1)
+! Entree
+      integer, intent(in) :: ngrid,nlay
+      real, intent(in), dimension(ngrid) :: linter
+      real, intent(in), dimension(ngrid,nlay+1) :: zlev
+! Sortie
+      real, intent(out), dimension(ngrid) :: wmax,zmax,zmax0,zmix
+      integer, intent(out), dimension(ngrid) :: lmax
+! Les deux
+     integer, intent(inout), dimension(ngrid) :: lmix,lalim,lmin
+     real, intent(inout), dimension(ngrid,nlay+1) :: zw2
 
-      REAL wmax(ngrid)
-      INTEGER lmax(ngrid)
-      REAL zmax(ngrid)
-      REAL zmax0(ngrid)
-      REAL zmix(ngrid)
-      REAL num(ngrid)
-      REAL denom(ngrid)
-
-      REAL zlevinter(ngrid)
+! local
+     real, dimension(ngrid) :: num,denom,zlevinter
+     integer ig,l
 
 !calcul de la hauteur max du thermique
@@ -160 +156 @@
       enddo
 !
-      return 
+ RETURN
       end