module fv_control_mod 13,1 use shr_kind_mod, only : r8=> shr_kind_r8 public real(r8) :: tmass0 real(r8) :: zgsint ! f-v dynamics specific ! _ord = 1: first order upwind ! _ord = 2: 2nd order van Leer (Lin et al 1994) ! _ord = 3: standard PPM ! _ord = 4: enhanced PPM (default) integer :: nsplit = 0 ! Lagrangian time splits (Lin-Rood only) integer :: nspltrac = 0 ! Tracer time splits (Lin-Rood only) integer :: nspltvrm = 0 ! Vertical re-mapping time splits (Lin-Rood only) integer :: iord = 4 ! scheme to be used in E-W direction integer :: jord = 4 ! scheme to be used in N-S direction integer :: kord = 4 ! scheme to be used for vertical mapping logical :: dyn_conservative = .false. ! Flag indicating whether the dynamics is conservative integer :: filtcw = 0 ! flag for filtering c-grid winds integer :: ct_overlap = 0 ! nonzero for overlap of cd_core and trac2d, 0 otherwise integer :: trac_decomp = 1 ! size of tracer domain decomposition for trac2d integer :: fft_flt = 1 ! 0 => FFT/algebraic filter; 1 => FFT filter integer :: div24del2flag = 2 ! 2 for 2nd order div damping, 4 for 4th order div damping, ! 42 for 4th order div damping plus 2nd order velocity damping real(r8):: del2coef = 3.e5_r8 ! strength of 2nd order velocity damping end module fv_control_mod