Last change
on this file since 190 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 | |
---|
7 | module 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 | |
---|
24 | end module fake_beta_iter_vitbil_mod |
---|
Note: See
TracBrowser
for help on using the repository browser.