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

Diff of /trunk/phylmd/clesphys2.f

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

trunk/libf/phylmd/clesphys2.f90 revision 57 by guez, Mon Jan 30 12:54:02 2012 UTC trunk/phylmd/clesphys2.f revision 267 by guez, Thu May 3 16:14:08 2018 UTC
# Line 4  module clesphys2 Line 4  module clesphys2
4    
5    implicit none    implicit none
6    
   LOGICAL:: cycle_diurne = .TRUE.  
   ! Cette option permet d'éteindre le cycle diurne.  
   ! Peut être utile pour accélérer le code.  
   
   LOGICAL:: soil_model = .TRUE.  
   ! Choix du modele de sol (Thermique ?)  
   ! Option qui pourait un string afin de pouvoir  
   ! plus de choix ! Ou meme une liste d'options  
   
7    LOGICAL:: new_oliq = .TRUE.    LOGICAL:: new_oliq = .TRUE.
8    ! Permet de mettre en route la nouvelle parametrisation de l'eau liquide    ! Permet de mettre en route la nouvelle parametrisation de l'eau liquide
9    
10    LOGICAL:: ok_orodr = .TRUE. ! pour l'orographie    ! Pour l'orographie:
11    LOGICAL:: ok_orolf = .TRUE. ! pour l'orographie    LOGICAL:: ok_orodr = .TRUE.
12      LOGICAL:: ok_orolf = .TRUE.
13    
14    LOGICAL:: ok_limitvrai = .FALSE.    LOGICAL:: ok_limitvrai = .FALSE.
15    ! 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
16    ! annee. C'est une tres bonne idee, pourquoi ne pas mettre toujours    ! annee.
   ! a y ?  
17    
18    INTEGER:: nbapp_rad = 12    INTEGER:: nbapp_rad = 12
19    ! (nombre d'appels des routines de rayonnements par jour)    ! nombre d'appels des routines de rayonnements par jour
20    
21    INTEGER:: iflag_con = 2    logical:: conv_emanuel = .true. ! convection scheme of Emanuel, else Tiedtke
   ! Flag pour la convection :  
   ! 1 LMD,  
   ! 2 Tiedtke,  
   ! 3 CCM(NCAR)    
   ! 3 KE  
   ! 4 KE vect  
22    
23  contains  contains
24    
25    subroutine read_clesphys2    subroutine read_clesphys2
26    
27      use unit_nml_m, only: unit_nml      use unit_nml_m, only: unit_nml
28        use nr_util, only: assert
29        use conf_gcm_m, only: day_step, iphysiq
30    
31      namelist /clesphys2_nml/cycle_diurne, soil_model, new_oliq, &      namelist /clesphys2_nml/new_oliq, ok_orodr, ok_orolf, ok_limitvrai, &
32           ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con           nbapp_rad, conv_emanuel
33    
34      !------------------------------------      !------------------------------------
35    
36      print *, "Enter namelist 'clesphys2_nml'."      print *, "Enter namelist 'clesphys2_nml'."
37      read(unit=*, nml=clesphys2_nml)      read(unit=*, nml=clesphys2_nml)
38      write(unit_nml, nml=clesphys2_nml)      write(unit_nml, nml=clesphys2_nml)
39        call assert(mod(day_step / iphysiq, nbapp_rad) == 0, &
40      select case (iflag_con)           "read_clesphys2 nbapp_rad")
41      case (1)      call assert(nbapp_rad >= 4, &
42         PRINT *, 'Schéma convection LMD'           "read_clesphys2: minimum 4 calls to radiative transfer per day")
     case (2)  
        PRINT *, 'Schéma convection Tiedtke'  
     case (3)  
        PRINT *, 'Schéma convection CCM'  
     END select  
43    
44    end subroutine read_clesphys2    end subroutine read_clesphys2
45    
Legend:
Removed from v.57  
changed lines
  Added in v.267
  ViewVC Help
Powered by ViewVC 1.1.21