/[MITgcm]/MITgcm/pkg/shap_filt/shap_filt_apply_ts.F
ViewVC logotype

Diff of /MITgcm/pkg/shap_filt/shap_filt_apply_ts.F

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

revision 1.10 by jmc, Sun Mar 26 22:56:43 2006 UTC revision 1.12 by jmc, Tue Apr 28 18:20:30 2009 UTC
# Line 63  C-    Apply Exchanges on Output field, a Line 63  C-    Apply Exchanges on Output field, a
63    
64  #ifdef USE_OLD_SHAPIRO_FILTERS  #ifdef USE_OLD_SHAPIRO_FILTERS
65    
66          IF ( tempStepping ) _EXCH_XYZ_R8( tFld,myThid )          IF ( tempStepping ) _EXCH_XYZ_RL( tFld,myThid )
67          IF ( saltStepping ) _EXCH_XYZ_R8( sFld,myThid )          IF ( saltStepping ) _EXCH_XYZ_RL( sFld,myThid )
68    
69          DO bj=myByLo(myThid),myByHi(myThid)          DO bj=myByLo(myThid),myByHi(myThid)
70           DO bi=myBxLo(myThid),myBxHi(myThid)           DO bi=myBxLo(myThid),myBxHi(myThid)
# Line 77  C-    Apply Exchanges on Output field, a Line 77  C-    Apply Exchanges on Output field, a
77           ENDDO           ENDDO
78          ENDDO          ENDDO
79    
80          IF ( tempStepping ) _EXCH_XYZ_R8( tFld,myThid )          IF ( tempStepping ) _EXCH_XYZ_RL( tFld,myThid )
81          IF ( saltStepping ) _EXCH_XYZ_R8( sFld,myThid )          IF ( saltStepping ) _EXCH_XYZ_RL( sFld,myThid )
82    
83  #else  #else
84    
# Line 111  C               is directly proportional Line 111  C               is directly proportional
111       &     DIFFERENT_MULTIPLE(Shap_diagFreq,myTime,deltaTClock)       &     DIFFERENT_MULTIPLE(Shap_diagFreq,myTime,deltaTClock)
112       &       ) THEN       &       ) THEN
113             _BARRIER             _BARRIER
            _BEGIN_MASTER( myThid )  
114             WRITE(suff,'(I10.10)') myIter             WRITE(suff,'(I10.10)') myIter
115             CALL WRITE_FLD_XYZ_RL( 'shap_dT.', suff, Shap_tmpFld1,             CALL WRITE_FLD_XYZ_RL( 'shap_dT.', suff, Shap_tmpFld1,
116       &                            myIter, myThid)       &                            myIter, myThid)
            _END_MASTER( myThid )  
117             _BARRIER             _BARRIER
118            ENDIF            ENDIF
119    
# Line 158  C               is directly proportional Line 156  C               is directly proportional
156       &     DIFFERENT_MULTIPLE(Shap_diagFreq,myTime,deltaTClock)       &     DIFFERENT_MULTIPLE(Shap_diagFreq,myTime,deltaTClock)
157       &       ) THEN       &       ) THEN
158             _BARRIER             _BARRIER
            _BEGIN_MASTER( myThid )  
159             WRITE(suff,'(I10.10)') myIter             WRITE(suff,'(I10.10)') myIter
160             CALL WRITE_FLD_XYZ_RL( 'shap_dS.', suff, Shap_tmpFld1,             CALL WRITE_FLD_XYZ_RL( 'shap_dS.', suff, Shap_tmpFld1,
161       &                            myIter, myThid)       &                            myIter, myThid)
            _END_MASTER( myThid )  
162             _BARRIER             _BARRIER
163            ENDIF            ENDIF
164    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22