/[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.3 by jmc, Mon Mar 4 01:31:02 2002 UTC revision 1.4 by jmc, Sun Aug 3 03:12:36 2003 UTC
# Line 40  C sFld                  :: input and fil Line 40  C sFld                  :: input and fil
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    
# Line 92  CEOP Line 96  CEOP
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
# Line 114  CEOP Line 134  CEOP
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 */
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22