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 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 |
|
|
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, & |
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'." |