Changeset 448 for branches

Timestamp:

10/12/23 13:37:40 (8 months ago)

Author:

aquiquet

Message:

Cleaning branch: use only statements in main3D

File:

• branches/GRISLIv3/SOURCES/main3D-0.4-40km.f90 (modified) (2 diffs)

branches/GRISLIv3/SOURCES/main3D-0.4-40km.f90

@@ -102 +102 @@
 program main3D
 
-  USE module3D_phy
-  use runparam, only: tend
-  USE module_choix !   module de choix du type de run
-  !  module_choix donne acces a tous les modules
-  !  de declaration des packages
-  use flottab_mod
-  use icetempmod
-  use sorties_ncdf_grisli
-  use diagno_mod 
-  use resolmeca_SIA_L1
-  use bilan_eau_mod
-!  use track_debug 
+  use module3D_phy, only: time,iout,ntmax
+  use runparam, only: tend,itracebug,nt
 
   implicit none
@@ -141 +131 @@
 subroutine grisli_init
 
-  USE module3D_phy
-  use runparam, only: tbegin,dtprofile,dtcpt,dirnameout,runname
-  USE module_choix ! module de choix du type de run
+  USE module3D_phy, only: itemp,icouple,isynchro,imargin,icompteur,iglen,timecg,marine,num_sealevel, &
+                          num_ts_ritz,num_ic_vo,num_ic_by,num_ic_dm,num_ic_dc,num_ic_df, &
+                          s,h,b,bsoc,flot,uxbar,uybar,hwater,time,timemax,boost,ndebug,ndebug_max
+  use runparam, only: nt,tbegin,tgrounded,dtprofile,dtcpt,dirnameout,runname,itracebug
+  use geography, only: nx,ny,geoplace
+  use deformation_mod_2lois, only:n1poly,n2poly
+  use module_choix, only: forclim,ablation,bmeltshelf,calving,flow_general,flowlaw,init_bilan_eau
   !  module_choix donne acces a tous les modules
   !  de declaration des packages
-  use flottab_mod
-  use icetempmod
-  use sorties_ncdf_grisli
-  use util_recovery
-  use diagno_mod 
+  use flottab_mod, only: flottab
+  use sorties_ncdf_grisli, only: iglob_ncdf,testsort_time_ncdf,init_sortie_ncdf,testsort_time_ncdf, &
+                                 sortie_ncdf_cat
+  use util_recovery, only: dtout
+  
 !  use track_debug 
 
   implicit none
+
+  integer :: i,j
 
   if (itracebug.eq.1)  call tracebug(' Entree dans routine grisli_init')