/[lmdze]/trunk/libf/dyn3d/Dissipation/comdissnew.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/Dissipation/comdissnew.f90

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

revision 56 by guez, Tue Jan 10 19:02:02 2012 UTC revision 57 by guez, Mon Jan 30 12:54:02 2012 UTC
# Line 29  contains Line 29  contains
29    
30    subroutine read_comdissnew    subroutine read_comdissnew
31    
32        use unit_nml_m, only: unit_nml
33        
34      namelist /comdissnew_nml/lstardis, nitergdiv, nitergrot, niterh, &      namelist /comdissnew_nml/lstardis, nitergdiv, nitergrot, niterh, &
35           tetagdiv, tetagrot, tetatemp, coefdis           tetagdiv, tetagrot, tetatemp, coefdis
36    
# Line 36  contains Line 38  contains
38    
39      print *, "Enter namelist 'comdissnew_nml'."      print *, "Enter namelist 'comdissnew_nml'."
40      read(unit=*, nml=comdissnew_nml)      read(unit=*, nml=comdissnew_nml)
41      write(unit=*, nml=comdissnew_nml)      write(unit_nml, nml=comdissnew_nml)
42    
43    end subroutine read_comdissnew    end subroutine read_comdissnew
44    
Legend:
Removed from v.56  
changed lines
  Added in v.57
  ViewVC Help
Powered by ViewVC 1.1.21