/[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.45 by jmc, Wed Apr 6 18:29:53 2005 UTC revision 1.46 by jmc, Sun May 15 03:02:08 2005 UTC
# Line 40  C     == Global variables Line 40  C     == Global variables
40  #include "SOLVE_FOR_PRESSURE.h"  #include "SOLVE_FOR_PRESSURE.h"
41    
42  C     === Functions ====  C     === Functions ====
43        LOGICAL  DIFF_BASE_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
44        EXTERNAL DIFF_BASE_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
45    
46  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
47  C     == Routine arguments ==  C     == Routine arguments ==
# Line 216  C     see CG2D.h for the interface to th Line 216  C     see CG2D.h for the interface to th
216  #endif  #endif
217    
218  C- dump CG2D output at monitorFreq (to reduce size of STD-OUTPUT files) :  C- dump CG2D output at monitorFreq (to reduce size of STD-OUTPUT files) :
219        IF ( DIFF_BASE_MULTIPLE(baseTime,monitorFreq,myTime,deltaTClock)        IF ( DIFFERENT_MULTIPLE(monitorFreq,myTime,deltaTClock)
220       &   ) THEN       &   ) THEN
221         IF ( debugLevel .GE. debLevA ) THEN         IF ( debugLevel .GE. debLevA ) THEN
222          _BEGIN_MASTER( myThid )          _BEGIN_MASTER( myThid )
# Line 366  C Western boundary Line 366  C Western boundary
366       I           myThid )       I           myThid )
367        _EXCH_XYZ_R8(phi_nh, myThid )        _EXCH_XYZ_R8(phi_nh, myThid )
368    
369        IF ( DIFF_BASE_MULTIPLE(baseTime,monitorFreq,myTime,deltaTClock)        IF ( DIFFERENT_MULTIPLE(monitorFreq,myTime,deltaTClock)
370       &   ) THEN       &   ) THEN
371         IF ( debugLevel .GE. debLevA ) THEN         IF ( debugLevel .GE. debLevA ) THEN
372          _BEGIN_MASTER( myThid )          _BEGIN_MASTER( myThid )
Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46
  ViewVC Help
Powered by ViewVC 1.1.22