1 |
SUBROUTINE printflag(radpas, ok_ocean, ok_oasis, ok_journe, ok_instan, & |
2 |
ok_region) |
3 |
|
4 |
! From phylmd/printflag.F, v 1.1.1.1 2004/05/19 12:53:09 |
5 |
! Auteur : P. Le Van |
6 |
|
7 |
IMPLICIT NONE |
8 |
|
9 |
INTEGER, INTENT (IN) :: radpas |
10 |
LOGICAL, INTENT (IN) :: ok_ocean, ok_oasis, ok_journe, ok_instan, ok_region |
11 |
|
12 |
!-------------------------------------------------- |
13 |
|
14 |
PRINT *, 'Choix des principales clés de la physique' |
15 |
|
16 |
PRINT 8, radpas |
17 |
PRINT 5, ok_ocean, ok_oasis |
18 |
PRINT 4, ok_journe, ok_instan, ok_region |
19 |
|
20 |
4 FORMAT ('ok_journe= ', L3, ', ok_instan = ', L3, ', ok_region = ', L3) |
21 |
5 FORMAT ('ok_ocean = ', L3, ', ok_oasis = ', L3) |
22 |
8 FORMAT ('radpas = ', I4) |
23 |
|
24 |
END SUBROUTINE printflag |