/[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.1 by jmc, Sat Oct 27 02:13:46 2001 UTC revision 1.2 by jmc, Tue Dec 11 14:35:02 2001 UTC
# Line 41  C sFld                  :: input and fil Line 41  C sFld                  :: input and fil
41        _RL  sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  sFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
42    
43  #ifdef ALLOW_SHAP_FILT  #ifdef ALLOW_SHAP_FILT
 #ifndef USE_OLD_SHAPIRO_FILTERS  
44    
45  C !LOCAL VARIABLES: ====================================================  C !LOCAL VARIABLES: ====================================================
46  C none  C none
# Line 50  CEOP Line 49  CEOP
49    
50        IF (nShapT.GT.0) THEN        IF (nShapT.GT.0) THEN
51    
52    #ifdef USE_OLD_SHAPIRO_FILTERS
53    
54            IF ( tempStepping ) _EXCH_XYZ_R8( tFld,myThid )
55            IF ( saltStepping ) _EXCH_XYZ_R8( sFld,myThid )
56    
57            DO bj=myByLo(myThid),myByHi(myThid)
58             DO bi=myBxLo(myThid),myBxHi(myThid)
59              DO k=1, Nr
60                IF ( tempStepping )
61         &       CALL SHAP_FILT_TRACEROLD( tFld,bi,bj,k,myTime,myThid )
62                IF ( saltStepping )
63         &       CALL SHAP_FILT_TRACEROLD( sFld,bi,bj,k,myTime,myThid )
64              ENDDO
65             ENDDO
66            ENDDO
67    
68            IF ( tempStepping ) _EXCH_XYZ_R8( tFld,myThid )
69            IF ( saltStepping ) _EXCH_XYZ_R8( sFld,myThid )
70    
71    #else
72    
73          IF ( tempStepping .AND. nShapT.GT.0) THEN          IF ( tempStepping .AND. nShapT.GT.0) THEN
74            IF (Shap_funct.EQ.1) THEN            IF (Shap_funct.EQ.1) THEN
75              CALL SHAP_FILT_TRACER_S1(              CALL SHAP_FILT_TRACER_S1(
# Line 71  CEOP Line 91  CEOP
91             STOP 'SHAP_FILT_APPLY: Ooops! Bad Shap_funct in T block'             STOP 'SHAP_FILT_APPLY: Ooops! Bad Shap_funct in T block'
92            ENDIF            ENDIF
93          ENDIF          ENDIF
94    
95          IF ( saltStepping .AND. nShapT.GT.0) THEN          IF ( saltStepping .AND. nShapT.GT.0) THEN
96            IF (Shap_funct.EQ.1) THEN            IF (Shap_funct.EQ.1) THEN
97              CALL SHAP_FILT_TRACER_S1(              CALL SHAP_FILT_TRACER_S1(
# Line 93  CEOP Line 114  CEOP
114            ENDIF            ENDIF
115          ENDIF          ENDIF
116    
       ENDIF  
117  #endif /* USE_OLD_SHAPIRO_FILTERS */  #endif /* USE_OLD_SHAPIRO_FILTERS */
118    
119          ENDIF
120    
121  #endif /* ALLOW_SHAP_FILT */  #endif /* ALLOW_SHAP_FILT */
122    
123        RETURN        RETURN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22