Changeset 467 for branches/GRISLIv3/SOURCES/conserv-mass-adv-diff_sept2009_mod.f90

Timestamp:

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

Author:

aquiquet

Message:

Cleaning branch: continuing module3D cleaning

File:

• branches/GRISLIv3/SOURCES/conserv-mass-adv-diff_sept2009_mod.f90 (modified) (2 diffs)

branches/GRISLIv3/SOURCES/conserv-mass-adv-diff_sept2009_mod.f90

@@ -19 +19 @@
 module equat_adv_diff_2D_vect                          ! Cat nouvelle mouture juin 2009
   use module3D_phy, only: V_limit,num_param,num_rep_42,dx1,mk0,i_Hp,Hp,H,uxbar,uybar,testdiag,&
-       dtmax,dt,dtmin,time,dtt,isynchro,diffmx,diffmy,sdx,sdy,hmx,hmy,flgzmx,flgzmy,flot,tabtest,timemax,&
+       dtmax,dt,dtmin,time,dtt,isynchro,diffmx,diffmy,sdx,sdy,hmx,hmy,flgzmx,flgzmy,flot,timemax,&
        marine,dtdx2,dtdx,bm,bmelt,igrdline,ibmelt_inv,ice,ablbord,hdot
   use geography, only: nx,ny,dx,geoplace
@@ -89 +89 @@
     implicit none
     integer :: i,j
+    real,dimension(nx,ny) :: tabtest      ! tableau de travail
     real,dimension(nx,ny) :: Dminx,Dminy
     real,dimension(nx,ny) :: Uxdiff,Uydiff           ! vitesse due a la diffusion