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

Diff of /MITgcm/pkg/shap_filt/shap_filt_u.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 uVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL uVel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
# Line 39  C     == Local variables == Line 40  C     == Local variables ==
40        ENDDO        ENDDO
41    
42  C     Extract small-scale noise from tmpFldX (delta_ii^n)  C     Extract small-scale noise from tmpFldX (delta_ii^n)
43        DO N=1,nShap        DO N=1,nShapUV
44         N1=1+mod(N+1,2)         N1=1+mod(N+1,2)
45         N2=1+mod( N ,2)         N2=1+mod( N ,2)
46         DO J=1-OLy,sNy+OLy         DO J=1-OLy,sNy+OLy
# Line 77  C     Create temporary Zeta mask (accoun Line 78  C     Create temporary Zeta mask (accoun
78  #endif /* SEQUENTIAL_2D_SHAP */  #endif /* SEQUENTIAL_2D_SHAP */
79    
80  C     Extract small-scale noise from tmpFldY (delta_jj^n)  C     Extract small-scale noise from tmpFldY (delta_jj^n)
81        DO N=1,nShap        DO N=1,nShapUV
82         N1=1+mod(N+1,2)         N1=1+mod(N+1,2)
83         N2=1+mod( N ,2)         N2=1+mod( N ,2)
84         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