Changeset 166

Timestamp:

12/13/17 18:05:15 (6 years ago)

Author:

dumas

Message:

inv_beta : 0 for std run, 1 for iterbeta

File:

• trunk/SOURCES/3D-physique-gen_mod.f90 (modified) (1 diff)

trunk/SOURCES/3D-physique-gen_mod.f90

@@ -38 +38 @@
   integer ::  ibmelt_inv                !< si 1 inversion du bmelt (avec igrdline=1)
   integer ::  i_resolmeca               !< defini le type d'association SIA-L1
-  integer ::  iter_beta                 !< pour la determination du frottement
+!cdc  integer ::  iter_beta             !< pour la determination du frottement plus utilise
+  integer ::  inv_beta                  !< 0 : run std, 1 : inversion du beta
   integer ::  ICOUPLE                   !< 
   integer ::  IMARGIN                   !<