/[MITgcm]/MITgcm/pkg/flt/flt_traj.F
ViewVC logotype

Diff of /MITgcm/pkg/flt/flt_traj.F

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

revision 1.13 by jmc, Wed Aug 31 21:41:55 2011 UTC revision 1.14 by jmc, Fri Mar 30 18:25:03 2012 UTC
# Line 71  C--   set number of fields to write Line 71  C--   set number of fields to write
71    
72  C--   check buffer size  C--   check buffer size
73        IF ( nFlds.GT.fltBufDim ) THEN        IF ( nFlds.GT.fltBufDim ) THEN
74             _BEGIN_MASTER(myThid)
75           WRITE(msgBuf,'(3(A,I4))') ' FLT_TRAJ: fltBufDim=', fltBufDim,           WRITE(msgBuf,'(3(A,I4))') ' FLT_TRAJ: fltBufDim=', fltBufDim,
76       &                             ' too small (<', nFlds, ' )'       &                             ' too small (<', nFlds, ' )'
77           CALL PRINT_ERROR( msgBuf, myThid )           CALL PRINT_ERROR( msgBuf, myThid )
78           WRITE(msgBuf,'(2A)')     ' FLT_TRAJ: => increase fltBufDim',           WRITE(msgBuf,'(2A)')     ' FLT_TRAJ: => increase fltBufDim',
79       &                            ' in "FLT_SIZE.h" & recompile'       &                            ' in "FLT_SIZE.h" & recompile'
80           CALL PRINT_ERROR( msgBuf, myThid )           CALL PRINT_ERROR( msgBuf, myThid )
81             _END_MASTER(myThid)
82           CALL ALL_PROC_DIE( myThid )           CALL ALL_PROC_DIE( myThid )
 c        IF (myThid.EQ.1) STOP 'ABNORMAL END: S/R FLT_TRAJ'  
 c        _BARRIER  
83           STOP 'ABNORMAL END: S/R FLT_TRAJ'           STOP 'ABNORMAL END: S/R FLT_TRAJ'
84        ENDIF        ENDIF
85    
# Line 192  C-       for backward compatibility with Line 192  C-       for backward compatibility with
192                WRITE(msgBuf,'(3A,I4,A)')                WRITE(msgBuf,'(3A,I4,A)')
193       &            'previous file (',fn(1:18),') value =',ii       &            'previous file (',fn(1:18),') value =',ii
194                CALL PRINT_ERROR( msgBuf, myThid )                CALL PRINT_ERROR( msgBuf, myThid )
195                CALL ALL_PROC_DIE( myThid )                CALL ALL_PROC_DIE( 0 )
196                STOP 'ABNORMAL END: S/R FLT_TRAJ'                STOP 'ABNORMAL END: S/R FLT_TRAJ'
197              ENDIF              ENDIF
198  C-       close the read-unit (safer to use a different unit for writing)  C-       close the read-unit (safer to use a different unit for writing)
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22