--- trunk/phylmd/clesphys2.f 2014/07/02 18:39:15 99 +++ trunk/phylmd/clesphys2.f 2014/08/29 13:00:05 103 @@ -38,15 +38,15 @@ use unit_nml_m, only: unit_nml use nr_util, only: assert - namelist /clesphys2_nml/cycle_diurne, soil_model, new_oliq, & - ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con + namelist /clesphys2_nml/cycle_diurne, soil_model, new_oliq, ok_orodr, & + ok_orolf, ok_limitvrai, nbapp_rad, iflag_con !------------------------------------ print *, "Enter namelist 'clesphys2_nml'." read(unit=*, nml=clesphys2_nml) write(unit_nml, nml=clesphys2_nml) - call assert(iflag_con >= 2, "read_clesphys2 iflag_con") + call assert(iflag_con >= 2 .and. iflag_con <= 4, "read_clesphys2 iflag_con") end subroutine read_clesphys2