/[MITgcm]/MITgcm_contrib/ESMF/global_ocean.128x64x15/code/eeset_parms.F
ViewVC logotype

Diff of /MITgcm_contrib/ESMF/global_ocean.128x64x15/code/eeset_parms.F

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

revision 1.2 by cnh, Tue Feb 24 02:30:45 2004 UTC revision 1.3 by cnh, Wed Feb 25 23:45:19 2004 UTC
# Line 120  C     Make scratch copies of input data Line 120  C     Make scratch copies of input data
120   1000 CONTINUE   1000 CONTINUE
121         READ(eeDataUnit,FMT='(A)',END=1001) RECORD         READ(eeDataUnit,FMT='(A)',END=1001) RECORD
122         IL = MAX(ILNBLNK(RECORD),1)         IL = MAX(ILNBLNK(RECORD),1)
123         IF ( RECORD(1:1) .NE. commentCharacter )          IF ( RECORD(1:1) .NE. commentCharacter ) THEN
124       &     WRITE(UNIT=scrUnit1,FMT='(A)') RECORD(:IL)           CALL NML_SET_TERMINATOR( RECORD )
125             WRITE(UNIT=scrUnit1,FMT='(A)') RECORD(:IL)
126            ENDIF
127          WRITE(UNIT=scrUnit2,FMT='(A)') RECORD(:IL)          WRITE(UNIT=scrUnit2,FMT='(A)') RECORD(:IL)
128         GOTO 1000         GOTO 1000
129   1001 CONTINUE   1001 CONTINUE
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22