pkg/zonal_filt/ZONAL_FILT.h

42c525bfb4 Alis*0001 #ifdef ALLOW_ZONAL_FILT
                0002
d9332b57eb Jean*0003 C-    Package flag and logical parameters :
                0004 C     zonal_filt_uvStar  :: filter applied to u*,v* (before SOLVE_FOR_P)
                0005 C     zonal_filt_TrStagg :: if using a Stager time-step, filter T,S before
                0006 C                           computing PhiHyd ;
                0007 C                           has no effect if syncr. time step is used
                0008
                0009       LOGICAL zonal_filt_uvStar, zonal_filt_TrStagg
                0010       COMMON /ZONAL_FILT_PARM_L/
                0011      &        zonal_filt_uvStar, zonal_filt_TrStagg
                0012
                0013 C-    Zonal Filter integer parameters :
                0014 C     zonal_filt_cospow  :: Latitude dependance of the damping function
                0015 C                           = ( cos Lat / cos zonal_filt_lat )**cospow
                0016 C     zonal_filt_sinpow  :: zonal mode dependance of the damping function
                0017 C                           = 1 / ( sin pi.kx/Nx )**sinpow
                0018 C     zonal_filt_mode2dx :: to specify how to treat the 2.dx mode :
                0019 C                         = 0 : damped like other modes.
                0020 C                         = 1 : removed in regions where Zonal_filt apply
                0021 C                         = 2 : removed every where.
                0022
                0023       INTEGER zonal_filt_cospow, zonal_filt_sinpow, zonal_filt_mode2dx
                0024       COMMON /ZONAL_FILT_PARM_I/
                0025      &        zonal_filt_cospow, zonal_filt_sinpow, zonal_filt_mode2dx
                0026
                0027 C-    Zonal Filter (real) parameters :
                0028 C     zonal_filt_lat :: Low latitude for FFT filtering of latitude
                0029 C                          circles
                0030       _RL zonal_filt_lat
                0031       COMMON /ZONAL_FILT_PARAMS/
                0032      & zonal_filt_lat
                0033
                0034 C Amplitude factor as function of mode number and latitude (U,T points)
42c525bfb4 Alis*0035       COMMON /ZONAL_FFT/ ampFactor,ampFactorV
                0036 C     _RL ampFactor( Nx, 1-Oly:sNy+Oly, nSx, nSy )
                0037 C     _RL ampFactorV( Nx, 1-Oly:sNy+Oly, nSx, nSy )
                0038       _RL ampFactor( 1-Olx:sNx+Olx, 1-Oly:sNy+Oly, nSx, nSy )
                0039       _RL ampFactorV( 1-Olx:sNx+Olx, 1-Oly:sNy+Oly, nSx, nSy )
                0040
d9332b57eb Jean*0041 #endif /* ALLOW_ZONAL_FILT */