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 |
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 */ |