Parent Directory | Revision Log | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |