/[lmdze]/trunk/libf/phylmd/printflag.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/printflag.f90

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

revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC revision 13 by guez, Fri Jul 25 19:59:34 2008 UTC
# Line 4  SUBROUTINE printflag(radpas, ok_ocean, o Line 4  SUBROUTINE printflag(radpas, ok_ocean, o
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
5    ! Auteur : P. Le Van    ! Auteur : P. Le Van
6    
   USE clesphys2, ONLY: cycle_diurne, iflag_con, nbapp_rad, new_oliq, &  
        ok_limitvrai, ok_orodr, ok_orolf, soil_model  
   
7    IMPLICIT NONE    IMPLICIT NONE
8    
9    INTEGER, INTENT (IN) :: radpas    INTEGER, INTENT (IN) :: radpas
# Line 14  SUBROUTINE printflag(radpas, ok_ocean, o Line 11  SUBROUTINE printflag(radpas, ok_ocean, o
11    
12    !--------------------------------------------------    !--------------------------------------------------
13    
14    PRINT *, 'Choix des principales cles de la physique'    PRINT *, 'Choix des principales clés de la physique'
   PRINT 10, cycle_diurne, soil_model  
15    
   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  
16    PRINT 8, radpas    PRINT 8, radpas
17    PRINT 5, ok_ocean, ok_oasis    PRINT 5, ok_ocean, ok_oasis
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)
21  5 FORMAT ('ok_ocean = ', L3, ', ok_oasis = ', L3)  5 FORMAT ('ok_ocean = ', L3, ', ok_oasis = ', L3)
 7 FORMAT ('ok_limitvrai   = ', L3)  
22  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)  
23    
24  END SUBROUTINE printflag  END SUBROUTINE printflag
Legend:
Removed from v.12  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.21