/[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.7 by jmc, Wed Apr 6 18:46:54 2005 UTC revision 1.8 by jmc, Sun May 15 03:04:57 2005 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  DIFF_BASE_MULTIPLE        LOGICAL  DIFFERENT_MULTIPLE
44        EXTERNAL DIFF_BASE_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
45    
46  C !LOCAL VARIABLES: ====================================================  C !LOCAL VARIABLES: ====================================================
47  C     == Local variables ==  C     == Local variables ==
# Line 101  C-----    Diagnostic of Shapiro Filter e Line 101  C-----    Diagnostic of Shapiro Filter e
101  C         Note: Shap_tmpFld1 from shap_filt_tracer_s2 (and not s1, s4)  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  C               is directly proportional to Delta-Tr due to the Filter
103            IF ( Shap_funct.NE.1 .AND. Shap_funct.NE.4 .AND.            IF ( Shap_funct.NE.1 .AND. Shap_funct.NE.4 .AND.
104       &     DIFF_BASE_MULTIPLE(baseTime,Shap_diagFreq,myTime,deltaTClock)       &     DIFFERENT_MULTIPLE(Shap_diagFreq,myTime,deltaTClock)
105       &       ) THEN       &       ) THEN
106             _BARRIER             _BARRIER
107             _BEGIN_MASTER( myThid )             _BEGIN_MASTER( myThid )
# Line 147  C-----    Diagnostic of Shapiro Filter e Line 147  C-----    Diagnostic of Shapiro Filter e
147  C         Note: Shap_tmpFld1 from shap_filt_tracer_s2 (and not s1, s4)  C         Note: Shap_tmpFld1 from shap_filt_tracer_s2 (and not s1, s4)
148  C               is directly proportional to Delta-Tr due to the Filter  C               is directly proportional to Delta-Tr due to the Filter
149            IF ( Shap_funct.NE.1 .AND. Shap_funct.NE.4 .AND.            IF ( Shap_funct.NE.1 .AND. Shap_funct.NE.4 .AND.
150       &     DIFF_BASE_MULTIPLE(baseTime,Shap_diagFreq,myTime,deltaTClock)       &     DIFFERENT_MULTIPLE(Shap_diagFreq,myTime,deltaTClock)
151       &       ) THEN       &       ) THEN
152             _BARRIER             _BARRIER
153             _BEGIN_MASTER( myThid )             _BEGIN_MASTER( myThid )
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22