Changeset 24 for trunk/SOURCES/initial-0.3.f90

Timestamp:

12/08/15 15:22:18 (8 years ago)

Author:

dumas

Message:

Correction Bug dans le calcul de la temperature : reecriture sans les modules-procedures

File:

• trunk/SOURCES/initial-0.3.f90 (modified) (4 diffs)

trunk/SOURCES/initial-0.3.f90

@@ -12 +12 @@
 !! @note    - use module3D_phy
 !! @note    - use module_choix
-!! @note    - use interface_icetempmod
-!! @note    - use interface_prop_th_icetemp
+!! @note    - use icetempmod
 !! @note    - use diagno_mod 
 !! @note    - use resolmeca_SIA_L1
@@ -25 +24 @@
   use module3D_phy
   use module_choix
-  use interface_icetempmod
-  use interface_prop_th_icetemp
+  use icetempmod
   use diagno_mod 
   use resolmeca_SIA_L1
@@ -88 +86 @@
   if (geoplace(1:5).ne.'mism3') then
      call init_icetemp(Num_rep_42)        ! initialise le calcul de temperature
-     call thermal_prop_icetemp(T,TPMP,H,debug_3D)  ! appel aux proprietes thermiques
+     call thermal_prop_icetemp            ! appel aux proprietes thermiques
      call init_bmelt                      ! Appel aux tableaux d'initialisation des ice shelves
 
@@ -137 +135 @@
   call init_calving
 
-  call allocate_types  ! cette routine alloue tous les types derive 
 !
 !-------------------------------------------------------------------------------------