/[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 228 by guez, Fri Nov 3 12:38:47 2017 UTC
# Line 49  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(iflag_pbl <=2 .or. iflag_pbl >= 6, &      call assert(any(iflag_pbl == [0, 1, 6, 8, 9]), &
53           "conf_phys: bad value for iflag_pbl")           "conf_phys: bad value for iflag_pbl")
54      call read_clesphys      call read_clesphys
55    
Legend:
Removed from v.227  
changed lines
  Added in v.228
  ViewVC Help
Powered by ViewVC 1.1.21