1 |
#include "CPP_OPTIONS.h" |
C $Header$ |
2 |
|
C $Name$ |
3 |
|
|
4 |
|
#include "CPP_EEOPTIONS.h" |
5 |
|
|
6 |
SUBROUTINE SCATTER_XZ( global, local, myThid ) |
SUBROUTINE SCATTER_XZ( global, local, myThid ) |
7 |
C Scatter elements of a x-z array from mpi process 0 to all processes. |
C Scatter elements of a x-z array from mpi process 0 to all processes. |
11 |
#include "EESUPPORT.h" |
#include "EESUPPORT.h" |
12 |
C mythid - thread number for this instance of the routine. |
C mythid - thread number for this instance of the routine. |
13 |
C global,local - working arrays used to transfer 2-D fields |
C global,local - working arrays used to transfer 2-D fields |
14 |
INTEGER mythid |
INTEGER mythid |
15 |
Real*8 global(Nx) |
Real*8 global(Nx) |
16 |
_RL local(1-OLx:sNx+OLx,nSx,nSy) |
_RL local(1-OLx:sNx+OLx,nSx,nSy) |
17 |
|
|