Changeset 467 for branches/GRISLIv3/SOURCES/eaubasale-0.5_mod.f90

Timestamp:

01/26/24 16:49:00 (4 months ago)

Author:

aquiquet

Message:

Cleaning branch: continuing module3D cleaning

File:

• branches/GRISLIv3/SOURCES/eaubasale-0.5_mod.f90 (modified) (3 diffs)

branches/GRISLIv3/SOURCES/eaubasale-0.5_mod.f90

@@ -34 +34 @@
   real :: nefflocal
 
+  real,dimension(nx,ny) :: KOND         !< basale hydro. conductivity 'o'
+  real,dimension(nx,ny) :: pgx,pgy      !< hydro. potential gradient  / x '>' and / y '^'
+  real,dimension(nx,ny) :: phiWx,phiWy  !< flux d'eau sous glaciaire  / x '>' and / y '^'
+  real,dimension(nx,ny) :: PWATER       !< basal water pressure
   REAL,dimension(NX,NY) :: limit_hw    !< conditions aux limites
   integer,dimension(NX,NY) :: klimit    !< ou appliquer les conditions 
@@ -57 +61 @@
   subroutine init_eaubasale
 
-    use module3d_phy, only:num_param,num_rep_42,kond,secyear,hdotwater,pgx,pgy
+    use module3d_phy, only:num_param,num_rep_42,secyear,hdotwater
     
     namelist/eaubasale1/ecoulement_eau,hwatermax,infiltr 
@@ -126 +130 @@
   subroutine eaubasale !(pwater)   version correspondant à la thèse de Vincent
 
-    use module3d_phy, only:hwater,kond,secyear,flot,sealevel_2D,Bsoc,ibase,S,H,B,bmelt,&
-         debug_3d,flotmx,flotmy,pgx,pgy,phiwx,phiwy,isynchro,dtt,dt,hdotwater,pwater
+    use module3d_phy, only:hwater,secyear,flot,sealevel_2D,Bsoc,ibase,S,H,B,bmelt,&
+         debug_3d,flotmx,flotmy,isynchro,dtt,dt,hdotwater
     use geography, only:dx,dy
     use param_phy_mod, only:rowg,ro,rog,rofreshg,rofresh