Parent Directory | Revision Log | Patch
revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC | revision 13 by guez, Fri Jul 25 19:59:34 2008 UTC | |
---|---|---|
# | Line 45 contains | Line 45 contains |
45 | ||
46 | !------------------------------------------------- | !------------------------------------------------- |
47 | ||
print *, "Call sequence information: read_comdissnew" | ||
48 | print *, "Enter namelist 'comdissnew_nml'." | print *, "Enter namelist 'comdissnew_nml'." |
49 | read(unit=*, nml=comdissnew_nml) | read(unit=*, nml=comdissnew_nml) |
50 | write(unit=*, nml=comdissnew_nml) | write(unit=*, nml=comdissnew_nml) |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |