225 |
_EXCH_XYZ_R4(maskS , myThid ) |
_EXCH_XYZ_R4(maskS , myThid ) |
226 |
_EXCH_XY_R4 (zA , myThid ) |
_EXCH_XY_R4 (zA , myThid ) |
227 |
|
|
228 |
CcnhDebugStarts |
DO bj = myByLo(myThid), myByHi(myThid) |
229 |
tanPhiAtU = 0. _d 0 |
DO bi = myBxLo(myThid), myBxHi(myThid) |
230 |
tanPhiAtV = 0. _d 0 |
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 ) |
_EXCH_XY_R4 (tanPhiAtU , myThid ) |
239 |
_EXCH_XY_R4 (tanPhiAtV , myThid ) |
_EXCH_XY_R4 (tanPhiAtV , myThid ) |
|
CcnhDebugEnds |
|
240 |
|
|
241 |
C |
C |
242 |
RETURN |
RETURN |