/[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.31 by jmc, Wed Mar 27 23:13:39 2002 UTC revision 1.32 by jmc, Sat Jun 15 03:18:07 2002 UTC
# Line 35  C     == Global variables Line 35  C     == Global variables
35  #endif  #endif
36  #include "SOLVE_FOR_PRESSURE.h"  #include "SOLVE_FOR_PRESSURE.h"
37    
38    C     === Functions ====
39          LOGICAL  DIFFERENT_MULTIPLE
40          EXTERNAL DIFFERENT_MULTIPLE
41    
42  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
43  C     == Routine arguments ==  C     == Routine arguments ==
44  C     myTime - Current time in simulation  C     myTime - Current time in simulation
# Line 198  C     see CG2D.h for the interface to th Line 202  C     see CG2D.h for the interface to th
202        ENDIF        ENDIF
203  #endif  #endif
204    
205        _BEGIN_MASTER( myThid )  C- dump CG2D output at monitorFreq (to reduce size of STD-OUTPUT files) :
206        WRITE(msgBuf,'(A34,1PE24.14)') 'cg2d_init_res =',firstResidual        IF ( DIFFERENT_MULTIPLE(monitorFreq,myTime,
207        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)       &                                    myTime-deltaTClock) ) THEN
208        WRITE(msgBuf,'(A34,I6)') 'cg2d_iters =',numIters         _BEGIN_MASTER( myThid )
209        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)         WRITE(msgBuf,'(A34,1PE24.14)') 'cg2d_init_res =',firstResidual
210        WRITE(msgBuf,'(A34,1PE24.14)') 'cg2d_res =',lastResidual         CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
211        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)         WRITE(msgBuf,'(A34,I6)') 'cg2d_iters =',numIters
212        _END_MASTER( )         CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
213           WRITE(msgBuf,'(A34,1PE24.14)') 'cg2d_res =',lastResidual
214           CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
215           _END_MASTER( )
216          ENDIF
217    
218  C--   Transfert the 2D-solution to "etaN" :  C--   Transfert the 2D-solution to "etaN" :
219        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32
  ViewVC Help
Powered by ViewVC 1.1.22