/[lmdze]/trunk/Sources/dyn3d/conf_gcm.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/conf_gcm.f

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

revision 171 by guez, Tue Sep 29 19:48:59 2015 UTC revision 191 by guez, Mon May 9 19:56:28 2016 UTC
# Line 49  contains Line 49  contains
49      ! Version du 29/04/97      ! Version du 29/04/97
50    
51      use abort_gcm_m, only: abort_gcm      use abort_gcm_m, only: abort_gcm
     use comdissnew, only: read_comdissnew  
52      use unit_nml_m, only: unit_nml      use unit_nml_m, only: unit_nml
53    
54      namelist /conf_gcm_nml/ raz_date, nday, day_step, iperiod, iapp_tracvl, &      namelist /conf_gcm_nml/ raz_date, nday, day_step, iperiod, iapp_tracvl, &
# Line 71  contains Line 70  contains
70      read(unit=*, nml=logic_nml)      read(unit=*, nml=logic_nml)
71      write(unit_nml, nml=logic_nml)      write(unit_nml, nml=logic_nml)
72    
     call read_comdissnew  
   
73      print *, "Enter namelist 'conf_gcm_nml'."      print *, "Enter namelist 'conf_gcm_nml'."
74      read(unit=*, nml=conf_gcm_nml)      read(unit=*, nml=conf_gcm_nml)
75      write(unit_nml, nml=conf_gcm_nml)      write(unit_nml, nml=conf_gcm_nml)
Legend:
Removed from v.171  
changed lines
  Added in v.191
  ViewVC Help
Powered by ViewVC 1.1.21