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

Diff of /trunk/phylmd/printflag.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 98 by guez, Tue May 13 17:23:16 2014 UTC revision 99 by guez, Wed Jul 2 18:39:15 2014 UTC
# Line 1  Line 1 
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
# Line 7  SUBROUTINE printflag(radpas, ok_ocean, o Line 6  SUBROUTINE printflag(radpas, ok_ocean, o
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)
Legend:
Removed from v.98  
changed lines
  Added in v.99
  ViewVC Help
Powered by ViewVC 1.1.21