/[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/phylmd/clesphys2.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC trunk/Sources/phylmd/clesphys2.f revision 222 by guez, Tue Apr 25 15:31:48 2017 UTC
# Line 4  module clesphys2 Line 4  module clesphys2
4    
5    implicit none    implicit none
6    
7    LOGICAL:: cycle_diurne = .TRUE.    LOGICAL:: soil_model = .TRUE. ! choix du mod\`ele de sol (thermique ?)
   ! 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 ?)  
8    
9    LOGICAL:: new_oliq = .TRUE.    LOGICAL:: new_oliq = .TRUE.
10    ! Permet de mettre en route la nouvelle parametrisation de l'eau liquide    ! Permet de mettre en route la nouvelle parametrisation de l'eau liquide
# Line 25  module clesphys2 Line 20  module clesphys2
20    INTEGER:: nbapp_rad = 12    INTEGER:: nbapp_rad = 12
21    ! nombre d'appels des routines de rayonnements par jour    ! nombre d'appels des routines de rayonnements par jour
22    
23    INTEGER:: iflag_con = 2    logical:: conv_emanuel = .true. ! convection scheme of Emanuel, else Tiedtke
   ! Convection scheme:  
   ! 2 Tiedtke  
   ! 3 Emanuel  
   ! 4 Emanuel vect  
24    
25  contains  contains
26    
27    subroutine read_clesphys2    subroutine read_clesphys2
28    
29      use unit_nml_m, only: unit_nml      use unit_nml_m, only: unit_nml
30        use nr_util, only: assert
31        use conf_gcm_m, only: day_step, iphysiq
32    
33      namelist /clesphys2_nml/cycle_diurne, soil_model, new_oliq, &      namelist /clesphys2_nml/soil_model, new_oliq, ok_orodr, ok_orolf, &
34           ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con           ok_limitvrai, nbapp_rad, conv_emanuel
35    
36      !------------------------------------      !------------------------------------
37    
38      print *, "Enter namelist 'clesphys2_nml'."      print *, "Enter namelist 'clesphys2_nml'."
39      read(unit=*, nml=clesphys2_nml)      read(unit=*, nml=clesphys2_nml)
40      write(unit_nml, nml=clesphys2_nml)      write(unit_nml, nml=clesphys2_nml)
41        call assert(mod(day_step / iphysiq, nbapp_rad) == 0, &
42      if (iflag_con <= 1) then           "read_clesphys2 nbapp_rad")
43         print *, "bad value for iflag_con"      call assert(nbapp_rad >= 4, &
44         stop 1           "read_clesphys2: minimum 4 calls to radiative transfer per day")
     end if  
45    
46    end subroutine read_clesphys2    end subroutine read_clesphys2
47    
Legend:
Removed from v.76  
changed lines
  Added in v.222
  ViewVC Help
Powered by ViewVC 1.1.21