& .OR. zonal_filt_mode2dx.EQ.2 ) THEN
INTEGER zonal_filt_cospow, zonal_filt_sinpow, zonal_filt_mode2dx
& zonal_filt_cospow, zonal_filt_sinpow, zonal_filt_mode2dx
& zonal_filt_mode2dx
zonal_filt_mode2dx = 0
IF ( zonal_filt_mode2dx.EQ.0 ) THEN