Changeset 444

Timestamp:

07/03/23 17:53:33 (11 months ago)

Author:

aquiquet

Message:

Cleaning branch: diagnoL2 back with use only statements

File:

• branches/GRISLIv3/SOURCES/New-remplimat/diagno-L2_mod.f90 (modified) (8 diffs)

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

@@ -2 +2 @@
 module diagno_mod                   ! nom pendant les tests
  !$ USE OMP_LIB
-use module3D_phy
-use module_choix
+use module3D_phy,only: nx,ny,dx
      
 implicit none
@@ -49 +48 @@
 !------------------------------------------------------------------------------------
 subroutine init_diagno
+
+use module3D_phy,only: num_rep_42,num_param,geoplace,pvimin
+use deformation_mod_2lois,only: sf ! afq - 07/2023 - not clean since it is in module_choix
+
+implicit none
 
 integer sffunc
@@ -105 +109 @@
 subroutine diagnoshelf !      Resolution numerique des equations diagnostiques
 
+  use module3D_phy, only: itracebug,niter_nolin,taushelf,flot,h,pvi,coef_sflot,rog, & 
+                          gr_line_schoof,geoplace,uxbar,uybar,pvimin,debug_3D,V_limit, & 
+                          imx_diag,imy_diag,tobmx,tobmy,neffmx,neffmy,gr_line, schoof, & 
+                          betamx,betamy,flgzmx,flgzmy,uxflgz,uyflgz,taub 
+  use furst_schoof_mod, only: back_force_x,back_force_y,gr_select,frot_coef,interpol_glflux 
+  use module_choix, only: btt,dragging,mstream_dragging  ! afq - 03/2023 - not clean 
+
+  implicit none 
 
   integer :: diagno_grline
+  integer itour_nolin
+  integer i,j ! loop integers
 
   
@@ -360 +374 @@
 subroutine calc_pvi
 
+use module3d_phy, only: nx,ny,nz,itracebug,pvi,pvimin,abar,flot,gzmx,gzmy, & 
+                        ilemx,ilemy,eps,taushelf,h,ramollo,debug_3d,pvm 
+use module_choix, only: btt,visc  ! afq - 03/2023 - not clean 
+
+implicit none
+  
 ! calcule les viscosites integrees pvi et pvm
 ! loi polynomiale + couplage thermomécanique
@@ -385 +405 @@
 !$  integer :: rang ,nb_taches
 !$  logical :: paral
+
+integer i,j,k !loop integers
 
 if (itracebug.eq.1)  call tracebug(' Calc pvi')
@@ -519 +541 @@
 subroutine imx_imy_nx_ny
 
+use module3d_phy, only: imx_diag,imy_diag,flgzmx,flgzmy 
+         
+implicit none
+
 ! definition des masques
 ! pour rempli_L2 : calcule les masques imx et imy qui 
@@ -598 +624 @@
 
 subroutine imx_imy_nx_ny_reduce(choix)
+
+use module3d_phy, only: flot,imx_diag,imy_diag,gr_line 
+         
+implicit none
 
 !afq -- For the backforce computation we do not need to compute the velocities everywhere
@@ -663 +693 @@
 
 subroutine mismip_boundary_cond
+
+use module3d_phy, only: itracebug,imx_diag,imy_diag,uxbar,uybar 
+
+implicit none
+
 if (itracebug.eq.1)  call tracebug(' Subroutine mismip_boundray_cond')