/[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 227 by guez, Thu Nov 2 15:47:03 2017 UTC revision 229 by guez, Mon Nov 6 17:20:45 2017 UTC
# Line 2  module conf_phys_m Line 2  module conf_phys_m
2    
3    implicit none    implicit none
4    
5    integer:: iflag_pbl = 1 ! for the planetary boundary layer    integer, protected:: iflag_pbl = 1 ! for the planetary boundary layer
6      ! 6 : Mellor and Yamada 2.0
7      ! 8 : Mellor and Yamada 2.5
8    
9    REAL:: rad_chau1 = 13., rad_chau2 = 9.    REAL:: rad_chau1 = 13., rad_chau2 = 9.
10    real:: epmax = 0.993 ! \'efficacit\'e de pr\'ecipitation    real:: epmax = 0.993 ! \'efficacit\'e de pr\'ecipitation
11    integer:: iflag_clw = 0    integer:: iflag_clw = 0
# Line 49  contains Line 52  contains
52      read(unit=*, nml=conf_phys_nml)      read(unit=*, nml=conf_phys_nml)
53      write(unit_nml, nml=conf_phys_nml)      write(unit_nml, nml=conf_phys_nml)
54    
55      call assert(iflag_pbl <=2 .or. iflag_pbl >= 6, &      call assert(any(iflag_pbl == [0, 1, 6, 8, 9]), &
56           "conf_phys: bad value for iflag_pbl")           "conf_phys: bad value for iflag_pbl")
57      call read_clesphys      call read_clesphys
58    

Legend:
Removed from v.227  
changed lines
  Added in v.229

  ViewVC Help
Powered by ViewVC 1.1.21