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