/[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 57 by guez, Mon Jan 30 12:54:02 2012 UTC revision 69 by guez, Mon Feb 18 16:33:12 2013 UTC
# Line 10  module clesphys2 Line 10  module clesphys2
10    
11    LOGICAL:: soil_model = .TRUE.    LOGICAL:: soil_model = .TRUE.
12    ! Choix du modele de sol (Thermique ?)    ! Choix du modele de sol (Thermique ?)
   ! Option qui pourait un string afin de pouvoir  
   ! plus de choix ! Ou meme une liste d'options  
13    
14    LOGICAL:: new_oliq = .TRUE.    LOGICAL:: new_oliq = .TRUE.
15    ! Permet de mettre en route la nouvelle parametrisation de l'eau liquide    ! Permet de mettre en route la nouvelle parametrisation de l'eau liquide
16    
17    LOGICAL:: ok_orodr = .TRUE. ! pour l'orographie    ! Pour l'orographie:
18    LOGICAL:: ok_orolf = .TRUE. ! pour l'orographie    LOGICAL:: ok_orodr = .TRUE.
19      LOGICAL:: ok_orolf = .TRUE.
20    
21    LOGICAL:: ok_limitvrai = .FALSE.    LOGICAL:: ok_limitvrai = .FALSE.
22    ! On peut forcer le modele a lire le fichier SST de la bonne    ! On peut forcer le modele a lire le fichier SST de la bonne
23    ! annee. C'est une tres bonne idee, pourquoi ne pas mettre toujours    ! annee.
   ! a y ?  
24    
25    INTEGER:: nbapp_rad = 12    INTEGER:: nbapp_rad = 12
26    ! (nombre d'appels des routines de rayonnements par jour)    ! nombre d'appels des routines de rayonnements par jour
27    
28    INTEGER:: iflag_con = 2    INTEGER:: iflag_con = 2
29    ! Flag pour la convection :    ! Convection scheme:
30    ! 1 LMD,    ! 2 Tiedtke
31    ! 2 Tiedtke,    ! 3 Emanuel
32    ! 3 CCM(NCAR)      ! 4 Emanuel vect
   ! 3 KE  
   ! 4 KE vect  
33    
34  contains  contains
35    
# Line 50  contains Line 46  contains
46      read(unit=*, nml=clesphys2_nml)      read(unit=*, nml=clesphys2_nml)
47      write(unit_nml, nml=clesphys2_nml)      write(unit_nml, nml=clesphys2_nml)
48    
49      select case (iflag_con)      if (iflag_con <= 1) then
50      case (1)         print *, "bad value for iflag_con"
51         PRINT *, 'Schéma convection LMD'         stop 1
52      case (2)      end if
        PRINT *, 'Schéma convection Tiedtke'  
     case (3)  
        PRINT *, 'Schéma convection CCM'  
     END select  
53    
54    end subroutine read_clesphys2    end subroutine read_clesphys2
55    
Legend:
Removed from v.57  
changed lines
  Added in v.69
  ViewVC Help
Powered by ViewVC 1.1.21