Changeset 465 for branches/GRISLIv3/SOURCES/Laure16_files/lect-laurentide_mod.f90

Timestamp:

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

Author:

aquiquet

Message:

Cleaning branch: start cleaning module3D

File:

• branches/GRISLIv3/SOURCES/Laure16_files/lect-laurentide_mod.f90 (modified) (1 diff)

branches/GRISLIv3/SOURCES/Laure16_files/lect-laurentide_mod.f90

@@ -19 +19 @@
 subroutine input_topo
 
-  integer :: ios
+  use geography, only: dirnameinp
+  use runparam, only: xmin,xmax,ymin,ymax
+
+  integer :: i,j,k,ios
   real, dimension(nx,ny) :: varloc