Changeset 399

Timestamp:

03/24/23 18:31:23 (14 months ago)

Author:

dumas

Message:

use only in subroutine initial

File:

• branches/GRISLIv3/SOURCES/initial-0.3.f90 (modified) (3 diffs)

branches/GRISLIv3/SOURCES/initial-0.3.f90

@@ -22 +22 @@
 subroutine initial
 
-  use module3D_phy
-  use module_choix
-  use icetempmod
-  use diagno_mod 
-  use resolmeca_SIA_L1
-  use flottab_mod
-  use sorties_ncdf_grisli
-  use util_recovery
-  use bilan_flux_mod
+  use module3D_phy, only:time,H,hmx,hmy,T,tpmp,bmelt,geoplace,icompteur,num_rep_42
+  use runparam, only: tbegin
+  use module_choix, only:input_topo,init_forclim,input_clim,init_ablation,init_tracer,&
+       input_rsl,init_eaubasale,init_bmelt,init_outshort,init_iso,init_deformation,initial_heino,&
+       init_furst_schoof,init_sliding,init_spinup,init_dragging,init_icethick,initial_matrice,&
+       init_calving
+  use icetempmod, only:init_icetemp
+  use diagno_mod, only:init_diagno
+  use resolmeca_SIA_L1, only:init_resol_meca
+  use flottab_mod, only:
+  use sorties_ncdf_grisli, only:sortie_ncdf_cat,init_out_ncdf
+  use util_recovery, only:init_recovery
+  use bilan_flux_mod, only:init_bilan_flux
 
   !-------------------------------------------------------------------------------------
   ! nouvelles entrees modulaires  janvier 2006
-  call initial_phy()        ! La physique
+  call initial_phy          ! La physique
   call initial2             ! Initialisation des tableaux
   !
-  call  input_topo()        ! La geographie
+  call  input_topo          ! La geographie
 
   !------------------------------------------------------
   ! initialisation du climat  (reference et forcage)
-!cdc  call input_climat_ref()  ! Le climat de reference
+!cdc  call input_climat_ref    ! Le climat de reference
   call init_forclim        ! parametres du forcage
   call input_clim          ! lecture fichiers de forcage
@@ -85 +89 @@
 
   if (geoplace(1:5).ne.'mism3') then
-     call init_icetemp(Num_rep_42)        ! initialise le calcul de temperature
+     call init_icetemp(num_rep_42)        ! initialise le calcul de temperature
      call thermal_prop_icetemp            ! appel aux proprietes thermiques
      call init_bmelt                      ! Appel aux tableaux d'initialisation des ice shelves
@@ -129 +133 @@
   call init_icethick   ! interverti avec init_dragging
 
-!  call init_dragging   ! initialisation du frottement
-
   call initial_matrice !   cette routine est dans le module eq_elliptique_mod