75 |
C complex configurations it is usually OK to pass iG, jG to a custom |
C complex configurations it is usually OK to pass iG, jG to a custom |
76 |
C function and have it return xG and yG. |
C function and have it return xG and yG. |
77 |
C Set up my local grid first |
C Set up my local grid first |
78 |
|
xC0 = 0. _d 0 |
79 |
|
yC0 = 0. _d 0 |
80 |
DO bj = myByLo(myThid), myByHi(myThid) |
DO bj = myByLo(myThid), myByHi(myThid) |
81 |
jG = myYGlobalLo + (bj-1)*sNy |
jG = myYGlobalLo + (bj-1)*sNy |
82 |
DO bi = myBxLo(myThid), myBxHi(myThid) |
DO bi = myBxLo(myThid), myBxHi(myThid) |
223 |
_EXCH_XYZ_R4(rHFacS , myThid ) |
_EXCH_XYZ_R4(rHFacS , myThid ) |
224 |
_EXCH_XYZ_R4(maskW , myThid ) |
_EXCH_XYZ_R4(maskW , myThid ) |
225 |
_EXCH_XYZ_R4(maskS , myThid ) |
_EXCH_XYZ_R4(maskS , myThid ) |
226 |
|
_EXCH_XY_R4 (zA , myThid ) |
227 |
|
|
228 |
|
DO bj = myByLo(myThid), myByHi(myThid) |
229 |
|
DO bi = myBxLo(myThid), myBxHi(myThid) |
230 |
|
DO J=1,sNy |
231 |
|
DO I=1,sNx |
232 |
|
tanPhiAtU(I,J,bi,bj) = 0. _d 0 |
233 |
|
tanPhiAtV(I,J,bi,bj) = 0. _d 0 |
234 |
|
ENDDO |
235 |
|
ENDDO |
236 |
|
ENDDO |
237 |
|
ENDDO |
238 |
|
_EXCH_XY_R4 (tanPhiAtU , myThid ) |
239 |
|
_EXCH_XY_R4 (tanPhiAtV , myThid ) |
240 |
|
|
241 |
C |
C |
242 |
RETURN |
RETURN |
243 |
END |
END |
|
|
|
|
C $Id$ |
|