327 |
CALL WRITE_0D_R8( cg2dTargetResidual, INDEX_NONE, |
CALL WRITE_0D_R8( cg2dTargetResidual, INDEX_NONE, |
328 |
& 'cg2dTargetResidual =', |
& 'cg2dTargetResidual =', |
329 |
&' /* 2d con. grad target residual */') |
&' /* 2d con. grad target residual */') |
330 |
|
CALL WRITE_0D_R8( cg2dTargetResWunit, INDEX_NONE, |
331 |
|
& 'cg2dTargetResWunit =', |
332 |
|
&' /* CG2d target residual [W units] */') |
333 |
|
CALL WRITE_0D_I( cg2dPreCondFreq, INDEX_NONE,'cg2dPreCondFreq =', |
334 |
|
&' /* Freq. for updating cg2d preconditioner */') |
335 |
|
|
336 |
WRITE(msgBuf,'(A)') '// ' |
WRITE(msgBuf,'(A)') '// ' |
337 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |