136 |
ELSE |
ELSE |
137 |
myNorm = 1. _d 0 |
myNorm = 1. _d 0 |
138 |
ENDIF |
ENDIF |
|
cg2dNorm = myNorm |
|
139 |
DO bj=myByLo(myThid),myByHi(myThid) |
DO bj=myByLo(myThid),myByHi(myThid) |
140 |
DO bi=myBxLo(myThid),myBxHi(myThid) |
DO bi=myBxLo(myThid),myBxHi(myThid) |
141 |
DO J=1,sNy |
DO J=1,sNy |
160 |
C CALL PLOT_FIELD_XYRS( aS2d, 'AS2D INI_CG2D.2' , 1, myThid ) |
C CALL PLOT_FIELD_XYRS( aS2d, 'AS2D INI_CG2D.2' , 1, myThid ) |
161 |
CcnhDebugEnds |
CcnhDebugEnds |
162 |
|
|
163 |
|
_BEGIN_MASTER(myThid) |
164 |
|
C-- set global parameter in common block: |
165 |
|
cg2dNorm = myNorm |
166 |
C-- Define the solver tolerance in the appropriate Unit : |
C-- Define the solver tolerance in the appropriate Unit : |
167 |
cg2dNormaliseRHS = cg2dTargetResWunit.LE.0. |
cg2dNormaliseRHS = cg2dTargetResWunit.LE.0. |
168 |
IF (cg2dNormaliseRHS) THEN |
IF (cg2dNormaliseRHS) THEN |
173 |
cg2dTolerance = cg2dNorm * cg2dTargetResWunit |
cg2dTolerance = cg2dNorm * cg2dTargetResWunit |
174 |
& * globalArea / deltaTmom |
& * globalArea / deltaTmom |
175 |
ENDIF |
ENDIF |
176 |
|
_END_MASTER(myThid) |
177 |
|
|
178 |
CcnhDebugStarts |
CcnhDebugStarts |
179 |
_BEGIN_MASTER( myThid ) |
_BEGIN_MASTER( myThid ) |