/[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/Sources/phylmd/clesphys2.f revision 208 by guez, Wed Dec 7 16:44:53 2016 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'\'eteindre le cycle diurne. Peut \^etre utile  
   ! pour acc\'el\'erer le code.  
   
   LOGICAL:: soil_model = .TRUE.  
   ! Choix du modele de sol (Thermique ?)  
   
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    
# Line 35  contains Line 28  contains
28      use nr_util, only: assert      use nr_util, only: assert
29      use conf_gcm_m, only: day_step, iphysiq      use conf_gcm_m, only: day_step, iphysiq
30    
31      namelist /clesphys2_nml/cycle_diurne, soil_model, new_oliq, ok_orodr, &      namelist /clesphys2_nml/new_oliq, ok_orodr, ok_orolf, ok_limitvrai, &
32           ok_orolf, ok_limitvrai, nbapp_rad, conv_emanuel           nbapp_rad, conv_emanuel
33    
34      !------------------------------------      !------------------------------------
35    
# Line 45  contains Line 38  contains
38      write(unit_nml, nml=clesphys2_nml)      write(unit_nml, nml=clesphys2_nml)
39      call assert(mod(day_step / iphysiq, nbapp_rad) == 0, &      call assert(mod(day_step / iphysiq, nbapp_rad) == 0, &
40           "read_clesphys2 nbapp_rad")           "read_clesphys2 nbapp_rad")
41      call assert(nbapp_rad >= 4 .or. .not. cycle_diurne, &      call assert(nbapp_rad >= 4, &
42           "read_clesphys2: minimum 4 calls to radiative transfer per day if " &           "read_clesphys2: minimum 4 calls to radiative transfer per day")
          // "cycle_diurne")  
43    
44    end subroutine read_clesphys2    end subroutine read_clesphys2
45    
Legend:
Removed from v.208  
changed lines
  Added in v.267
  ViewVC Help
Powered by ViewVC 1.1.21