/[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.13 by jmc, Fri Mar 24 23:51:14 2017 UTC
# Line 50  C     bi,bj,k :: loop index Line 50  C     bi,bj,k :: loop index
50        INTEGER bi, bj, k        INTEGER bi, bj, k
51  #endif /* USE_OLD_SHAPIRO_FILTERS */  #endif /* USE_OLD_SHAPIRO_FILTERS */
52        INTEGER exchInOut        INTEGER exchInOut
53        CHARACTER*(MAX_LEN_MBUF) suff        CHARACTER*(10) suff
   
54  CEOP  CEOP
55    
56        IF (nShapT.GT.0 .OR. nShapS.GT.0) THEN        IF (nShapT.GT.0 .OR. nShapS.GT.0) THEN
# Line 63  C-    Apply Exchanges on Output field, a Line 62  C-    Apply Exchanges on Output field, a
62    
63  #ifdef USE_OLD_SHAPIRO_FILTERS  #ifdef USE_OLD_SHAPIRO_FILTERS
64    
65          IF ( tempStepping ) _EXCH_XYZ_R8( tFld,myThid )          IF ( tempStepping ) _EXCH_XYZ_RL( tFld,myThid )
66          IF ( saltStepping ) _EXCH_XYZ_R8( sFld,myThid )          IF ( saltStepping ) _EXCH_XYZ_RL( sFld,myThid )
67    
68          DO bj=myByLo(myThid),myByHi(myThid)          DO bj=myByLo(myThid),myByHi(myThid)
69           DO bi=myBxLo(myThid),myBxHi(myThid)           DO bi=myBxLo(myThid),myBxHi(myThid)
# Line 77  C-    Apply Exchanges on Output field, a Line 76  C-    Apply Exchanges on Output field, a
76           ENDDO           ENDDO
77          ENDDO          ENDDO
78    
79          IF ( tempStepping ) _EXCH_XYZ_R8( tFld,myThid )          IF ( tempStepping ) _EXCH_XYZ_RL( tFld,myThid )
80          IF ( saltStepping ) _EXCH_XYZ_R8( sFld,myThid )          IF ( saltStepping ) _EXCH_XYZ_RL( sFld,myThid )
81    
82  #else  #else
83    
# Line 111  C               is directly proportional Line 110  C               is directly proportional
110       &     DIFFERENT_MULTIPLE(Shap_diagFreq,myTime,deltaTClock)       &     DIFFERENT_MULTIPLE(Shap_diagFreq,myTime,deltaTClock)
111       &       ) THEN       &       ) THEN
112             _BARRIER             _BARRIER
113             _BEGIN_MASTER( myThid )             IF ( rwSuffixType.EQ.0 ) THEN
114             WRITE(suff,'(I10.10)') myIter               WRITE(suff,'(I10.10)') myIter
115               ELSE
116                 CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid )
117               ENDIF
118             CALL WRITE_FLD_XYZ_RL( 'shap_dT.', suff, Shap_tmpFld1,             CALL WRITE_FLD_XYZ_RL( 'shap_dT.', suff, Shap_tmpFld1,
119       &                            myIter, myThid)       &                            myIter, myThid)
            _END_MASTER( myThid )  
120             _BARRIER             _BARRIER
121            ENDIF            ENDIF
122    
# Line 158  C               is directly proportional Line 159  C               is directly proportional
159       &     DIFFERENT_MULTIPLE(Shap_diagFreq,myTime,deltaTClock)       &     DIFFERENT_MULTIPLE(Shap_diagFreq,myTime,deltaTClock)
160       &       ) THEN       &       ) THEN
161             _BARRIER             _BARRIER
162             _BEGIN_MASTER( myThid )             IF ( rwSuffixType.EQ.0 ) THEN
163             WRITE(suff,'(I10.10)') myIter               WRITE(suff,'(I10.10)') myIter
164               ELSE
165                 CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid )
166               ENDIF
167             CALL WRITE_FLD_XYZ_RL( 'shap_dS.', suff, Shap_tmpFld1,             CALL WRITE_FLD_XYZ_RL( 'shap_dS.', suff, Shap_tmpFld1,
168       &                            myIter, myThid)       &                            myIter, myThid)
            _END_MASTER( myThid )  
169             _BARRIER             _BARRIER
170            ENDIF            ENDIF
171    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22