/[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.42 by edhill, Tue Nov 4 18:40:58 2003 UTC revision 1.43 by edhill, Tue Dec 14 16:54:08 2004 UTC
# Line 218  C- dump CG2D output at monitorFreq (to r Line 218  C- dump CG2D output at monitorFreq (to r
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    
# Line 368  C Western boundary Line 368  C Western boundary
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    
Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43
  ViewVC Help
Powered by ViewVC 1.1.22