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

Diff of /trunk/Sources/phylmd/printflag.f

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

trunk/phylmd/printflag.f revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC trunk/Sources/phylmd/printflag.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC
# Line 1  Line 1 
1  SUBROUTINE printflag(radpas, ok_ocean, ok_oasis, 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_oasis, 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 5, ok_ocean, ok_oasis  
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)
 5 FORMAT ('ok_ocean = ', L3, ', ok_oasis = ', L3)  
19  8 FORMAT ('radpas = ', I4)  8 FORMAT ('radpas = ', I4)
20    
21  END SUBROUTINE printflag  END SUBROUTINE printflag
Legend:
Removed from v.82  
changed lines
  Added in v.134
  ViewVC Help
Powered by ViewVC 1.1.21