14 |
|
|
15 |
C == Global data == |
C == Global data == |
16 |
#include "SIZE.h" |
#include "SIZE.h" |
17 |
|
#include "EEPARAMS.h" |
18 |
|
#include "PARAMS.h" |
19 |
|
#include "GRID.h" |
20 |
#include "ZONAL_FILT.h" |
#include "ZONAL_FILT.h" |
21 |
#include "FFTPACK.h" |
#include "FFTPACK.h" |
22 |
|
|
46 |
|
|
47 |
DO k=kMin, kMax |
DO k=kMin, kMax |
48 |
DO j=jMin, jMax |
DO j=jMin, jMax |
49 |
|
IF ( (gridLoc.EQ.1 .AND.ABS(yC(1,j,bi,bj)).GE.zonal_filt_lat) |
50 |
|
& .OR.(gridLoc.EQ.2 .AND.ABS(yG(2,j,bi,bj)).GE.zonal_filt_lat) |
51 |
|
& .OR. zonal_filt_mode2dx.EQ.2 ) THEN |
52 |
|
|
53 |
C o Copy zonal line of field into local workspace |
C o Copy zonal line of field into local workspace |
54 |
DO i=1,sNx |
DO i=1,sNx |
97 |
field(i,j,k,bi,bj) = phi(i-sNx) |
field(i,j,k,bi,bj) = phi(i-sNx) |
98 |
ENDDO |
ENDDO |
99 |
|
|
100 |
|
ENDIF |
101 |
ENDDO |
ENDDO |
102 |
ENDDO |
ENDDO |
103 |
|
|