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

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

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

revision 1.15 by jmc, Mon Dec 15 02:02:39 2003 UTC revision 1.16 by cnh, Tue Feb 24 16:54:46 2004 UTC
# Line 119  C     Make scratch copies of input data Line 119  C     Make scratch copies of input data
119   1000 CONTINUE   1000 CONTINUE
120         READ(eeDataUnit,FMT='(A)',END=1001) RECORD         READ(eeDataUnit,FMT='(A)',END=1001) RECORD
121         IL = MAX(ILNBLNK(RECORD),1)         IL = MAX(ILNBLNK(RECORD),1)
122         IF ( RECORD(1:1) .NE. commentCharacter )          IF ( RECORD(1:1) .NE. commentCharacter ) THEN
123       &     WRITE(UNIT=scrUnit1,FMT='(A)') RECORD(:IL)           CALL NML_SET_TERMINATOR( RECORD )
124             WRITE(UNIT=scrUnit1,FMT='(A)') RECORD(:IL)
125            ENDIF
126          WRITE(UNIT=scrUnit2,FMT='(A)') RECORD(:IL)          WRITE(UNIT=scrUnit2,FMT='(A)') RECORD(:IL)
127         GOTO 1000         GOTO 1000
128   1001 CONTINUE   1001 CONTINUE
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22