13 |
! klevel et rotin sont des arguments d'entree pour le s-prog |
! klevel et rotin sont des arguments d'entree pour le s-prog |
14 |
! rotout est un argument de sortie pour le s-prog |
! rotout est un argument de sortie pour le s-prog |
15 |
|
|
16 |
USE dimens_m |
USE dimensions |
17 |
USE paramet_m |
USE paramet_m |
18 |
USE comgeom |
USE comgeom |
19 |
USE filtreg_v_m, ONLY: filtreg_v |
USE filtreg_v_m, ONLY: filtreg_v |
20 |
|
use nxgrad_m, only: nxgrad |
21 |
use rotatf_m, only: rotatf |
use rotatf_m, only: rotatf |
22 |
|
|
23 |
IMPLICIT NONE |
IMPLICIT NONE |