/[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 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 98 by guez, Tue May 13 17:23:16 2014 UTC
# Line 1  Line 1 
1  SUBROUTINE printflag(radpas, ok_ocean, ok_oasis, ok_journe, ok_instan, &  SUBROUTINE printflag(radpas, ok_ocean, ok_journe, ok_instan, &
2       ok_region)       ok_region)
3    
4    ! 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
# Line 7  SUBROUTINE printflag(radpas, ok_ocean, o Line 7  SUBROUTINE printflag(radpas, ok_ocean, o
7    IMPLICIT NONE    IMPLICIT NONE
8    
9    INTEGER, INTENT (IN) :: radpas    INTEGER, INTENT (IN) :: radpas
10    LOGICAL, INTENT (IN) :: ok_ocean, ok_oasis, ok_journe, ok_instan, ok_region    LOGICAL, INTENT (IN) :: ok_ocean, ok_journe, ok_instan, ok_region
11    
12    !--------------------------------------------------    !--------------------------------------------------
13    
14    PRINT *, 'Choix des principales clés de la physique'    PRINT *, 'Choix des principales clés de la physique'
15    
16    PRINT 8, radpas    PRINT 8, radpas
17    PRINT 5, ok_ocean, ok_oasis    PRINT *, "ok_ocean = ", ok_ocean
18    PRINT 4, ok_journe, ok_instan, ok_region    PRINT 4, ok_journe, ok_instan, ok_region
19    
20  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)  
21  8 FORMAT ('radpas = ', I4)  8 FORMAT ('radpas = ', I4)
22    
23  END SUBROUTINE printflag  END SUBROUTINE printflag
Legend:
Removed from v.82  
changed lines
  Added in v.98
  ViewVC Help
Powered by ViewVC 1.1.21