Changeset 402 for branches/GRISLIv3

Timestamp:

03/30/23 15:46:37 (16 months ago)

Author:

aquiquet

Message:

Cleaning branch: use only statements in Netcdf-routines

File:

• branches/GRISLIv3/SOURCES/Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90 (modified) (5 diffs)

branches/GRISLIv3/SOURCES/Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90

@@ -19 +19 @@
 
   use netcdf
-  use geography     ! permet d'avoir nx et ny et geoplace
-  use runparam      ! permet d'avoir tbegin,tend,runname,dirout
-  use io_netcdf_grisli
-  use module3d_phy
-  use tracer_vars   ! aurel neem
-  use bilan_eau_mod
  
   implicit none
@@ -154 +148 @@
   subroutine init_out_ncdf
 
+    use runparam,         only: dirsource
+    use io_netcdf_grisli, only: ncdf_type,lect_netcdf_type
+
     implicit none
+
     integer :: err   
     integer :: num_file=22
@@ -374 +372 @@
   subroutine testsort_time_ncdf(tsortie)
 
+    use runparam,     only: itracebug,nt,tbegin,tend 
+    use module3d_phy, only: dtmin
+
     implicit none
+
     !< local variables 
     double precision :: tsortie
@@ -488 +490 @@
   !<
   subroutine init_sortie_ncdf
+
+    use io_netcdf_grisli, only: ncdf_type,write_ncdf_dim
+    use geography,        only: nx,ny,nz,nzm 
+    use runparam,         only: itracebug,dirnameout,runname
 
     implicit none
@@ -654 +660 @@
 
   subroutine sortie_ncdf_cat
+
+    use io_netcdf_grisli, only: write_ncdf_var
+    use geography,    only: nx,ny,nz,nzm,dx,dy
+    use runparam,     only: itracebug,xmin,ymin,dirsource
+    use module3d_phy, only: s,s0,h,h0,b,socle_cry,sealevel,mk,mk_init,hdot,dhdt,tann,tjuly,t,tpmp, &
+                            acc,abl,ghf,phid,bmelt,uxbar,uybar,ux,uy,frotmx,frotmy,tobmx,tobmy,    &
+                            taushelf,epsxx,epsyy,epsxy,eps,abar,pvi,pvm,betamx,betamy,beta_centre, &
+                            ablbord_dtt,ice,front,gr_line_schoof,hwater,hdotwater,kond,bsoc,bm,    &
+                            pgx,pgy,phiwx,phiwy,flot_marais,neffmx,neffmy,gzmx,gzmy,ilemx,ilemy,   &
+                            fleuvemx,fleuvemy,flotmx,flotmy,hmx,hmy,frontfacex,frontfacey,sux,suy, &
+                            tpmp,ux,uy,uzr,debug_3d,xlong,ylat,time,dtt
+    use tracer_vars,  only: xdep_out,ydep_out,tdep_out
+    use bilan_eau_mod,only: tot_water,calv_dtt
+
+
     implicit none
+
     real (kind=kind(0.d0)) ::  timetmp                   !< variable intermediaire
     character(len=20) :: nametmp                         !< nom intermediaire