218 |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
219 |
WRITE(msgBuf,'(A34,1PE24.14)') 'cg2d_res =',lastResidual |
WRITE(msgBuf,'(A34,1PE24.14)') 'cg2d_res =',lastResidual |
220 |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
221 |
_END_MASTER( ) |
_END_MASTER( myThid ) |
222 |
ENDIF |
ENDIF |
223 |
ENDIF |
ENDIF |
224 |
|
|
368 |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
369 |
WRITE(msgBuf,'(A34,1PE24.14)') 'cg3d_res =',lastResidual |
WRITE(msgBuf,'(A34,1PE24.14)') 'cg3d_res =',lastResidual |
370 |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
371 |
_END_MASTER( ) |
_END_MASTER( myThid ) |
372 |
ENDIF |
ENDIF |
373 |
ENDIF |
ENDIF |
374 |
|
|