129 |
ENDDO |
ENDDO |
130 |
ENDDO |
ENDDO |
131 |
ENDDO |
ENDDO |
132 |
_GLOBAL_MAX_R4( myNorm, myThid ) |
_GLOBAL_MAX_RS( myNorm, myThid ) |
133 |
IF ( myNorm .NE. 0. _d 0 ) THEN |
IF ( myNorm .NE. 0. _d 0 ) THEN |
134 |
myNorm = 1. _d 0/myNorm |
myNorm = 1. _d 0/myNorm |
135 |
ELSE |
ELSE |
151 |
C CALL PLOT_FIELD_XYRS( aW2d, 'AW2D INI_CG2D.1' , 1, myThid ) |
C CALL PLOT_FIELD_XYRS( aW2d, 'AW2D INI_CG2D.1' , 1, myThid ) |
152 |
C CALL PLOT_FIELD_XYRS( aS2d, 'AS2D INI_CG2D.1' , 1, myThid ) |
C CALL PLOT_FIELD_XYRS( aS2d, 'AS2D INI_CG2D.1' , 1, myThid ) |
153 |
CcnhDebugEnds |
CcnhDebugEnds |
154 |
c _EXCH_XY_R4(aW2d, myThid) |
c _EXCH_XY_RS(aW2d, myThid) |
155 |
c _EXCH_XY_R4(aS2d, myThid) |
c _EXCH_XY_RS(aS2d, myThid) |
156 |
CALL EXCH_UV_XY_RS(aW2d,aS2d,.FALSE.,myThid) |
CALL EXCH_UV_XY_RS(aW2d,aS2d,.FALSE.,myThid) |
157 |
CcnhDebugStarts |
CcnhDebugStarts |
158 |
C CALL PLOT_FIELD_XYRS( aW2d, 'AW2D INI_CG2D.2' , 1, myThid ) |
C CALL PLOT_FIELD_XYRS( aW2d, 'AW2D INI_CG2D.2' , 1, myThid ) |
254 |
ENDDO |
ENDDO |
255 |
ENDDO |
ENDDO |
256 |
C-- Update overlap regions |
C-- Update overlap regions |
257 |
_EXCH_XY_R4(pC, myThid) |
_EXCH_XY_RS(pC, myThid) |
258 |
c _EXCH_XY_R4(pW, myThid) |
c _EXCH_XY_RS(pW, myThid) |
259 |
c _EXCH_XY_R4(pS, myThid) |
c _EXCH_XY_RS(pS, myThid) |
260 |
CALL EXCH_UV_XY_RS(pW,pS,.FALSE.,myThid) |
CALL EXCH_UV_XY_RS(pW,pS,.FALSE.,myThid) |
261 |
CcnhDebugStarts |
CcnhDebugStarts |
262 |
C CALL PLOT_FIELD_XYRS( pC, 'pC INI_CG2D.2' , 1, myThid ) |
C CALL PLOT_FIELD_XYRS( pC, 'pC INI_CG2D.2' , 1, myThid ) |