Changeset 467 for branches/GRISLIv3/SOURCES/New-remplimat/remplimat-shelves-tabTu.f90

Timestamp:

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

Author:

aquiquet

Message:

Cleaning branch: continuing module3D cleaning

File:

• branches/GRISLIv3/SOURCES/New-remplimat/remplimat-shelves-tabTu.f90 (modified) (2 diffs)

branches/GRISLIv3/SOURCES/New-remplimat/remplimat-shelves-tabTu.f90

@@ -44 +44 @@
 use module3d_phy, only: debug_3D,hmx,hmy,pvi,  &
                         flgzmx,flgzmy,frotmx,frotmy,betamx,betamy,betamax,betamax_2d, &
-                        sdx,sdy,h,b,pvimin,sealevel_2d,flotmx,flotmy,drag_mx,drag_my, &
+                        sdx,sdy,h,b,sealevel_2d,flotmx,flotmy,drag_mx,drag_my, &
                         beta_centre,pvm
 use runparam, only: itracebug,num_tracebug
@@ -1110 +1110 @@
 ! et qui ne dépendent d'aucun noeud (ligne Tu,Tv nulle sauf diagonale)
 
+use diagno_mod, only: pvimin
+
 implicit none