serring AB for tracers & mementum to 2 per default

FESOM · Jul 5, 2023 · c4530ef · c4530ef
1 parent 025c458
commit c4530ef
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/MOD_DYN.F90 b/src/MOD_DYN.F90
@@ -53,7 +53,7 @@ MODULE MOD_DYN
     ! instant zonal merdional velocity & Adams-Bashfort rhs
     real(kind=WP), allocatable, dimension(:,:,:)   :: uv, uv_rhs, fer_uv
     real(kind=WP), allocatable, dimension(:,:,:,:) :: uv_rhsAB
-    integer                                        :: AB_order=3
+    integer                                        :: AB_order=2
     ! horizontal velocities at nodes
     real(kind=WP), allocatable, dimension(:,:,:):: uvnode
 

diff --git a/src/MOD_TRACER.F90 b/src/MOD_TRACER.F90
@@ -18,7 +18,7 @@ MODULE MOD_TRACER
 character(20)                                 :: tra_adv_hor, tra_adv_ver, tra_adv_lim ! type of the advection scheme for this tracer
 real(kind=WP)                                 :: tra_adv_ph  = 1.  ! a parameter to be used in horizontal advection (for MUSCL it is the fraction of fourth-order contribution in the solution)
 real(kind=WP)                                 :: tra_adv_pv  = 1.  ! a parameter to be used in horizontal advection (for QR4C  it is the fraction of fourth-order contribution in the solution)
-integer                                       :: AB_order=3
+integer                                       :: AB_order=2
 integer                                       :: ID
 
 contains