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

Timestamp:

01/26/24 10:24:00 (4 months ago)

Author:

aquiquet

Message:

Cleaning branch: start cleaning module3D

File:

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

branches/GRISLIv3/SOURCES/deformation_mod_2lois.f90

@@ -84 +84 @@
   subroutine init_deformation
     
-    use module3d_phy, only:num_param,num_rep_42,rgas,iglen
+    use module3d_phy, only:num_param,num_rep_42,iglen
+    use param_phy_mod, only:rgas
 
     implicit none
@@ -152 +153 @@
     Q2(2)     = Q_warm_2 
 
-    ! autre parametres ne changeant pas d'un run a l'autre
-    RGAS=8.314
-
     ! application des sf
 
@@ -200 +198 @@
   subroutine flowlaw (iiglen)
     
-    use module3d_phy, only:e,T,rgas,H,iglen
+    use module3d_phy, only:e,T,H,iglen
+    use param_phy_mod, only:rgas
     !$ USE OMP_LIB