/[MITgcm]/MITgcm/pkg/exch2/w2_eeboot.F
ViewVC logotype

Diff of /MITgcm/pkg/exch2/w2_eeboot.F

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

revision 1.2 by dimitri, Tue Apr 6 00:25:56 2004 UTC revision 1.3 by dimitri, Tue Apr 6 00:42:17 2004 UTC
# Line 33  C     == Local variables == Line 33  C     == Local variables ==
33        INTEGER myThid, I, J, II        INTEGER myThid, I, J, II
34        INTEGER iErr, tNx, tNy        INTEGER iErr, tNx, tNy
35        INTEGER pRank        INTEGER pRank
36        INTEGER npe,itemp(nSx),istatus(MPI_STATUS_SIZE)        INTEGER npe,itemp(nSx),mpiBufSize,mpiRequest
37        INTEGER mpiBufSize,mpiRequest  #ifdef ALLOW_USE_MPI
38          INTEGER istatus(MPI_STATUS_SIZE)
39    #endif
40    
41  C     Set dummy myThid value (we aren't multi-threaded here)  C     Set dummy myThid value (we aren't multi-threaded here)
42        myThid = 1        myThid = 1

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.22