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

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

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

revision 1.9 by edhill, Sat Mar 27 03:51:51 2004 UTC revision 1.10 by jmc, Sun Jul 30 00:43:21 2006 UTC
# Line 106  C--   Initialise exchange mechanism Line 106  C--   Initialise exchange mechanism
106         eeBootError = .TRUE.         eeBootError = .TRUE.
107         STOP 'ABNORMAL END: S/R INI_THREADING_ENVIRONMENT'         STOP 'ABNORMAL END: S/R INI_THREADING_ENVIRONMENT'
108        ENDIF        ENDIF
109          IF   ( nThreads .GT. MAX_NO_THREADS ) THEN
110           WRITE(msgBuf,'(2A,2I6)')
111         &  'S/R INI_THREADING_ENVIRONMENT:',
112         &  ' Total number of threads exceeds MAX_NO_THREADS',
113         &   nTx*nTy, MAX_NO_THREADS
114           CALL PRINT_ERROR(msgBuf, myThid)
115           WRITE(msgBuf,'(2A)')
116         &    ' Needs to increase MAX_NO_THREADS',
117         &    ' in file "EEPARAMS.h" and to re-compile'
118           CALL PRINT_ERROR(msgBuf, myThid)
119           eeBootError = .TRUE.
120           STOP 'ABNORMAL END: S/R INI_THREADING_ENVIRONMENT'
121          ENDIF
122        bxPerThread = nSx/nTx        bxPerThread = nSx/nTx
123        IF ( bxPerThread*nTx .NE. nSx ) THEN        IF ( bxPerThread*nTx .NE. nSx ) THEN
124         WRITE(msgBuf,'(A,A,A)')         WRITE(msgBuf,'(A,A,A)')
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22