Changeset 465 for branches/GRISLIv3/SOURCES/Ant40_files/output_anta40_mod-0.4.f90

Timestamp:

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

Author:

aquiquet

Message:

Cleaning branch: start cleaning module3D

File:

• branches/GRISLIv3/SOURCES/Ant40_files/output_anta40_mod-0.4.f90 (modified) (4 diffs)

branches/GRISLIv3/SOURCES/Ant40_files/output_anta40_mod-0.4.f90

@@ -13 +13 @@
 module  output_antarcti_mod
 
-use module3D_phy,only: ndisp,xlong,ylat,vol,np,hmax,b,s,acc,h,t,tbdot,ux,uy,uzk,uzsdot, &
-              hdot,bdot,hmean,num_ritz,tafor,sealevel,ts
+use module3D_phy,only: xlong,ylat,b,s,acc,h,t,tbdot,ux,uy,uzk,uzsdot, &
+              hdot,bdot,num_ritz,tafor,sealevel,ts
 use geography, only: nx,ny,nz,geoplace,dirnameinp
 use runparam, only: dirnameout,runname
@@ -24 +24 @@
 implicit none
       
-!real ::  vol ; !integer :: np
+real ::  vol ; !integer :: np
 integer :: nflot                      !< nbr de point flottant
 real ::  bmean                        !<
@@ -111 +111 @@
 
 
-!ndisp sorite courte tous les ndisp
-NDISP=100
 
 
@@ -386 +384 @@
 ! 1_initialization
 !------------------
-real ::  smax
-integer :: i,j,k,l
+real ::  smax,hmax,hmean
+integer :: np,i,j,k,l
 
       vol=0.