352 |
I myThid ) |
I myThid ) |
353 |
_EXCH_XYZ_R8(phi_nh, myThid ) |
_EXCH_XYZ_R8(phi_nh, myThid ) |
354 |
|
|
355 |
_BEGIN_MASTER( myThid ) |
IF ( DIFFERENT_MULTIPLE(monitorFreq,myTime, |
356 |
WRITE(msgBuf,'(A34,1PE24.14)') 'cg3d_init_res =',firstResidual |
& myTime-deltaTClock) ) THEN |
357 |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
_BEGIN_MASTER( myThid ) |
358 |
WRITE(msgBuf,'(A34,I6)') 'cg3d_iters =',numIters |
WRITE(msgBuf,'(A34,1PE24.14)') 'cg3d_init_res =',firstResidual |
359 |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
360 |
WRITE(msgBuf,'(A34,1PE24.14)') 'cg3d_res =',lastResidual |
WRITE(msgBuf,'(A34,I6)') 'cg3d_iters =',numIters |
361 |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
362 |
_END_MASTER( ) |
WRITE(msgBuf,'(A34,1PE24.14)') 'cg3d_res =',lastResidual |
363 |
|
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
364 |
|
_END_MASTER( ) |
365 |
|
ENDIF |
366 |
|
|
367 |
ENDIF |
ENDIF |
368 |
#endif |
#endif |