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

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

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 17  module clesphys2 Line 17  module clesphys2
17    ! Help = Permet de mettre en route la    ! Help = Permet de mettre en route la
18    ! nouvelle parametrisation de l'eau liquide    ! nouvelle parametrisation de l'eau liquide
19    
20    LOGICAL:: ok_orodr= .TRUE.    LOGICAL:: ok_orodr= .TRUE. ! orodr pour l'orographie
   ! Desc = Orodr  ou  non   pour l orographie  
21    
22    LOGICAL:: ok_orolf = .TRUE.    LOGICAL:: ok_orolf = .TRUE.
23    ! Desc = Orolf  ou  non   pour l orographie    ! Desc = Orolf  ou  non   pour l orographie
# Line 32  module clesphys2 Line 31  module clesphys2
31    ! (nombre d'appels des routines de rayonnements par jour)    ! (nombre d'appels des routines de rayonnements par jour)
32    
33    INTEGER:: iflag_con = 2    INTEGER:: iflag_con = 2
34    ! Help = Flag  pour la convection les options suivantes existent :    ! Flag pour la convection :
35    ! 1 pour LMD,    ! 1 LMD,
36    ! 2 pour Tiedtke,    ! 2 Tiedtke,
37    ! 3 pour CCM(NCAR)      ! 3 CCM(NCAR)  
38    ! Flag  pour la convection (1 pour LMD, 2 pour Tiedtke, 3 KE, 4 KE vect)    ! 3 KE
39      ! 4 KE vect
40    
41    contains
42    
43      subroutine read_clesphys2
44    
45        namelist /clesphys2_nml/cycle_diurne, soil_model, new_oliq, &
46             ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con
47    
48        !------------------------------------
49    
50        print *, "Enter namelist 'clesphys2_nml'."
51        read(unit=*, nml=clesphys2_nml)
52        write(unit=*, nml=clesphys2_nml)
53    
54        select case (iflag_con)
55        case (1)
56           PRINT *, 'Schéma convection LMD'
57        case (2)
58           PRINT *, 'Schéma convection Tiedtke'
59        case (3)
60           PRINT *, 'Schéma convection CCM'
61        END select
62    
63      end subroutine read_clesphys2
64    
65  end module clesphys2  end module clesphys2
Legend:
Removed from v.12  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.21