1 |
C $Id$ |
C $Header$ |
2 |
|
|
3 |
#include "CPP_EEOPTIONS.h" |
#include "CPP_EEOPTIONS.h" |
4 |
|
|
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 |
|
CcnhDebugStarts |
229 |
|
tanPhiAtU = 0. _d 0 |
230 |
|
tanPhiAtV = 0. _d 0 |
231 |
|
_EXCH_XY_R4 (tanPhiAtU , myThid ) |
232 |
|
_EXCH_XY_R4 (tanPhiAtV , myThid ) |
233 |
|
CcnhDebugEnds |
234 |
|
|
235 |
C |
C |
236 |
RETURN |
RETURN |
237 |
END |
END |
|
|
|
|
C $Id$ |
|