/[MITgcm]/MITgcm/eesupp/src/nml_filter.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/nml_filter.F

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

revision 1.3 by cnh, Fri Sep 21 03:54:35 2001 UTC revision 1.4 by edhill, Thu Oct 9 04:19:18 2003 UTC
# Line 79  c--   open the filtered data file Line 79  c--   open the filtered data file
79           close(outunit)           close(outunit)
80           outunit = 0           outunit = 0
81           stop ' stopped in nml_filter'           stop ' stopped in nml_filter'
82          else
83             write(msgBuf,'(3a)') 'Processing namelist file ', fname, ' ...'
84             call PRINT_MESSAGE(msgBuf,standardMessageUnit,
85         &                      SQUEEZE_RIGHT,myThid)
86        endif        endif
87    
88        do while ( .true. )        do while ( .true. )
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22