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

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

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

revision 1.15 by adcroft, Mon May 24 15:22:00 1999 UTC revision 1.17 by cnh, Sun Feb 4 14:38:44 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
5    
# Line 180  C     K    - Loop counter Line 181  C     K    - Loop counter
181        xOld = fld(1)        xOld = fld(1)
182        DO K=2,lFld        DO K=2,lFld
183         xNew = fld(K  )         xNew = fld(K  )
184         IF ( .NOT. compact .OR. xNew .NE. xOld ) THEN         IF ( .NOT. compact .OR. (xNew .NE. xOld) ) THEN
185          nDup = iHi-iLo+1          nDup = iHi-iLo+1
186          IF ( nDup .EQ. 1 ) THEN          IF ( nDup .EQ. 1 ) THEN
187           WRITE(msgBuf,'(A,I9,A)') '              ',xOld,punc           WRITE(msgBuf,'(A,I9,A)') '              ',xOld,punc
# Line 294  C     K    - Loop counter Line 295  C     K    - Loop counter
295        xOld = fld(1)        xOld = fld(1)
296        DO K=2,lFld        DO K=2,lFld
297         xNew = fld(K  )         xNew = fld(K  )
298         IF ( .NOT. compact .OR. xNew .NEQV. xOld ) THEN         IF ( .NOT. compact .OR. (xNew .NEQV. xOld) ) THEN
299          nDup = iHi-iLo+1          nDup = iHi-iLo+1
300          IF ( nDup .EQ. 1 ) THEN          IF ( nDup .EQ. 1 ) THEN
301           WRITE(msgBuf,'(A,L5,A)') '              ',xOld,punc           WRITE(msgBuf,'(A,L5,A)') '              ',xOld,punc
# Line 408  C     K    - Loop counter Line 409  C     K    - Loop counter
409        xOld = fld(1)        xOld = fld(1)
410        DO K=2,lFld        DO K=2,lFld
411         xNew = fld(K  )         xNew = fld(K  )
412         IF ( .NOT. compact .OR. xNew .NE. xOld ) THEN         IF ( .NOT. compact .OR. (xNew .NE. xOld) ) THEN
413          nDup = iHi-iLo+1          nDup = iHi-iLo+1
414          IF ( nDup .EQ. 1 ) THEN          IF ( nDup .EQ. 1 ) THEN
415           WRITE(msgBuf,'(A,1PE23.15,A)') '              ',xOld,punc           WRITE(msgBuf,'(A,1PE23.15,A)') '              ',xOld,punc
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22