/[MITgcm]/MITgcm/pkg/monitor/mon_out.F
ViewVC logotype

Diff of /MITgcm/pkg/monitor/mon_out.F

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

revision 1.14 by edhill, Tue Dec 14 16:54:08 2004 UTC revision 1.15 by edhill, Fri Feb 24 18:55:28 2006 UTC
# Line 198  C     write(*,*) 'mon_write_stdout = ''' Line 198  C     write(*,*) 'mon_write_stdout = '''
198       &           WRITE(msgBuf(36:57),'(1X,I21)')       ival       &           WRITE(msgBuf(36:57),'(1X,I21)')       ival
199              IF (itype .EQ. 2)              IF (itype .EQ. 2)
200       &           WRITE(msgBuf(36:57),'(1X,1P1E21.13)') dval       &           WRITE(msgBuf(36:57),'(1X,1P1E21.13)') dval
201    C    &           WRITE(msgBuf(35:57),'(1X,1P1E22.13E3)') dval
202    
203    C           Note that the above call fixes problems where there is
204    C           insufficient space in the output format to handle variables
205    C           such as 1.234500000E107 which, although they are wildly
206    C           large, they may actually happen in some situations.  But,
207    C           changing the monitor output format also means changing the
208    C           routines that parse the monitor output for testreport.
209    
210              CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1)              CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1)
211            ENDIF            ENDIF
212    
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22