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

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

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

revision 1.1 by jmc, Sat Jul 29 20:57:53 2006 UTC revision 1.2 by jmc, Wed Aug 2 02:24:22 2006 UTC
# Line 63  C-    Check that all threads have the sa Line 63  C-    Check that all threads have the sa
63         IF ( flag ) THEN         IF ( flag ) THEN
64           WRITE(msgBuf,'(A,I4,A,I8)') 'BAR_CHECK: thread', myThid,           WRITE(msgBuf,'(A,I4,A,I8)') 'BAR_CHECK: thread', myThid,
65       &        ' out of Sync when reaching barrierId=', barrierId       &        ' out of Sync when reaching barrierId=', barrierId
66           CALL PRINT_ERROR( msgBuf, 1 )           CALL PRINT_ERROR( msgBuf, myThid )
67    #ifndef DISABLE_WRITE_TO_UNIT_ZERO
68           WRITE(0,*) myThid, barrierId, 'barStatus=', barStatus           WRITE(0,*) myThid, barrierId, 'barStatus=', barStatus
69           STOP ' BAR_CHECK: OUT OF SYNC'  #endif
70             STOP 'ABNORMAL END: S/R BAR_CHECK: OUT OF SYNC'
71         ENDIF         ENDIF
72    
73        ENDIF        ENDIF
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22