Changeset 397 for branches/GRISLIv3/SOURCES/deformation_mod_2lois.f90

Timestamp:

03/24/23 16:05:58 (13 months ago)

Author:

dumas

Message:

use only in module furst_schoof_mod

File:

• branches/GRISLIv3/SOURCES/deformation_mod_2lois.f90 (modified) (4 diffs)

branches/GRISLIv3/SOURCES/deformation_mod_2lois.f90

@@ -27 +27 @@
 module deformation_mod_2lois
 
-  use module3d_phy, only:nx,ny,nz,e,num_param,num_rep_42,rgas,T,iglen,tpmp,H
+  use module3d_phy, only:nx,ny,nz!,e,num_param,num_rep_42,rgas,T,iglen,tpmp,H
 
   implicit none
@@ -82 +82 @@
   !! Routine qui lit les variables de deformation 
   !>
-  subroutine init_deformation 
-
+  subroutine init_deformation
+    
+    use module3d_phy, only:num_param,num_rep_42,rgas,iglen
+
+    implicit none
+    
     real :: exposant_1
     real :: temp_trans_1
@@ -167 +171 @@
   !--------------------------------------------------------------------
   subroutine flow_general
-
+    
+    use module3d_phy, only:T,tpmp
     !$ USE OMP_LIB
+    
     implicit none
 
@@ -193 +199 @@
   !---------------------------------------------------------------------------------------
   subroutine flowlaw (iiglen)
-
+    
+    use module3d_phy, only:e,T,rgas,H,iglen
     !$ USE OMP_LIB