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