trunk/phylmd/printflag.f

SUBROUTINE printflag(radpas, ok_ocean, ok_oasis, ok_journe, ok_instan, &
     ok_region)

  ! From phylmd/printflag.F, v 1.1.1.1 2004/05/19 12:53:09
  ! Auteur : P. Le Van

  IMPLICIT NONE

  INTEGER, INTENT (IN) :: radpas
  LOGICAL, INTENT (IN) :: ok_ocean, ok_oasis, ok_journe, ok_instan, ok_region

  !--------------------------------------------------

  PRINT *, 'Choix des principales clés de la physique'

  PRINT 8, radpas
  PRINT 5, ok_ocean, ok_oasis
  PRINT 4, ok_journe, ok_instan, ok_region

4 FORMAT ('ok_journe= ', L3, ', ok_instan = ', L3, ', ok_region = ', L3)
5 FORMAT ('ok_ocean = ', L3, ', ok_oasis = ', L3)
8 FORMAT ('radpas = ', I4)

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