source: trunk/SOURCES/Draggings_modules/fake_beta_iter_vitbil_mod.f90

Last change on this file was 168, checked in by dumas, 7 years ago

For compatibility update dragging modules
File size: 758 bytes
Line 
1!< \file fake_beta_iter_vitbil_mod.f90
2!< Module fake pour compatibilite avec iteration beta
3!< A appeler depuis les modules de dragging
4
5
6
7module fake_beta_iter_vitbil_mod
8
9  use module3d_phy
10 
11  implicit none
12 
13  real                   :: time_iter=1000000.       !< temps de debut des iterations
14  real                   :: time_iter_end=1000001.   !< temps de fin des iterations
15  integer                :: nb_iter_vitbil           !< nombre d'iteratiosn avant de changer de pas de temps
16 
17  contains
18 
19  subroutine beta_iter_vitbil(m_iter) 
20    integer :: m_iter ! indice bloucle iteration
21    if (itracebug.eq.1)  call tracebug(' Entree dans routine fake_beta_iter_vitbil')
22  end subroutine beta_iter_vitbil
23 
24end module fake_beta_iter_vitbil_mod
Note: See TracBrowser for help on using the repository browser.