/[MITgcm]/MITgcm/pkg/shap_filt/shap_filt_apply_uv.F
ViewVC logotype

Diff of /MITgcm/pkg/shap_filt/shap_filt_apply_uv.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by jmc, Mon Mar 4 01:31:02 2002 UTC revision 1.3 by jmc, Sun Aug 3 03:12:37 2003 UTC
# Line 44  C     myThid :: Thread number for this i Line 44  C     myThid :: Thread number for this i
44    
45  #ifdef ALLOW_SHAP_FILT  #ifdef ALLOW_SHAP_FILT
46    
47          LOGICAL  DIFFERENT_MULTIPLE
48          EXTERNAL DIFFERENT_MULTIPLE
49    
50  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
 #ifdef USE_OLD_SHAPIRO_FILTERS  
51  C     == Local variables ==  C     == Local variables ==
52    #ifdef USE_OLD_SHAPIRO_FILTERS
53  C     bi,bj,k :: loop index  C     bi,bj,k :: loop index
54        INTEGER bi, bj, k        INTEGER bi, bj, k
55  #endif /* USE_OLD_SHAPIRO_FILTERS */  #endif /* USE_OLD_SHAPIRO_FILTERS */
56          CHARACTER*(MAX_LEN_MBUF) suff
57    
58  CEOP  CEOP
59    
# Line 95  CEOP Line 99  CEOP
99            ELSE            ELSE
100             STOP 'SHAP_FILT_APPLY_UV: Ooops! Bad Shap_funct in UV block'             STOP 'SHAP_FILT_APPLY_UV: Ooops! Bad Shap_funct in UV block'
101            ENDIF            ENDIF
102    
103    C-----    Diagnostic of Shapiro Filter effect on Momentum :
104    C         Note: Shap_tmpFld1,2 from shap_filt_tracer_s2 (and not s1, s4)
105    C               are directly proportional to Delta-U,V due to the Filter
106              IF ( Shap_funct.NE.1 .AND. Shap_funct.NE.4 .AND.
107         &     DIFFERENT_MULTIPLE(Shap_diagFreq,myTime,myTime-deltaTClock)
108         &       ) THEN
109               _BARRIER
110               _BEGIN_MASTER( myThid )
111               WRITE(suff,'(I10.10)') myIter
112               CALL WRITE_FLD_XYZ_RL( 'shap_dU.', suff, Shap_tmpFld1,
113         &                             myIter,myThid)
114               CALL WRITE_FLD_XYZ_RL( 'shap_dV.', suff, Shap_tmpFld2,
115         &                             myIter,myThid)
116               _END_MASTER( myThid )
117               _BARRIER
118              ENDIF
119    
120          ENDIF          ENDIF
121    
122  #endif /* USE_OLD_SHAPIRO_FILTERS */  #endif /* USE_OLD_SHAPIRO_FILTERS */
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22