Changeset 467 for branches/GRISLIv3/SOURCES/New-remplimat/diagno-L2_mod.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/diagno-L2_mod.f90 (modified) (5 diffs)

branches/GRISLIv3/SOURCES/New-remplimat/diagno-L2_mod.f90

@@ -6 +6 @@
 implicit none
 
-
+real ::  pvimin                       !< valeur de pvi pour les noeuds fictifs
 
 real                   :: somint,test,delp,prec
@@ -12 +12 @@
 real, dimension(nx,ny) :: uyb1
 
+real, dimension(nx,ny) :: ramollo      !< pour ramollir les ice shelves
 real, dimension(nx,ny) :: uxb1ramollo
 real, dimension(nx,ny) :: uyb1ramollo
@@ -49 +50 @@
 subroutine init_diagno
 
-use module3D_phy,only: num_rep_42,num_param,pvimin
+use module3D_phy,only: num_rep_42,num_param
 use geography, only: geoplace
 use deformation_mod_2lois,only: sf ! afq - 07/2023 - not clean since it is in module_choix
@@ -111 +112 @@
 
   use module3D_phy, only: niter_nolin,taushelf,flot,h,pvi, & 
-                          gr_line_schoof,uxbar,uybar,pvimin,debug_3D,V_limit, & 
+                          gr_line_schoof,uxbar,uybar,debug_3D,V_limit, & 
                           imx_diag,imy_diag,tobmx,tobmy,neffmx,neffmy,gr_line, schoof, & 
                           betamx,betamy,flgzmx,flgzmy,uxflgz,uyflgz,taub 
@@ -378 +379 @@
 subroutine calc_pvi
 
-use module3d_phy, only: pvi,pvimin,abar,flot,gzmx,gzmy, & 
-                        ilemx,ilemy,eps,taushelf,h,ramollo,debug_3d,pvm
+use module3d_phy, only: pvi,abar,flot,gzmx,gzmy, & 
+                        ilemx,ilemy,eps,taushelf,h,debug_3d,pvm
 use runparam, only: itracebug
 use geography, only: nx,ny,nz