/[lmdze]/trunk/Sources/phylmd/conf_phys.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/conf_phys.f

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

revision 191 by guez, Mon May 9 19:56:28 2016 UTC revision 228 by guez, Fri Nov 3 12:38:47 2017 UTC
# Line 4  module conf_phys_m Line 4  module conf_phys_m
4    
5    integer:: iflag_pbl = 1 ! for the planetary boundary layer    integer:: iflag_pbl = 1 ! for the planetary boundary layer
6    REAL:: rad_chau1 = 13., rad_chau2 = 9.    REAL:: rad_chau1 = 13., rad_chau2 = 9.
7      real:: epmax = 0.993 ! \'efficacit\'e de pr\'ecipitation
8      integer:: iflag_clw = 0
9    
10  contains  contains
11    
# Line 17  contains Line 19  contains
19      use clesphys2, only: read_clesphys2      use clesphys2, only: read_clesphys2
20      USE comfisrtilp, ONLY: cld_lc_con, cld_lc_lsc, cld_tau_con, &      USE comfisrtilp, ONLY: cld_lc_con, cld_lc_lsc, cld_tau_con, &
21           cld_tau_lsc, coef_eva, ffallv_con, ffallv_lsc, iflag_pdf, reevap_ice           cld_tau_lsc, coef_eva, ffallv_con, ffallv_lsc, iflag_pdf, reevap_ice
22      USE conema3_m, ONLY: epmax, iflag_clw, ok_adj_ema      use nr_util, only: assert
23      use unit_nml_m, only: unit_nml      use unit_nml_m, only: unit_nml
24      USE yomcst, ONLY: read_YOMCST      USE yomcst, ONLY: read_YOMCST
25    
26      namelist /conf_phys_nml/ epmax, ok_adj_ema, iflag_clw, cld_lc_lsc, &      namelist /conf_phys_nml/ epmax, iflag_clw, cld_lc_lsc, cld_lc_con, &
27           cld_lc_con, cld_tau_lsc, cld_tau_con, ffallv_lsc, ffallv_con, &           cld_tau_lsc, cld_tau_con, ffallv_lsc, ffallv_con, coef_eva, &
28           coef_eva, reevap_ice, iflag_pdf, iflag_pbl           reevap_ice, iflag_pdf, iflag_pbl
29    
30      namelist /nuagecom/ rad_chau1, rad_chau2      namelist /nuagecom/ rad_chau1, rad_chau2
31    
# Line 33  contains Line 35  contains
35      call read_clesphys2      call read_clesphys2
36      call read_YOMCST      call read_YOMCST
37    
     epmax = .993  
     ok_adj_ema = .false.  
     iflag_clw = 0  
38      cld_lc_lsc = 2.6e-4      cld_lc_lsc = 2.6e-4
39      cld_lc_con = 2.6e-4      cld_lc_con = 2.6e-4
40      cld_tau_lsc = 3600.      cld_tau_lsc = 3600.
# Line 50  contains Line 49  contains
49      read(unit=*, nml=conf_phys_nml)      read(unit=*, nml=conf_phys_nml)
50      write(unit_nml, nml=conf_phys_nml)      write(unit_nml, nml=conf_phys_nml)
51    
52        call assert(any(iflag_pbl == [0, 1, 6, 8, 9]), &
53             "conf_phys: bad value for iflag_pbl")
54      call read_clesphys      call read_clesphys
55    
56      print *, "Enter namelist 'nuagecom'."      print *, "Enter namelist 'nuagecom'."
Legend:
Removed from v.191  
changed lines
  Added in v.228
  ViewVC Help
Powered by ViewVC 1.1.21