/[lmdze]/trunk/phylmd/printflag.f
ViewVC logotype

Contents of /trunk/phylmd/printflag.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 82 - (show annotations)
Wed Mar 5 14:57:53 2014 UTC (10 years, 2 months ago) by guez
File size: 681 byte(s)
Changed all ".f90" suffixes to ".f".
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

  ViewVC Help
Powered by ViewVC 1.1.21