Changeset 467 for branches/GRISLIv3/SOURCES/velocities-polyn-0.3.f90

Timestamp:

01/26/24 16:49:00 (4 months ago)

Author:

aquiquet

Message:

Cleaning branch: continuing module3D cleaning

File:

• branches/GRISLIv3/SOURCES/velocities-polyn-0.3.f90 (modified) (2 diffs)

branches/GRISLIv3/SOURCES/velocities-polyn-0.3.f90

@@ -26 +26 @@
   use runparam, only : itracebug      
   use module3d_phy, only: flotmx,flotmy,ux,uy,sux,suy,sdx,sdy,ubx,uby,&
-       hmx,hmy,uxbar,uybar,iglen,cde,divu,uzr,bmelt,bm,flot,front,flgzmx,flgzmy,&
+       hmx,hmy,uxbar,uybar,iglen,cde,uzr,bmelt,bm,flot,front,flgzmx,flgzmy,&
        uzsdot,dtt,uzk,bdot,hdot
   use geography, only : nx,ny,nz,dx
@@ -36 +36 @@
   real, dimension(nx,ny) :: hdd
   real, dimension(nx,ny) :: xx
+  real, dimension(nx,ny) :: divu         !< divergence de UH
+
 
   if (itracebug.eq.1)  call tracebug(' Entree dans routine SIA_velocity')