/[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/libf/phylmd/printflag.f90 revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC trunk/phylmd/printflag.f revision 99 by guez, Wed Jul 2 18:39:15 2014 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
5    
   USE clesphys2, ONLY: cycle_diurne, iflag_con, nbapp_rad, new_oliq, &  
        ok_limitvrai, ok_orodr, ok_orolf, soil_model  
   
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 cles de la physique'    PRINT *, 'Choix des principales clés de la physique'
   PRINT 10, cycle_diurne, soil_model  
14    
   select case (iflag_con)  
   case (1)  
      PRINT *, 'Shema convection LMD'  
   case (2)  
      PRINT *, 'Shema convection Tiedtke'  
   case (3)  
      PRINT *, 'Shema convection CCM'  
   END select  
   
   PRINT 11, new_oliq, ok_orodr, ok_orolf  
   PRINT 7, ok_limitvrai  
   PRINT 12, nbapp_rad  
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)  
 7 FORMAT ('ok_limitvrai   = ', L3)  
19  8 FORMAT ('radpas = ', I4)  8 FORMAT ('radpas = ', I4)
 10 FORMAT ('Cycle_diurne = ', L3, ', Soil_model = ', L3)  
 11 FORMAT ('new_oliq = ', L3, ', Ok_orodr = ', L3, ', Ok_orolf = ', L3)  
 12 FORMAT ('Nb d appels /jour des routines de rayonn. = ', I4)  
20    
21  END SUBROUTINE printflag  END SUBROUTINE printflag
Legend:
Removed from v.12  
changed lines
  Added in v.99
  ViewVC Help
Powered by ViewVC 1.1.21