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
|
Rev | Line | |
---|
[168] | 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.