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

Diff of /MITgcm/pkg/shap_filt/shap_filt_tracerold.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 18  C     == Global variables === Line 18  C     == Global variables ===
18  #include "EEPARAMS.h"  #include "EEPARAMS.h"
19  #include "PARAMS.h"  #include "PARAMS.h"
20  #include "GRID.h"  #include "GRID.h"
21    #include "SHAP_FILT.h"
22    
23  C     == Routine arguments  C     == Routine arguments
24        INTEGER myThid        INTEGER myThid
# 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,nShapT
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 69  C     Extract small-scale noise from tmp Line 70  C     Extract small-scale noise from tmp
70  #endif /* SEQUENTIAL_2D_SHAP */  #endif /* SEQUENTIAL_2D_SHAP */
71    
72  C     Extract small-scale noise from tmpFldY (delta_jj^n)  C     Extract small-scale noise from tmpFldY (delta_jj^n)
73        DO N=1,nShap        DO N=1,nShapT
74         N1=1+mod(N+1,2)         N1=1+mod(N+1,2)
75         N2=1+mod( N ,2)         N2=1+mod( N ,2)
76         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