/[lmdze]/trunk/Sources/phylmd/clesphys2.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/clesphys2.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 99 by guez, Wed Jul 2 18:39:15 2014 UTC
# Line 36  contains Line 36  contains
36    subroutine read_clesphys2    subroutine read_clesphys2
37    
38      use unit_nml_m, only: unit_nml      use unit_nml_m, only: unit_nml
39        use nr_util, only: assert
40    
41      namelist /clesphys2_nml/cycle_diurne, soil_model, new_oliq, &      namelist /clesphys2_nml/cycle_diurne, soil_model, new_oliq, &
42           ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con           ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con
# Line 45  contains Line 46  contains
46      print *, "Enter namelist 'clesphys2_nml'."      print *, "Enter namelist 'clesphys2_nml'."
47      read(unit=*, nml=clesphys2_nml)      read(unit=*, nml=clesphys2_nml)
48      write(unit_nml, nml=clesphys2_nml)      write(unit_nml, nml=clesphys2_nml)
49        call assert(iflag_con >= 2, "read_clesphys2 iflag_con")
     if (iflag_con <= 1) then  
        print *, "bad value for iflag_con"  
        stop 1  
     end if  
50    
51    end subroutine read_clesphys2    end subroutine read_clesphys2
52    
Legend:
Removed from v.82  
changed lines
  Added in v.99
  ViewVC Help
Powered by ViewVC 1.1.21