Changeset 398 for branches/GRISLIv3

Timestamp:

03/24/23 17:48:34 (16 months ago)

Author:

dumas

Message:

use only in module imposed_regions_rsl

File:

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

branches/GRISLIv3/SOURCES/imposed_regions_rsl.f90

@@ -17 +17 @@
 !  ii- un fichier netcdf qui contient les regions, numerotees en partant de 0. La region 0 n'est pas touchee, niveau eustatique
 
-  use module3D_phy,only: nx,ny,time,num_param,num_forc,num_rep_42,dirforcage,dirnameinp,sealevel,sealevel_2d
+  use module3D_phy, only:nx,ny
   use netcdf
-  use io_netcdf_grisli
+  use io_netcdf_grisli, only:read_ncdf_var
 
   implicit none
@@ -39 +39 @@
   subroutine input_rsl
 
+    use module3D_phy, only:num_param,num_forc,num_rep_42,dirforcage,dirnameinp
     implicit none
 
@@ -121 +122 @@
 !>
   subroutine rsl
+    
+    use module3D_phy, only:sealevel,sealevel_2d,time
 
+    implicit none
+    
     integer i,j