194 |
_GLOBAL_SUM_R8( sumArea, myThid ) |
_GLOBAL_SUM_R8( sumArea, myThid ) |
195 |
C- convert Target-Residual (in W unit) to cg2d-solver residual unit [m^2/s^2] |
C- convert Target-Residual (in W unit) to cg2d-solver residual unit [m^2/s^2] |
196 |
cg2dTolerance = cg2dNorm * cg2dTargetResWunit |
cg2dTolerance = cg2dNorm * cg2dTargetResWunit |
197 |
& * sumArea / deltaTfreesurf |
& * sumArea / deltaTmom |
198 |
_BEGIN_MASTER( myThid ) |
_BEGIN_MASTER( myThid ) |
199 |
WRITE(standardMessageUnit,'(2A,1P2E22.14)') ' ini_cg2d: ', |
WRITE(standardMessageUnit,'(2A,1P2E22.14)') ' ini_cg2d: ', |
200 |
& 'sumArea,cg2dTolerance =', sumArea,cg2dTolerance |
& 'sumArea,cg2dTolerance =', sumArea,cg2dTolerance |