/[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 13 by guez, Fri Jul 25 19:59:34 2008 UTC revision 57 by guez, Mon Jan 30 12:54:02 2012 UTC
# Line 1  Line 1 
1  module clesphys2  module clesphys2
2    
3    ! v 1.3 2005/06/06 13:16:33 fairhead    ! From version 1.3 2005/06/06 13:16:33
4    
5    implicit none    implicit none
6    
7    LOGICAL:: cycle_diurne= .TRUE.    LOGICAL:: cycle_diurne = .TRUE.
8    ! Cette option permet d'éteindre le cycle diurne.    ! Cette option permet d'éteindre le cycle diurne.
9    ! Peut être utile pour accélérer le code.    ! Peut être utile pour accélérer le code.
10    
11    LOGICAL:: soil_model= .TRUE.    LOGICAL:: soil_model = .TRUE.
12    ! Help = Choix du modele de sol (Thermique ?)    ! Choix du modele de sol (Thermique ?)
13    ! Option qui pourait un string afin de pouvoir    ! Option qui pourait un string afin de pouvoir
14    ! plus de choix ! Ou meme une liste d'options    ! plus de choix ! Ou meme une liste d'options
15    
16    LOGICAL:: new_oliq= .TRUE.    LOGICAL:: new_oliq = .TRUE.
17    ! Help = Permet de mettre en route la    ! Permet de mettre en route la nouvelle parametrisation de l'eau liquide
   ! nouvelle parametrisation de l'eau liquide  
18    
19    LOGICAL:: ok_orodr= .TRUE. ! orodr pour l'orographie    LOGICAL:: ok_orodr = .TRUE. ! pour l'orographie
20      LOGICAL:: ok_orolf = .TRUE. ! pour l'orographie
21    
22    LOGICAL:: ok_orolf = .TRUE.    LOGICAL:: ok_limitvrai = .FALSE.
23    ! Desc = Orolf  ou  non   pour l orographie    ! On peut forcer le modele a lire le fichier SST de la bonne
24      ! annee. C'est une tres bonne idee, pourquoi ne pas mettre toujours
25      ! a y ?
26    
27    LOGICAL:: ok_limitvrai= .FALSE.    INTEGER:: nbapp_rad = 12
   ! Help = On peut forcer le modele a lire le  
   ! fichier SST de la bonne annee. C'est une tres bonne  
   ! idee, pourquoi ne pas mettre toujours a y ?  
   
   INTEGER:: nbapp_rad= 12  
28    ! (nombre d'appels des routines de rayonnements par jour)    ! (nombre d'appels des routines de rayonnements par jour)
29    
30    INTEGER:: iflag_con = 2    INTEGER:: iflag_con = 2
# Line 42  contains Line 39  contains
39    
40    subroutine read_clesphys2    subroutine read_clesphys2
41    
42        use unit_nml_m, only: unit_nml
43    
44      namelist /clesphys2_nml/cycle_diurne, soil_model, new_oliq, &      namelist /clesphys2_nml/cycle_diurne, soil_model, new_oliq, &
45           ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con           ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con
46    
# Line 49  contains Line 48  contains
48    
49      print *, "Enter namelist 'clesphys2_nml'."      print *, "Enter namelist 'clesphys2_nml'."
50      read(unit=*, nml=clesphys2_nml)      read(unit=*, nml=clesphys2_nml)
51      write(unit=*, nml=clesphys2_nml)      write(unit_nml, nml=clesphys2_nml)
52    
53      select case (iflag_con)      select case (iflag_con)
54      case (1)      case (1)
Legend:
Removed from v.13  
changed lines
  Added in v.57
  ViewVC Help
Powered by ViewVC 1.1.21