40 |
|
|
41 |
#ifdef ALLOW_SHAP_FILT |
#ifdef ALLOW_SHAP_FILT |
42 |
|
|
43 |
|
LOGICAL DIFFERENT_MULTIPLE |
44 |
|
EXTERNAL DIFFERENT_MULTIPLE |
45 |
|
|
46 |
C !LOCAL VARIABLES: ==================================================== |
C !LOCAL VARIABLES: ==================================================== |
|
#ifdef USE_OLD_SHAPIRO_FILTERS |
|
47 |
C == Local variables == |
C == Local variables == |
48 |
|
#ifdef USE_OLD_SHAPIRO_FILTERS |
49 |
C bi,bj,k :: loop index |
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 |
|
CHARACTER*(MAX_LEN_MBUF) suff |
53 |
|
|
54 |
CEOP |
CEOP |
55 |
|
|
96 |
ELSE |
ELSE |
97 |
STOP 'SHAP_FILT_APPLY_TS: Ooops! Bad Shap_funct in T block' |
STOP 'SHAP_FILT_APPLY_TS: Ooops! Bad Shap_funct in T block' |
98 |
ENDIF |
ENDIF |
99 |
|
|
100 |
|
C----- Diagnostic of Shapiro Filter effect on temperature : |
101 |
|
C Note: Shap_tmpFld1 from shap_filt_tracer_s2 (and not s1, s4) |
102 |
|
C is directly proportional to Delta-Tr due to the Filter |
103 |
|
IF ( Shap_funct.NE.1 .AND. Shap_funct.NE.4 .AND. |
104 |
|
& DIFFERENT_MULTIPLE(Shap_diagFreq,myTime,myTime-deltaTClock) |
105 |
|
& ) THEN |
106 |
|
_BARRIER |
107 |
|
_BEGIN_MASTER( myThid ) |
108 |
|
WRITE(suff,'(I10.10)') myIter |
109 |
|
CALL WRITE_FLD_XYZ_RL( 'shap_dT.', suff, Shap_tmpFld1, |
110 |
|
& myIter, myThid) |
111 |
|
_END_MASTER( myThid ) |
112 |
|
_BARRIER |
113 |
|
ENDIF |
114 |
|
|
115 |
ENDIF |
ENDIF |
116 |
|
|
117 |
IF ( saltStepping .AND. nShapT.GT.0) THEN |
IF ( saltStepping .AND. nShapT.GT.0) THEN |
134 |
ELSE |
ELSE |
135 |
STOP 'SHAP_FILT_APPLY_TS: Ooops! Bad Shap_funct in S block' |
STOP 'SHAP_FILT_APPLY_TS: Ooops! Bad Shap_funct in S block' |
136 |
ENDIF |
ENDIF |
137 |
|
|
138 |
|
C----- Diagnostic of Shapiro Filter effect on salinity : |
139 |
|
C Note: Shap_tmpFld1 from shap_filt_tracer_s2 (and not s1, s4) |
140 |
|
C is directly proportional to Delta-Tr due to the Filter |
141 |
|
IF ( Shap_funct.NE.1 .AND. Shap_funct.NE.4 .AND. |
142 |
|
& DIFFERENT_MULTIPLE(Shap_diagFreq,myTime,myTime-deltaTClock) |
143 |
|
& ) THEN |
144 |
|
_BARRIER |
145 |
|
_BEGIN_MASTER( myThid ) |
146 |
|
WRITE(suff,'(I10.10)') myIter |
147 |
|
CALL WRITE_FLD_XYZ_RL( 'shap_dS.', suff, Shap_tmpFld1, |
148 |
|
& myIter, myThid) |
149 |
|
_END_MASTER( myThid ) |
150 |
|
_BARRIER |
151 |
|
ENDIF |
152 |
|
|
153 |
ENDIF |
ENDIF |
154 |
|
|
155 |
#endif /* USE_OLD_SHAPIRO_FILTERS */ |
#endif /* USE_OLD_SHAPIRO_FILTERS */ |