INTEGER zonal_filt_cospow, zonal_filt_sinpow, zonal_filt_mode2dx
& zonal_filt_cospow, zonal_filt_sinpow, zonal_filt_mode2dx
& /COS( zonal_filt_lat*deg2rad ) )**zonal_filt_cospow
& zonal_filt_cospow, zonal_filt_sinpow,
zonal_filt_cospow = 2