193 |
ENDDO |
ENDDO |
194 |
ENDDO |
ENDDO |
195 |
ENDDO |
ENDDO |
196 |
c WRITE(0,*) ' mythid, sumArea = ', mythid, sumArea |
c WRITE(*,*) ' mythid, sumArea = ', mythid, sumArea |
197 |
_GLOBAL_SUM_R8( sumArea, myThid ) |
_GLOBAL_SUM_R8( sumArea, myThid ) |
198 |
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] |
199 |
cg2dTolerance = cg2dNorm * cg2dTargetResWunit |
cg2dTolerance = cg2dNorm * cg2dTargetResWunit |
200 |
& * sumArea / deltaTMom |
& * sumArea / deltaTMom |
201 |
WRITE(0,'(2A,1P2E22.14)') ' ini_cg2d: ', |
WRITE(*,'(2A,1P2E22.14)') ' ini_cg2d: ', |
202 |
& 'sumArea,cg2dTolerance =', sumArea,cg2dTolerance |
& 'sumArea,cg2dTolerance =', sumArea,cg2dTolerance |
203 |
ENDIF |
ENDIF |
204 |
|
|