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

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

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

revision 1.3 by cnh, Sun Feb 4 14:38:50 2001 UTC revision 1.4 by adcroft, Tue May 29 14:01:40 2001 UTC
# Line 16  C     == Global variables === Line 16  C     == Global variables ===
16  #include "EEPARAMS.h"  #include "EEPARAMS.h"
17  #include "PARAMS.h"  #include "PARAMS.h"
18  #include "GRID.h"  #include "GRID.h"
19    #include "SHAP_FILT.h"
20    
21  C     == Routine arguments  C     == Routine arguments
22        _RL vVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL vVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
# Line 47  C     Create temporary Zeta mask (accoun Line 48  C     Create temporary Zeta mask (accoun
48        ENDDO        ENDDO
49    
50  C     Extract small-scale noise from tmpFldX (delta_ii^n)  C     Extract small-scale noise from tmpFldX (delta_ii^n)
51        DO N=1,nShap        DO N=1,nShapUV
52         N1=1+mod(N+1,2)         N1=1+mod(N+1,2)
53         N2=1+mod( N ,2)         N2=1+mod( N ,2)
54         DO J=1-OLy+1,sNy+OLy         DO J=1-OLy+1,sNy+OLy
# Line 80  C     Extract small-scale noise from tmp Line 81  C     Extract small-scale noise from tmp
81  #endif /* SEQUENTIAL_2D_SHAP */  #endif /* SEQUENTIAL_2D_SHAP */
82    
83  C     Extract small-scale noise from tmpFldY (delta_jj^n)  C     Extract small-scale noise from tmpFldY (delta_jj^n)
84        DO N=1,nShap        DO N=1,nShapUV
85         N1=1+mod(N+1,2)         N1=1+mod(N+1,2)
86         N2=1+mod( N ,2)         N2=1+mod( N ,2)
87         DO J=1-OLy+1,sNy+OLy-1         DO J=1-OLy+1,sNy+OLy-1
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22