/[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 213 by guez, Mon Feb 27 15:44:55 2017 UTC revision 227 by guez, Thu Nov 2 15:47:03 2017 UTC
# Line 19  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 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    
# Line 48  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, &
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.213  
changed lines
  Added in v.227
  ViewVC Help
Powered by ViewVC 1.1.21