/[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 51 by guez, Tue Sep 20 09:14:34 2011 UTC revision 57 by guez, Mon Jan 30 12:54:02 2012 UTC
# Line 39  contains Line 39  contains
39    
40    subroutine read_clesphys2    subroutine read_clesphys2
41    
42        use unit_nml_m, only: unit_nml
43    
44      namelist /clesphys2_nml/cycle_diurne, soil_model, new_oliq, &      namelist /clesphys2_nml/cycle_diurne, soil_model, new_oliq, &
45           ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con           ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con
46    
# Line 46  contains Line 48  contains
48    
49      print *, "Enter namelist 'clesphys2_nml'."      print *, "Enter namelist 'clesphys2_nml'."
50      read(unit=*, nml=clesphys2_nml)      read(unit=*, nml=clesphys2_nml)
51      write(unit=*, nml=clesphys2_nml)      write(unit_nml, nml=clesphys2_nml)
52    
53      select case (iflag_con)      select case (iflag_con)
54      case (1)      case (1)
Legend:
Removed from v.51  
changed lines
  Added in v.57
  ViewVC Help
Powered by ViewVC 1.1.21