/[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.5 by cnh, Tue Sep 29 18:50:56 1998 UTC revision 1.6 by adcroft, Tue May 18 17:39:21 1999 UTC
# Line 16  C     | responsible for. Line 16  C     | responsible for.
16  C     | The multiple threads are spawned in the top level MAIN   |  C     | The multiple threads are spawned in the top level MAIN   |
17  C     | routine.                                                 |  C     | routine.                                                 |
18  C     \==========================================================/  C     \==========================================================/
19          IMPLICIT NONE
20    
21  C     == Global data ==  C     == Global data ==
22  #include "SIZE.h"  #include "SIZE.h"
# Line 87  C--   Initialise exchange mechanism Line 88  C--   Initialise exchange mechanism
88        CALL EXCH_INIT        CALL EXCH_INIT
89    
90        IF   ( nThreads .NE. nTx*nTy ) THEN        IF   ( nThreads .NE. nTx*nTy ) THEN
91         WRITE(msgBuf,'(A,A,A,I,A,I)')         WRITE(msgBuf,'(A,A,A,I5,A,I5)')
92       &  'S/R INI_THREADING_ENVIRONMENT:',       &  'S/R INI_THREADING_ENVIRONMENT:',
93       &  ' Total number of threads is not the same as nTx*nTy.',       &  ' Total number of threads is not the same as nTx*nTy.',
94       &  ' nTx * nTy = ',nTx*nTy,' nThreads = ',nThreads       &  ' nTx * nTy = ',nTx*nTy,' nThreads = ',nThreads
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22