Changeset 465 for branches/GRISLIv3/SOURCES/Laure16_files/output_laure16_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/output_laure16_mod.f90 (modified) (5 diffs)

branches/GRISLIv3/SOURCES/Laure16_files/output_laure16_mod.f90

@@ -1 +1 @@
 module  output_laure16_mod
 
+  use geography, only: nx,ny
   use module3D_phy
   use bilan_eau_mod
@@ -8 +9 @@
 
 implicit none
+
+integer :: i,j ! loop integers
 
 logical,dimension(nx,ny,7) :: mask_cal !< masque regions calotte 
@@ -29 +32 @@
 subroutine init_outshort
 
+  use geography, only: geoplace,dirnameinp
+  use runparam, only: dirnameout,runname
+
+  integer :: i,j,k
 
 double precision,dimension(:,:),pointer      :: tab               !< tableau 2d real pointer
@@ -37 +44 @@
 
 
-!ndisp sorite courte tous les ndisp
-NDISP=100
 mask_cal(:,:,:)=.false.
 mask_cal(:,:,1)=.true.
@@ -175 +180 @@
 !------------------
 
+  integer :: k,np
+
   ! ISMIP type outputs: (nc file)
   real :: lim                           !< Total ice mass