Changeset 376 for branches/GRISLIv3

Timestamp:

03/20/23 17:08:14 (16 months ago)

Author:

aquiquet

Message:

Cleaning branch: use only statements for isostasy

Location:

branches/GRISLIv3/SOURCES

Files:

• 3D-physique-gen_mod.f90 (modified) (1 diff)
• isostasie_mod-0.3.f90 (modified) (2 diffs)
• litho-0.4.f90 (modified) (1 diff)
• tab-litho-0.3.f90 (modified) (1 diff)
• taubed-0.3.f90 (modified) (1 diff)

branches/GRISLIv3/SOURCES/3D-physique-gen_mod.f90

@@ -190 +190 @@
   !     *************** common des tableaux a 1 dimension *****
   real,dimension(nz) :: e               !< vertical coordinate in ice, scaled to H zeta
-
-
-  real,dimension(NZ) :: CDE             !< 
-  real,dimension(NZ) :: W16             !<  pour sorties eismint
-  real,dimension(NZ) :: W24             !<  pour sorties eismint
-  real,dimension(NZ) :: UZCOMPLETE      !<  pour sorties eismint (vitesse vert. non reduite)
-
-!  real,dimension(365) :: TT             !< air temperature yearly cycle, for PDD
- 
-  real,dimension(NX) :: FLUX            !< 
-  real,dimension(8) :: AFLAG            !< 
-  real,dimension(2*nx*ny) :: SAV        !< 
+  real,dimension(nz) :: CDE             !<  
 
   !    ************* common des tableaux a deux dimensions ******

branches/GRISLIv3/SOURCES/isostasie_mod-0.3.f90

@@ -16 +16 @@
 
 module isostasie_mod
+ 
+   use iso_declar,only: nbed 
 
-  use iso_declar
-  
 contains
 
@@ -26 +26 @@
   subroutine init_iso ! routine qui permet d'initialiser les variables 
 
-    use module3D_phy
-    use param_phy_mod
+    use iso_declar,only: nlith,dt_iso,tausoc,dl,rl,lbloc,we,charge
+    use module3D_phy, only: geoplace,icouple,marine,err,dx,nx,ny,h0,bsoc0,sealevel_2d,w0,w1,i,j
+    use param_phy_mod, only: ro,row,rog,rowg,romg
 
     implicit none

branches/GRISLIv3/SOURCES/litho-0.4.f90

@@ -39 +39 @@
 subroutine litho
   !$ USE OMP_LIB
-  USE module3D_phy
-  USE param_phy_mod
-  USE ISO_DECLAR ! module de declaration des variables specifiques a l'isostasie
+  USE module3D_phy, only: err,nx,ny,i,j,w1
+  USE iso_declar, only: lbloc,we,charge ! module de declaration des variables specifiques a l'isostasie
 
   implicit none

branches/GRISLIv3/SOURCES/tab-litho-0.3.f90

@@ -24 +24 @@
 subroutine tab_litho 
 
-  USE module3D_phy
-  USE param_phy_mod
-  USE ISO_DECLAR ! module de declaration pour l'isostasie
+  USE module3D_phy, only: pi,dx,dy,num_kelvin,dirnameinp,i,j,k
+  USE param_phy_mod, only: rom,g
+  USE iso_declar, only: rl,dl,lbloc,we ! module de declaration pour l'isostasie
 
 

branches/GRISLIv3/SOURCES/taubed-0.3.f90

@@ -44 +44 @@
 
   !$USE OMP_LIB 
-  USE module3D_phy
-  USE param_phy_mod
-  USE ISO_DECLAR ! module de declaration des variables de l'isostasie
+  USE module3D_phy, only: i,j,nx,ny,h,bsoc0,bsoc,bdot,sealevel_2d,w0,w1
+  USE param_phy_mod, only: ro,row,rog,rowg,rom
+  USE iso_declar,only: nlith,lbloc,charge,dt_iso,tausoc ! module de declaration des variables de l'isostasie
 
   implicit none