source: branches/iLoveclim/SOURCES/Draggings_modules/fake_beta_iter_vitbil_mod.f90 @ 254

Last change on this file since 254 was 187, checked in by aquiquet, 6 years ago

Grisli-iloveclim branch merged to trunk at revision 185
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.