/[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.5 by jmc, Sat Jun 26 01:15:30 2004 UTC revision 1.6 by jmc, Tue Feb 15 01:51:24 2005 UTC
# Line 112  C               is directly proportional Line 112  C               is directly proportional
112             _BARRIER             _BARRIER
113            ENDIF            ENDIF
114    
115    #ifdef ALLOW_DIAGNOSTICS
116              IF ( Shap_funct.NE.1 .AND. Shap_funct.NE.4
117         &                         .AND. useDiagnostics ) THEN
118                CALL DIAGNOSTICS_FILL(Shap_tmpFld1,'SHAP_dT ',0,Nr,
119         &                                                  0,1,1,myThid)
120              ENDIF
121    #endif /* ALLOW_DIAGNOSTICS */
122    
123          ENDIF          ENDIF
124    
125          IF ( saltStepping .AND. nShapS.GT.0) THEN          IF ( saltStepping .AND. nShapS.GT.0) THEN
# Line 150  C               is directly proportional Line 158  C               is directly proportional
158             _BARRIER             _BARRIER
159            ENDIF            ENDIF
160    
161    #ifdef ALLOW_DIAGNOSTICS
162              IF ( Shap_funct.NE.1 .AND. Shap_funct.NE.4
163         &                         .AND. useDiagnostics ) THEN
164                CALL DIAGNOSTICS_FILL(Shap_tmpFld1,'SHAP_dS ',0,Nr,
165         &                                                  0,1,1,myThid)
166              ENDIF
167    #endif /* ALLOW_DIAGNOSTICS */
168    
169          ENDIF          ENDIF
170    
171  #endif /* USE_OLD_SHAPIRO_FILTERS */  #endif /* USE_OLD_SHAPIRO_FILTERS */
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22