/[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

trunk/libf/phylmd/clesphys2.f90 revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC trunk/Sources/phylmd/clesphys2.f revision 182 by guez, Wed Mar 16 11:11:27 2016 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'\'eteindre le cycle diurne. Peut \^etre utile
9    ! Peut être utile pour accélérer le code.    ! pour acc\'el\'erer le code.
   
   LOGICAL:: soil_model= .TRUE.  
   ! Help = Choix du modele de sol (Thermique ?)  
   ! Option qui pourait un string afin de pouvoir  
   ! plus de choix ! Ou meme une liste d'options  
   
   LOGICAL:: new_oliq= .TRUE.  
   ! Help = Permet de mettre en route la  
   ! nouvelle parametrisation de l'eau liquide  
10    
11    LOGICAL:: ok_orodr= .TRUE.    LOGICAL:: soil_model = .TRUE.
12    ! Desc = Orodr  ou  non   pour l orographie    ! Choix du modele de sol (Thermique ?)
13    
14      LOGICAL:: new_oliq = .TRUE.
15      ! Permet de mettre en route la nouvelle parametrisation de l'eau liquide
16    
17      ! Pour l'orographie:
18      LOGICAL:: ok_orodr = .TRUE.
19    LOGICAL:: ok_orolf = .TRUE.    LOGICAL:: ok_orolf = .TRUE.
   ! Desc = Orolf  ou  non   pour l orographie  
20    
21    LOGICAL:: ok_limitvrai= .FALSE.    LOGICAL:: ok_limitvrai = .FALSE.
22    ! Help = On peut forcer le modele a lire le    ! On peut forcer le modele a lire le fichier SST de la bonne
23    ! fichier SST de la bonne annee. C'est une tres bonne    ! annee.
24    ! idee, pourquoi ne pas mettre toujours a y ?  
25      INTEGER:: nbapp_rad = 12
26    INTEGER:: nbapp_rad= 12    ! nombre d'appels des routines de rayonnements par jour
27    ! (nombre d'appels des routines de rayonnements par jour)  
28      logical:: conv_emanuel = .true. ! convection scheme of Emanuel, else Tiedtke
29    INTEGER:: iflag_con = 2  
30    ! Help = Flag  pour la convection les options suivantes existent :  contains
31    ! 1 pour LMD,  
32    ! 2 pour Tiedtke,    subroutine read_clesphys2
33    ! 3 pour CCM(NCAR)    
34    ! Flag  pour la convection (1 pour LMD, 2 pour Tiedtke, 3 KE, 4 KE vect)      use unit_nml_m, only: unit_nml
35        use nr_util, only: assert
36        use conf_gcm_m, only: day_step, iphysiq
37    
38        namelist /clesphys2_nml/cycle_diurne, soil_model, new_oliq, ok_orodr, &
39             ok_orolf, ok_limitvrai, nbapp_rad, conv_emanuel
40    
41        !------------------------------------
42    
43        print *, "Enter namelist 'clesphys2_nml'."
44        read(unit=*, nml=clesphys2_nml)
45        write(unit_nml, nml=clesphys2_nml)
46        call assert(mod(day_step / iphysiq, nbapp_rad) == 0, &
47             "read_clesphys2 nbapp_rad")
48        call assert(nbapp_rad >= 4 .or. .not. cycle_diurne, &
49             "read_clesphys2: minimum 4 calls to radiative transfer per day if " &
50             // "cycle diurne")
51    
52      end subroutine read_clesphys2
53    
54  end module clesphys2  end module clesphys2
Legend:
Removed from v.12  
changed lines
  Added in v.182
  ViewVC Help
Powered by ViewVC 1.1.21