/[MITgcm]/MITgcm/model/src/solve_for_pressure.F
ViewVC logotype

Diff of /MITgcm/model/src/solve_for_pressure.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.36 by jmc, Mon Oct 7 16:20:39 2002 UTC revision 1.37 by mlosch, Tue May 13 13:30:05 2003 UTC
# Line 352  C Western boundary Line 352  C Western boundary
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
Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37
  ViewVC Help
Powered by ViewVC 1.1.22