|
||||
File indexing completed on 2018-03-02 18:44:40 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC42c525bfb4 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 */
[ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |