module scale_atmos_dyn_fvm_flux More...

Data Types
interface	flux_j

interface	flux_mom

interface	flux_phi

interface	flux_wz

interface	flux_z

Functions/Subroutines
subroutine, public	atmos_dyn_fvm_flux_setup (scheme, scheme_tracer)
	setup More...

Variables
procedure(valuew), pointer, public	atmos_dyn_fvm_flux_valuew_z => NULL()

procedure(flux_phi), pointer, public	atmos_dyn_fvm_fluxz_xyz => NULL()

procedure(flux_phi), pointer, public	atmos_dyn_fvm_fluxz_xyz_tracer => NULL()

procedure(flux_phi), pointer, public	atmos_dyn_fvm_fluxx_xyz => NULL()

procedure(flux_phi), pointer, public	atmos_dyn_fvm_fluxx_xyz_tracer => NULL()

procedure(flux_phi), pointer, public	atmos_dyn_fvm_fluxy_xyz => NULL()

procedure(flux_phi), pointer, public	atmos_dyn_fvm_fluxy_xyz_tracer => NULL()

procedure(flux_wz), pointer, public	atmos_dyn_fvm_fluxz_xyw => NULL()

procedure(flux_wz), pointer, public	atmos_dyn_fvm_fluxz_xyw_tracer => NULL()

procedure(flux_mom), pointer, public	atmos_dyn_fvm_fluxx_xyw => NULL()

procedure(flux_mom), pointer, public	atmos_dyn_fvm_fluxx_xyw_tracer => NULL()

procedure(flux_mom), pointer, public	atmos_dyn_fvm_fluxy_xyw => NULL()

procedure(flux_mom), pointer, public	atmos_dyn_fvm_fluxy_xyw_tracer => NULL()

procedure(flux_j), pointer, public	atmos_dyn_fvm_fluxj13_xyw => NULL()

procedure(flux_j), pointer, public	atmos_dyn_fvm_fluxj13_xyw_tracer => NULL()

procedure(flux_j), pointer, public	atmos_dyn_fvm_fluxj23_xyw => NULL()

procedure(flux_j), pointer, public	atmos_dyn_fvm_fluxj23_xyw_tracer => NULL()

procedure(flux_z), pointer, public	atmos_dyn_fvm_fluxz_uyz => NULL()

procedure(flux_z), pointer, public	atmos_dyn_fvm_fluxz_uyz_tracer => NULL()

procedure(flux_mom), pointer, public	atmos_dyn_fvm_fluxx_uyz => NULL()

procedure(flux_mom), pointer, public	atmos_dyn_fvm_fluxx_uyz_tracer => NULL()

procedure(flux_mom), pointer, public	atmos_dyn_fvm_fluxy_uyz => NULL()

procedure(flux_mom), pointer, public	atmos_dyn_fvm_fluxy_uyz_tracer => NULL()

procedure(flux_j), pointer, public	atmos_dyn_fvm_fluxj13_uyz => NULL()

procedure(flux_j), pointer, public	atmos_dyn_fvm_fluxj13_uyz_tracer => NULL()

procedure(flux_j), pointer, public	atmos_dyn_fvm_fluxj23_uyz => NULL()

procedure(flux_j), pointer, public	atmos_dyn_fvm_fluxj23_uyz_tracer => NULL()

procedure(flux_z), pointer, public	atmos_dyn_fvm_fluxz_xvz => NULL()

procedure(flux_z), pointer, public	atmos_dyn_fvm_fluxz_xvz_tracer => NULL()

procedure(flux_mom), pointer, public	atmos_dyn_fvm_fluxx_xvz => NULL()

procedure(flux_mom), pointer, public	atmos_dyn_fvm_fluxx_xvz_tracer => NULL()

procedure(flux_mom), pointer, public	atmos_dyn_fvm_fluxy_xvz => NULL()

procedure(flux_mom), pointer, public	atmos_dyn_fvm_fluxy_xvz_tracer => NULL()

procedure(flux_j), pointer, public	atmos_dyn_fvm_fluxj13_xvz => NULL()

procedure(flux_j), pointer, public	atmos_dyn_fvm_fluxj13_xvz_tracer => NULL()

procedure(flux_j), pointer, public	atmos_dyn_fvm_fluxj23_xvz => NULL()

procedure(flux_j), pointer, public	atmos_dyn_fvm_fluxj23_xvz_tracer => NULL()

Detailed Description

module scale_atmos_dyn_fvm_flux

Description: FVM flux scheme

Author: Team SCALE

Function/Subroutine Documentation

◆ atmos_dyn_fvm_flux_setup()

subroutine, public scale_atmos_dyn_fvm_flux::atmos_dyn_fvm_flux_setup	(	character(len=*), intent(in)	scheme,
		character(len=*), intent(in)	scheme_tracer
	)

setup

Definition at line 278 of file scale_atmos_dyn_fvm_flux.F90.

Referenced by scale_atmos_dyn::atmos_dyn_setup().

     use scale_prc, only: &
          prc_abort
 
    use scale_atmos_dyn_fvm_flux_ud1, only: &
       atmos_dyn_fvm_flux_valuew_z_ud1, &
       atmos_dyn_fvm_fluxz_xyz_ud1, &
       atmos_dyn_fvm_fluxx_xyz_ud1, &
       atmos_dyn_fvm_fluxy_xyz_ud1, &
       atmos_dyn_fvm_fluxz_xyw_ud1, &
       atmos_dyn_fvm_fluxx_xyw_ud1, &
       atmos_dyn_fvm_fluxy_xyw_ud1, &
       atmos_dyn_fvm_fluxj13_xyw_ud1, &
       atmos_dyn_fvm_fluxj23_xyw_ud1, &
       atmos_dyn_fvm_fluxz_uyz_ud1, &
       atmos_dyn_fvm_fluxx_uyz_ud1, &
       atmos_dyn_fvm_fluxy_uyz_ud1, &
       atmos_dyn_fvm_fluxj13_uyz_ud1, &
       atmos_dyn_fvm_fluxj23_uyz_ud1, &
       atmos_dyn_fvm_fluxz_xvz_ud1, &
       atmos_dyn_fvm_fluxx_xvz_ud1, &
       atmos_dyn_fvm_fluxy_xvz_ud1, &
       atmos_dyn_fvm_fluxj13_xvz_ud1, &
       atmos_dyn_fvm_fluxj23_xvz_ud1
 
    use scale_atmos_dyn_fvm_flux_cd2, only: &
       atmos_dyn_fvm_flux_valuew_z_cd2, &
       atmos_dyn_fvm_fluxz_xyz_cd2, &
       atmos_dyn_fvm_fluxx_xyz_cd2, &
       atmos_dyn_fvm_fluxy_xyz_cd2, &
       atmos_dyn_fvm_fluxz_xyw_cd2, &
       atmos_dyn_fvm_fluxx_xyw_cd2, &
       atmos_dyn_fvm_fluxy_xyw_cd2, &
       atmos_dyn_fvm_fluxj13_xyw_cd2, &
       atmos_dyn_fvm_fluxj23_xyw_cd2, &
       atmos_dyn_fvm_fluxz_uyz_cd2, &
       atmos_dyn_fvm_fluxx_uyz_cd2, &
       atmos_dyn_fvm_fluxy_uyz_cd2, &
       atmos_dyn_fvm_fluxj13_uyz_cd2, &
       atmos_dyn_fvm_fluxj23_uyz_cd2, &
       atmos_dyn_fvm_fluxz_xvz_cd2, &
       atmos_dyn_fvm_fluxx_xvz_cd2, &
       atmos_dyn_fvm_fluxy_xvz_cd2, &
       atmos_dyn_fvm_fluxj13_xvz_cd2, &
       atmos_dyn_fvm_fluxj23_xvz_cd2
 
    use scale_atmos_dyn_fvm_flux_ud3, only: &
       atmos_dyn_fvm_flux_valuew_z_ud3, &
       atmos_dyn_fvm_fluxz_xyz_ud3, &
       atmos_dyn_fvm_fluxx_xyz_ud3, &
       atmos_dyn_fvm_fluxy_xyz_ud3, &
       atmos_dyn_fvm_fluxz_xyw_ud3, &
       atmos_dyn_fvm_fluxx_xyw_ud3, &
       atmos_dyn_fvm_fluxy_xyw_ud3, &
       atmos_dyn_fvm_fluxj13_xyw_ud3, &
       atmos_dyn_fvm_fluxj23_xyw_ud3, &
       atmos_dyn_fvm_fluxz_uyz_ud3, &
       atmos_dyn_fvm_fluxx_uyz_ud3, &
       atmos_dyn_fvm_fluxy_uyz_ud3, &
       atmos_dyn_fvm_fluxj13_uyz_ud3, &
       atmos_dyn_fvm_fluxj23_uyz_ud3, &
       atmos_dyn_fvm_fluxz_xvz_ud3, &
       atmos_dyn_fvm_fluxx_xvz_ud3, &
       atmos_dyn_fvm_fluxy_xvz_ud3, &
       atmos_dyn_fvm_fluxj13_xvz_ud3, &
       atmos_dyn_fvm_fluxj23_xvz_ud3
 
    use scale_atmos_dyn_fvm_flux_ud3koren1993, only: &
       atmos_dyn_fvm_flux_valuew_z_ud3koren1993, &
       atmos_dyn_fvm_fluxz_xyz_ud3koren1993, &
       atmos_dyn_fvm_fluxx_xyz_ud3koren1993, &
       atmos_dyn_fvm_fluxy_xyz_ud3koren1993, &
       atmos_dyn_fvm_fluxz_xyw_ud3koren1993, &
       atmos_dyn_fvm_fluxx_xyw_ud3koren1993, &
       atmos_dyn_fvm_fluxy_xyw_ud3koren1993, &
       atmos_dyn_fvm_fluxj13_xyw_ud3koren1993, &
       atmos_dyn_fvm_fluxj23_xyw_ud3koren1993, &
       atmos_dyn_fvm_fluxz_uyz_ud3koren1993, &
       atmos_dyn_fvm_fluxx_uyz_ud3koren1993, &
       atmos_dyn_fvm_fluxy_uyz_ud3koren1993, &
       atmos_dyn_fvm_fluxj13_uyz_ud3koren1993, &
       atmos_dyn_fvm_fluxj23_uyz_ud3koren1993, &
       atmos_dyn_fvm_fluxz_xvz_ud3koren1993, &
       atmos_dyn_fvm_fluxx_xvz_ud3koren1993, &
       atmos_dyn_fvm_fluxy_xvz_ud3koren1993, &
       atmos_dyn_fvm_fluxj13_xvz_ud3koren1993, &
       atmos_dyn_fvm_fluxj23_xvz_ud3koren1993
 
    use scale_atmos_dyn_fvm_flux_cd4, only: &
       atmos_dyn_fvm_flux_valuew_z_cd4, &
       atmos_dyn_fvm_fluxz_xyz_cd4, &
       atmos_dyn_fvm_fluxx_xyz_cd4, &
       atmos_dyn_fvm_fluxy_xyz_cd4, &
       atmos_dyn_fvm_fluxz_xyw_cd4, &
       atmos_dyn_fvm_fluxx_xyw_cd4, &
       atmos_dyn_fvm_fluxy_xyw_cd4, &
       atmos_dyn_fvm_fluxj13_xyw_cd4, &
       atmos_dyn_fvm_fluxj23_xyw_cd4, &
       atmos_dyn_fvm_fluxz_uyz_cd4, &
       atmos_dyn_fvm_fluxx_uyz_cd4, &
       atmos_dyn_fvm_fluxy_uyz_cd4, &
       atmos_dyn_fvm_fluxj13_uyz_cd4, &
       atmos_dyn_fvm_fluxj23_uyz_cd4, &
       atmos_dyn_fvm_fluxz_xvz_cd4, &
       atmos_dyn_fvm_fluxx_xvz_cd4, &
       atmos_dyn_fvm_fluxy_xvz_cd4, &
       atmos_dyn_fvm_fluxj13_xvz_cd4, &
       atmos_dyn_fvm_fluxj23_xvz_cd4
 
    use scale_atmos_dyn_fvm_flux_ud5, only: &
       atmos_dyn_fvm_flux_valuew_z_ud5, &
       atmos_dyn_fvm_fluxz_xyz_ud5, &
       atmos_dyn_fvm_fluxx_xyz_ud5, &
       atmos_dyn_fvm_fluxy_xyz_ud5, &
       atmos_dyn_fvm_fluxz_xyw_ud5, &
       atmos_dyn_fvm_fluxx_xyw_ud5, &
       atmos_dyn_fvm_fluxy_xyw_ud5, &
       atmos_dyn_fvm_fluxj13_xyw_ud5, &
       atmos_dyn_fvm_fluxj23_xyw_ud5, &
       atmos_dyn_fvm_fluxz_uyz_ud5, &
       atmos_dyn_fvm_fluxx_uyz_ud5, &
       atmos_dyn_fvm_fluxy_uyz_ud5, &
       atmos_dyn_fvm_fluxj13_uyz_ud5, &
       atmos_dyn_fvm_fluxj23_uyz_ud5, &
       atmos_dyn_fvm_fluxz_xvz_ud5, &
       atmos_dyn_fvm_fluxx_xvz_ud5, &
       atmos_dyn_fvm_fluxy_xvz_ud5, &
       atmos_dyn_fvm_fluxj13_xvz_ud5, &
       atmos_dyn_fvm_fluxj23_xvz_ud5
 
    use scale_atmos_dyn_fvm_flux_cd6, only: &
       atmos_dyn_fvm_flux_valuew_z_cd6, &
       atmos_dyn_fvm_fluxz_xyz_cd6, &
       atmos_dyn_fvm_fluxx_xyz_cd6, &
       atmos_dyn_fvm_fluxy_xyz_cd6, &
       atmos_dyn_fvm_fluxz_xyw_cd6, &
       atmos_dyn_fvm_fluxx_xyw_cd6, &
       atmos_dyn_fvm_fluxy_xyw_cd6, &
       atmos_dyn_fvm_fluxj13_xyw_cd6, &
       atmos_dyn_fvm_fluxj23_xyw_cd6, &
       atmos_dyn_fvm_fluxz_uyz_cd6, &
       atmos_dyn_fvm_fluxx_uyz_cd6, &
       atmos_dyn_fvm_fluxy_uyz_cd6, &
       atmos_dyn_fvm_fluxj13_uyz_cd6, &
       atmos_dyn_fvm_fluxj23_uyz_cd6, &
       atmos_dyn_fvm_fluxz_xvz_cd6, &
       atmos_dyn_fvm_fluxx_xvz_cd6, &
       atmos_dyn_fvm_fluxy_xvz_cd6, &
       atmos_dyn_fvm_fluxj13_xvz_cd6, &
       atmos_dyn_fvm_fluxj23_xvz_cd6
 
     implicit none
     character(len=*), intent(in) :: scheme
     character(len=*), intent(in) :: scheme_tracer
 
     select case( scheme )
 
     case( "UD1" )
       log_info("ATMOS_DYN_FVM_flux_setup",*) 'the ud1 scheme is used for flux calculation'
 
       atmos_dyn_fvm_flux_valuew_z => atmos_dyn_fvm_flux_valuew_z_ud1
 
       atmos_dyn_fvm_fluxz_xyz => atmos_dyn_fvm_fluxz_xyz_ud1
 
       atmos_dyn_fvm_fluxx_xyz => atmos_dyn_fvm_fluxx_xyz_ud1
 
       atmos_dyn_fvm_fluxy_xyz => atmos_dyn_fvm_fluxy_xyz_ud1
 
       atmos_dyn_fvm_fluxz_xyw => atmos_dyn_fvm_fluxz_xyw_ud1
 
       atmos_dyn_fvm_fluxx_xyw => atmos_dyn_fvm_fluxx_xyw_ud1
 
       atmos_dyn_fvm_fluxy_xyw => atmos_dyn_fvm_fluxy_xyw_ud1
 
       atmos_dyn_fvm_fluxj13_xyw => atmos_dyn_fvm_fluxj13_xyw_ud1
 
       atmos_dyn_fvm_fluxj23_xyw => atmos_dyn_fvm_fluxj23_xyw_ud1
 
       atmos_dyn_fvm_fluxz_uyz => atmos_dyn_fvm_fluxz_uyz_ud1
 
       atmos_dyn_fvm_fluxx_uyz => atmos_dyn_fvm_fluxx_uyz_ud1
 
       atmos_dyn_fvm_fluxy_uyz => atmos_dyn_fvm_fluxy_uyz_ud1
 
       atmos_dyn_fvm_fluxj13_uyz => atmos_dyn_fvm_fluxj13_uyz_ud1
 
       atmos_dyn_fvm_fluxj23_uyz => atmos_dyn_fvm_fluxj23_uyz_ud1
 
       atmos_dyn_fvm_fluxz_xvz => atmos_dyn_fvm_fluxz_xvz_ud1
 
       atmos_dyn_fvm_fluxx_xvz => atmos_dyn_fvm_fluxx_xvz_ud1
 
       atmos_dyn_fvm_fluxy_xvz => atmos_dyn_fvm_fluxy_xvz_ud1
 
       atmos_dyn_fvm_fluxj13_xvz => atmos_dyn_fvm_fluxj13_xvz_ud1
 
       atmos_dyn_fvm_fluxj23_xvz => atmos_dyn_fvm_fluxj23_xvz_ud1
 
 
 
       if ( ihalo < 1 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'IHALO must be >= ', 1
          call prc_abort
       end if
       if ( jhalo < 1 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'JHALO must be >= ', 1
          call prc_abort
       end if
 
 
     case( "CD2" )
       log_info("ATMOS_DYN_FVM_flux_setup",*) 'the cd2 scheme is used for flux calculation'
 
       atmos_dyn_fvm_flux_valuew_z => atmos_dyn_fvm_flux_valuew_z_cd2
 
       atmos_dyn_fvm_fluxz_xyz => atmos_dyn_fvm_fluxz_xyz_cd2
 
       atmos_dyn_fvm_fluxx_xyz => atmos_dyn_fvm_fluxx_xyz_cd2
 
       atmos_dyn_fvm_fluxy_xyz => atmos_dyn_fvm_fluxy_xyz_cd2
 
       atmos_dyn_fvm_fluxz_xyw => atmos_dyn_fvm_fluxz_xyw_cd2
 
       atmos_dyn_fvm_fluxx_xyw => atmos_dyn_fvm_fluxx_xyw_cd2
 
       atmos_dyn_fvm_fluxy_xyw => atmos_dyn_fvm_fluxy_xyw_cd2
 
       atmos_dyn_fvm_fluxj13_xyw => atmos_dyn_fvm_fluxj13_xyw_cd2
 
       atmos_dyn_fvm_fluxj23_xyw => atmos_dyn_fvm_fluxj23_xyw_cd2
 
       atmos_dyn_fvm_fluxz_uyz => atmos_dyn_fvm_fluxz_uyz_cd2
 
       atmos_dyn_fvm_fluxx_uyz => atmos_dyn_fvm_fluxx_uyz_cd2
 
       atmos_dyn_fvm_fluxy_uyz => atmos_dyn_fvm_fluxy_uyz_cd2
 
       atmos_dyn_fvm_fluxj13_uyz => atmos_dyn_fvm_fluxj13_uyz_cd2
 
       atmos_dyn_fvm_fluxj23_uyz => atmos_dyn_fvm_fluxj23_uyz_cd2
 
       atmos_dyn_fvm_fluxz_xvz => atmos_dyn_fvm_fluxz_xvz_cd2
 
       atmos_dyn_fvm_fluxx_xvz => atmos_dyn_fvm_fluxx_xvz_cd2
 
       atmos_dyn_fvm_fluxy_xvz => atmos_dyn_fvm_fluxy_xvz_cd2
 
       atmos_dyn_fvm_fluxj13_xvz => atmos_dyn_fvm_fluxj13_xvz_cd2
 
       atmos_dyn_fvm_fluxj23_xvz => atmos_dyn_fvm_fluxj23_xvz_cd2
 
 
 
       if ( ihalo < 1 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'IHALO must be >= ', 1
          call prc_abort
       end if
       if ( jhalo < 1 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'JHALO must be >= ', 1
          call prc_abort
       end if
 
 
     case( "UD3" )
       log_info("ATMOS_DYN_FVM_flux_setup",*) 'the ud3 scheme is used for flux calculation'
 
       atmos_dyn_fvm_flux_valuew_z => atmos_dyn_fvm_flux_valuew_z_ud3
 
       atmos_dyn_fvm_fluxz_xyz => atmos_dyn_fvm_fluxz_xyz_ud3
 
       atmos_dyn_fvm_fluxx_xyz => atmos_dyn_fvm_fluxx_xyz_ud3
 
       atmos_dyn_fvm_fluxy_xyz => atmos_dyn_fvm_fluxy_xyz_ud3
 
       atmos_dyn_fvm_fluxz_xyw => atmos_dyn_fvm_fluxz_xyw_ud3
 
       atmos_dyn_fvm_fluxx_xyw => atmos_dyn_fvm_fluxx_xyw_ud3
 
       atmos_dyn_fvm_fluxy_xyw => atmos_dyn_fvm_fluxy_xyw_ud3
 
       atmos_dyn_fvm_fluxj13_xyw => atmos_dyn_fvm_fluxj13_xyw_ud3
 
       atmos_dyn_fvm_fluxj23_xyw => atmos_dyn_fvm_fluxj23_xyw_ud3
 
       atmos_dyn_fvm_fluxz_uyz => atmos_dyn_fvm_fluxz_uyz_ud3
 
       atmos_dyn_fvm_fluxx_uyz => atmos_dyn_fvm_fluxx_uyz_ud3
 
       atmos_dyn_fvm_fluxy_uyz => atmos_dyn_fvm_fluxy_uyz_ud3
 
       atmos_dyn_fvm_fluxj13_uyz => atmos_dyn_fvm_fluxj13_uyz_ud3
 
       atmos_dyn_fvm_fluxj23_uyz => atmos_dyn_fvm_fluxj23_uyz_ud3
 
       atmos_dyn_fvm_fluxz_xvz => atmos_dyn_fvm_fluxz_xvz_ud3
 
       atmos_dyn_fvm_fluxx_xvz => atmos_dyn_fvm_fluxx_xvz_ud3
 
       atmos_dyn_fvm_fluxy_xvz => atmos_dyn_fvm_fluxy_xvz_ud3
 
       atmos_dyn_fvm_fluxj13_xvz => atmos_dyn_fvm_fluxj13_xvz_ud3
 
       atmos_dyn_fvm_fluxj23_xvz => atmos_dyn_fvm_fluxj23_xvz_ud3
 
 
 
       if ( ihalo < 2 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'IHALO must be >= ', 2
          call prc_abort
       end if
       if ( jhalo < 2 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'JHALO must be >= ', 2
          call prc_abort
       end if
 
 
     case( "UD3KOREN1993" )
       log_info("ATMOS_DYN_FVM_flux_setup",*) 'the ud3Koren1993 scheme is used for flux calculation'
 
       atmos_dyn_fvm_flux_valuew_z => atmos_dyn_fvm_flux_valuew_z_ud3koren1993
 
       atmos_dyn_fvm_fluxz_xyz => atmos_dyn_fvm_fluxz_xyz_ud3koren1993
 
       atmos_dyn_fvm_fluxx_xyz => atmos_dyn_fvm_fluxx_xyz_ud3koren1993
 
       atmos_dyn_fvm_fluxy_xyz => atmos_dyn_fvm_fluxy_xyz_ud3koren1993
 
       atmos_dyn_fvm_fluxz_xyw => atmos_dyn_fvm_fluxz_xyw_ud3koren1993
 
       atmos_dyn_fvm_fluxx_xyw => atmos_dyn_fvm_fluxx_xyw_ud3koren1993
 
       atmos_dyn_fvm_fluxy_xyw => atmos_dyn_fvm_fluxy_xyw_ud3koren1993
 
       atmos_dyn_fvm_fluxj13_xyw => atmos_dyn_fvm_fluxj13_xyw_ud3koren1993
 
       atmos_dyn_fvm_fluxj23_xyw => atmos_dyn_fvm_fluxj23_xyw_ud3koren1993
 
       atmos_dyn_fvm_fluxz_uyz => atmos_dyn_fvm_fluxz_uyz_ud3koren1993
 
       atmos_dyn_fvm_fluxx_uyz => atmos_dyn_fvm_fluxx_uyz_ud3koren1993
 
       atmos_dyn_fvm_fluxy_uyz => atmos_dyn_fvm_fluxy_uyz_ud3koren1993
 
       atmos_dyn_fvm_fluxj13_uyz => atmos_dyn_fvm_fluxj13_uyz_ud3koren1993
 
       atmos_dyn_fvm_fluxj23_uyz => atmos_dyn_fvm_fluxj23_uyz_ud3koren1993
 
       atmos_dyn_fvm_fluxz_xvz => atmos_dyn_fvm_fluxz_xvz_ud3koren1993
 
       atmos_dyn_fvm_fluxx_xvz => atmos_dyn_fvm_fluxx_xvz_ud3koren1993
 
       atmos_dyn_fvm_fluxy_xvz => atmos_dyn_fvm_fluxy_xvz_ud3koren1993
 
       atmos_dyn_fvm_fluxj13_xvz => atmos_dyn_fvm_fluxj13_xvz_ud3koren1993
 
       atmos_dyn_fvm_fluxj23_xvz => atmos_dyn_fvm_fluxj23_xvz_ud3koren1993
 
 
 
       if ( ihalo < 2 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'IHALO must be >= ', 2
          call prc_abort
       end if
       if ( jhalo < 2 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'JHALO must be >= ', 2
          call prc_abort
       end if
 
 
     case( "CD4" )
       log_info("ATMOS_DYN_FVM_flux_setup",*) 'the cd4 scheme is used for flux calculation'
 
       atmos_dyn_fvm_flux_valuew_z => atmos_dyn_fvm_flux_valuew_z_cd4
 
       atmos_dyn_fvm_fluxz_xyz => atmos_dyn_fvm_fluxz_xyz_cd4
 
       atmos_dyn_fvm_fluxx_xyz => atmos_dyn_fvm_fluxx_xyz_cd4
 
       atmos_dyn_fvm_fluxy_xyz => atmos_dyn_fvm_fluxy_xyz_cd4
 
       atmos_dyn_fvm_fluxz_xyw => atmos_dyn_fvm_fluxz_xyw_cd4
 
       atmos_dyn_fvm_fluxx_xyw => atmos_dyn_fvm_fluxx_xyw_cd4
 
       atmos_dyn_fvm_fluxy_xyw => atmos_dyn_fvm_fluxy_xyw_cd4
 
       atmos_dyn_fvm_fluxj13_xyw => atmos_dyn_fvm_fluxj13_xyw_cd4
 
       atmos_dyn_fvm_fluxj23_xyw => atmos_dyn_fvm_fluxj23_xyw_cd4
 
       atmos_dyn_fvm_fluxz_uyz => atmos_dyn_fvm_fluxz_uyz_cd4
 
       atmos_dyn_fvm_fluxx_uyz => atmos_dyn_fvm_fluxx_uyz_cd4
 
       atmos_dyn_fvm_fluxy_uyz => atmos_dyn_fvm_fluxy_uyz_cd4
 
       atmos_dyn_fvm_fluxj13_uyz => atmos_dyn_fvm_fluxj13_uyz_cd4
 
       atmos_dyn_fvm_fluxj23_uyz => atmos_dyn_fvm_fluxj23_uyz_cd4
 
       atmos_dyn_fvm_fluxz_xvz => atmos_dyn_fvm_fluxz_xvz_cd4
 
       atmos_dyn_fvm_fluxx_xvz => atmos_dyn_fvm_fluxx_xvz_cd4
 
       atmos_dyn_fvm_fluxy_xvz => atmos_dyn_fvm_fluxy_xvz_cd4
 
       atmos_dyn_fvm_fluxj13_xvz => atmos_dyn_fvm_fluxj13_xvz_cd4
 
       atmos_dyn_fvm_fluxj23_xvz => atmos_dyn_fvm_fluxj23_xvz_cd4
 
 
 
       if ( ihalo < 2 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'IHALO must be >= ', 2
          call prc_abort
       end if
       if ( jhalo < 2 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'JHALO must be >= ', 2
          call prc_abort
       end if
 
 
     case( "UD5" )
       log_info("ATMOS_DYN_FVM_flux_setup",*) 'the ud5 scheme is used for flux calculation'
 
       atmos_dyn_fvm_flux_valuew_z => atmos_dyn_fvm_flux_valuew_z_ud5
 
       atmos_dyn_fvm_fluxz_xyz => atmos_dyn_fvm_fluxz_xyz_ud5
 
       atmos_dyn_fvm_fluxx_xyz => atmos_dyn_fvm_fluxx_xyz_ud5
 
       atmos_dyn_fvm_fluxy_xyz => atmos_dyn_fvm_fluxy_xyz_ud5
 
       atmos_dyn_fvm_fluxz_xyw => atmos_dyn_fvm_fluxz_xyw_ud5
 
       atmos_dyn_fvm_fluxx_xyw => atmos_dyn_fvm_fluxx_xyw_ud5
 
       atmos_dyn_fvm_fluxy_xyw => atmos_dyn_fvm_fluxy_xyw_ud5
 
       atmos_dyn_fvm_fluxj13_xyw => atmos_dyn_fvm_fluxj13_xyw_ud5
 
       atmos_dyn_fvm_fluxj23_xyw => atmos_dyn_fvm_fluxj23_xyw_ud5
 
       atmos_dyn_fvm_fluxz_uyz => atmos_dyn_fvm_fluxz_uyz_ud5
 
       atmos_dyn_fvm_fluxx_uyz => atmos_dyn_fvm_fluxx_uyz_ud5
 
       atmos_dyn_fvm_fluxy_uyz => atmos_dyn_fvm_fluxy_uyz_ud5
 
       atmos_dyn_fvm_fluxj13_uyz => atmos_dyn_fvm_fluxj13_uyz_ud5
 
       atmos_dyn_fvm_fluxj23_uyz => atmos_dyn_fvm_fluxj23_uyz_ud5
 
       atmos_dyn_fvm_fluxz_xvz => atmos_dyn_fvm_fluxz_xvz_ud5
 
       atmos_dyn_fvm_fluxx_xvz => atmos_dyn_fvm_fluxx_xvz_ud5
 
       atmos_dyn_fvm_fluxy_xvz => atmos_dyn_fvm_fluxy_xvz_ud5
 
       atmos_dyn_fvm_fluxj13_xvz => atmos_dyn_fvm_fluxj13_xvz_ud5
 
       atmos_dyn_fvm_fluxj23_xvz => atmos_dyn_fvm_fluxj23_xvz_ud5
 
 
 
       if ( ihalo < 3 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'IHALO must be >= ', 3
          call prc_abort
       end if
       if ( jhalo < 3 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'JHALO must be >= ', 3
          call prc_abort
       end if
 
 
     case( "CD6" )
       log_info("ATMOS_DYN_FVM_flux_setup",*) 'the cd6 scheme is used for flux calculation'
 
       atmos_dyn_fvm_flux_valuew_z => atmos_dyn_fvm_flux_valuew_z_cd6
 
       atmos_dyn_fvm_fluxz_xyz => atmos_dyn_fvm_fluxz_xyz_cd6
 
       atmos_dyn_fvm_fluxx_xyz => atmos_dyn_fvm_fluxx_xyz_cd6
 
       atmos_dyn_fvm_fluxy_xyz => atmos_dyn_fvm_fluxy_xyz_cd6
 
       atmos_dyn_fvm_fluxz_xyw => atmos_dyn_fvm_fluxz_xyw_cd6
 
       atmos_dyn_fvm_fluxx_xyw => atmos_dyn_fvm_fluxx_xyw_cd6
 
       atmos_dyn_fvm_fluxy_xyw => atmos_dyn_fvm_fluxy_xyw_cd6
 
       atmos_dyn_fvm_fluxj13_xyw => atmos_dyn_fvm_fluxj13_xyw_cd6
 
       atmos_dyn_fvm_fluxj23_xyw => atmos_dyn_fvm_fluxj23_xyw_cd6
 
       atmos_dyn_fvm_fluxz_uyz => atmos_dyn_fvm_fluxz_uyz_cd6
 
       atmos_dyn_fvm_fluxx_uyz => atmos_dyn_fvm_fluxx_uyz_cd6
 
       atmos_dyn_fvm_fluxy_uyz => atmos_dyn_fvm_fluxy_uyz_cd6
 
       atmos_dyn_fvm_fluxj13_uyz => atmos_dyn_fvm_fluxj13_uyz_cd6
 
       atmos_dyn_fvm_fluxj23_uyz => atmos_dyn_fvm_fluxj23_uyz_cd6
 
       atmos_dyn_fvm_fluxz_xvz => atmos_dyn_fvm_fluxz_xvz_cd6
 
       atmos_dyn_fvm_fluxx_xvz => atmos_dyn_fvm_fluxx_xvz_cd6
 
       atmos_dyn_fvm_fluxy_xvz => atmos_dyn_fvm_fluxy_xvz_cd6
 
       atmos_dyn_fvm_fluxj13_xvz => atmos_dyn_fvm_fluxj13_xvz_cd6
 
       atmos_dyn_fvm_fluxj23_xvz => atmos_dyn_fvm_fluxj23_xvz_cd6
 
 
 
       if ( ihalo < 3 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'IHALO must be >= ', 3
          call prc_abort
       end if
       if ( jhalo < 3 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'JHALO must be >= ', 3
          call prc_abort
       end if
 
 
     case default
        log_error("ATMOS_DYN_FVM_flux_setup",*) 'scheme is invalid: ', scheme
        call prc_abort
     end select
 
     select case( scheme_tracer )
 
     case( "UD1" )
       log_info("ATMOS_DYN_FVM_flux_setup",*) 'the ud1 scheme is used for flux calculation of tracer'
 
       atmos_dyn_fvm_fluxz_xyz_tracer => atmos_dyn_fvm_fluxz_xyz_ud1
 
       atmos_dyn_fvm_fluxx_xyz_tracer => atmos_dyn_fvm_fluxx_xyz_ud1
 
       atmos_dyn_fvm_fluxy_xyz_tracer => atmos_dyn_fvm_fluxy_xyz_ud1
 
       atmos_dyn_fvm_fluxz_xyw_tracer => atmos_dyn_fvm_fluxz_xyw_ud1
 
       atmos_dyn_fvm_fluxx_xyw_tracer => atmos_dyn_fvm_fluxx_xyw_ud1
 
       atmos_dyn_fvm_fluxy_xyw_tracer => atmos_dyn_fvm_fluxy_xyw_ud1
 
       atmos_dyn_fvm_fluxj13_xyw_tracer => atmos_dyn_fvm_fluxj13_xyw_ud1
 
       atmos_dyn_fvm_fluxj23_xyw_tracer => atmos_dyn_fvm_fluxj23_xyw_ud1
 
       atmos_dyn_fvm_fluxz_uyz_tracer => atmos_dyn_fvm_fluxz_uyz_ud1
 
       atmos_dyn_fvm_fluxx_uyz_tracer => atmos_dyn_fvm_fluxx_uyz_ud1
 
       atmos_dyn_fvm_fluxy_uyz_tracer => atmos_dyn_fvm_fluxy_uyz_ud1
 
       atmos_dyn_fvm_fluxj13_uyz_tracer => atmos_dyn_fvm_fluxj13_uyz_ud1
 
       atmos_dyn_fvm_fluxj23_uyz_tracer => atmos_dyn_fvm_fluxj23_uyz_ud1
 
       atmos_dyn_fvm_fluxz_xvz_tracer => atmos_dyn_fvm_fluxz_xvz_ud1
 
       atmos_dyn_fvm_fluxx_xvz_tracer => atmos_dyn_fvm_fluxx_xvz_ud1
 
       atmos_dyn_fvm_fluxy_xvz_tracer => atmos_dyn_fvm_fluxy_xvz_ud1
 
       atmos_dyn_fvm_fluxj13_xvz_tracer => atmos_dyn_fvm_fluxj13_xvz_ud1
 
       atmos_dyn_fvm_fluxj23_xvz_tracer => atmos_dyn_fvm_fluxj23_xvz_ud1
 
 
 
       if ( ihalo < 1 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'IHALO must be >= ', 1
          call prc_abort
       end if
       if ( jhalo < 1 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'JHALO must be >= ', 1
          call prc_abort
       end if
 
 
     case( "CD2" )
       log_info("ATMOS_DYN_FVM_flux_setup",*) 'the cd2 scheme is used for flux calculation of tracer'
 
       atmos_dyn_fvm_fluxz_xyz_tracer => atmos_dyn_fvm_fluxz_xyz_cd2
 
       atmos_dyn_fvm_fluxx_xyz_tracer => atmos_dyn_fvm_fluxx_xyz_cd2
 
       atmos_dyn_fvm_fluxy_xyz_tracer => atmos_dyn_fvm_fluxy_xyz_cd2
 
       atmos_dyn_fvm_fluxz_xyw_tracer => atmos_dyn_fvm_fluxz_xyw_cd2
 
       atmos_dyn_fvm_fluxx_xyw_tracer => atmos_dyn_fvm_fluxx_xyw_cd2
 
       atmos_dyn_fvm_fluxy_xyw_tracer => atmos_dyn_fvm_fluxy_xyw_cd2
 
       atmos_dyn_fvm_fluxj13_xyw_tracer => atmos_dyn_fvm_fluxj13_xyw_cd2
 
       atmos_dyn_fvm_fluxj23_xyw_tracer => atmos_dyn_fvm_fluxj23_xyw_cd2
 
       atmos_dyn_fvm_fluxz_uyz_tracer => atmos_dyn_fvm_fluxz_uyz_cd2
 
       atmos_dyn_fvm_fluxx_uyz_tracer => atmos_dyn_fvm_fluxx_uyz_cd2
 
       atmos_dyn_fvm_fluxy_uyz_tracer => atmos_dyn_fvm_fluxy_uyz_cd2
 
       atmos_dyn_fvm_fluxj13_uyz_tracer => atmos_dyn_fvm_fluxj13_uyz_cd2
 
       atmos_dyn_fvm_fluxj23_uyz_tracer => atmos_dyn_fvm_fluxj23_uyz_cd2
 
       atmos_dyn_fvm_fluxz_xvz_tracer => atmos_dyn_fvm_fluxz_xvz_cd2
 
       atmos_dyn_fvm_fluxx_xvz_tracer => atmos_dyn_fvm_fluxx_xvz_cd2
 
       atmos_dyn_fvm_fluxy_xvz_tracer => atmos_dyn_fvm_fluxy_xvz_cd2
 
       atmos_dyn_fvm_fluxj13_xvz_tracer => atmos_dyn_fvm_fluxj13_xvz_cd2
 
       atmos_dyn_fvm_fluxj23_xvz_tracer => atmos_dyn_fvm_fluxj23_xvz_cd2
 
 
 
       if ( ihalo < 1 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'IHALO must be >= ', 1
          call prc_abort
       end if
       if ( jhalo < 1 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'JHALO must be >= ', 1
          call prc_abort
       end if
 
 
     case( "UD3" )
       log_info("ATMOS_DYN_FVM_flux_setup",*) 'the ud3 scheme is used for flux calculation of tracer'
 
       atmos_dyn_fvm_fluxz_xyz_tracer => atmos_dyn_fvm_fluxz_xyz_ud3
 
       atmos_dyn_fvm_fluxx_xyz_tracer => atmos_dyn_fvm_fluxx_xyz_ud3
 
       atmos_dyn_fvm_fluxy_xyz_tracer => atmos_dyn_fvm_fluxy_xyz_ud3
 
       atmos_dyn_fvm_fluxz_xyw_tracer => atmos_dyn_fvm_fluxz_xyw_ud3
 
       atmos_dyn_fvm_fluxx_xyw_tracer => atmos_dyn_fvm_fluxx_xyw_ud3
 
       atmos_dyn_fvm_fluxy_xyw_tracer => atmos_dyn_fvm_fluxy_xyw_ud3
 
       atmos_dyn_fvm_fluxj13_xyw_tracer => atmos_dyn_fvm_fluxj13_xyw_ud3
 
       atmos_dyn_fvm_fluxj23_xyw_tracer => atmos_dyn_fvm_fluxj23_xyw_ud3
 
       atmos_dyn_fvm_fluxz_uyz_tracer => atmos_dyn_fvm_fluxz_uyz_ud3
 
       atmos_dyn_fvm_fluxx_uyz_tracer => atmos_dyn_fvm_fluxx_uyz_ud3
 
       atmos_dyn_fvm_fluxy_uyz_tracer => atmos_dyn_fvm_fluxy_uyz_ud3
 
       atmos_dyn_fvm_fluxj13_uyz_tracer => atmos_dyn_fvm_fluxj13_uyz_ud3
 
       atmos_dyn_fvm_fluxj23_uyz_tracer => atmos_dyn_fvm_fluxj23_uyz_ud3
 
       atmos_dyn_fvm_fluxz_xvz_tracer => atmos_dyn_fvm_fluxz_xvz_ud3
 
       atmos_dyn_fvm_fluxx_xvz_tracer => atmos_dyn_fvm_fluxx_xvz_ud3
 
       atmos_dyn_fvm_fluxy_xvz_tracer => atmos_dyn_fvm_fluxy_xvz_ud3
 
       atmos_dyn_fvm_fluxj13_xvz_tracer => atmos_dyn_fvm_fluxj13_xvz_ud3
 
       atmos_dyn_fvm_fluxj23_xvz_tracer => atmos_dyn_fvm_fluxj23_xvz_ud3
 
 
 
       if ( ihalo < 2 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'IHALO must be >= ', 2
          call prc_abort
       end if
       if ( jhalo < 2 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'JHALO must be >= ', 2
          call prc_abort
       end if
 
 
     case( "UD3KOREN1993" )
       log_info("ATMOS_DYN_FVM_flux_setup",*) 'the ud3Koren1993 scheme is used for flux calculation of tracer'
 
       atmos_dyn_fvm_fluxz_xyz_tracer => atmos_dyn_fvm_fluxz_xyz_ud3koren1993
 
       atmos_dyn_fvm_fluxx_xyz_tracer => atmos_dyn_fvm_fluxx_xyz_ud3koren1993
 
       atmos_dyn_fvm_fluxy_xyz_tracer => atmos_dyn_fvm_fluxy_xyz_ud3koren1993
 
       atmos_dyn_fvm_fluxz_xyw_tracer => atmos_dyn_fvm_fluxz_xyw_ud3koren1993
 
       atmos_dyn_fvm_fluxx_xyw_tracer => atmos_dyn_fvm_fluxx_xyw_ud3koren1993
 
       atmos_dyn_fvm_fluxy_xyw_tracer => atmos_dyn_fvm_fluxy_xyw_ud3koren1993
 
       atmos_dyn_fvm_fluxj13_xyw_tracer => atmos_dyn_fvm_fluxj13_xyw_ud3koren1993
 
       atmos_dyn_fvm_fluxj23_xyw_tracer => atmos_dyn_fvm_fluxj23_xyw_ud3koren1993
 
       atmos_dyn_fvm_fluxz_uyz_tracer => atmos_dyn_fvm_fluxz_uyz_ud3koren1993
 
       atmos_dyn_fvm_fluxx_uyz_tracer => atmos_dyn_fvm_fluxx_uyz_ud3koren1993
 
       atmos_dyn_fvm_fluxy_uyz_tracer => atmos_dyn_fvm_fluxy_uyz_ud3koren1993
 
       atmos_dyn_fvm_fluxj13_uyz_tracer => atmos_dyn_fvm_fluxj13_uyz_ud3koren1993
 
       atmos_dyn_fvm_fluxj23_uyz_tracer => atmos_dyn_fvm_fluxj23_uyz_ud3koren1993
 
       atmos_dyn_fvm_fluxz_xvz_tracer => atmos_dyn_fvm_fluxz_xvz_ud3koren1993
 
       atmos_dyn_fvm_fluxx_xvz_tracer => atmos_dyn_fvm_fluxx_xvz_ud3koren1993
 
       atmos_dyn_fvm_fluxy_xvz_tracer => atmos_dyn_fvm_fluxy_xvz_ud3koren1993
 
       atmos_dyn_fvm_fluxj13_xvz_tracer => atmos_dyn_fvm_fluxj13_xvz_ud3koren1993
 
       atmos_dyn_fvm_fluxj23_xvz_tracer => atmos_dyn_fvm_fluxj23_xvz_ud3koren1993
 
 
 
       if ( ihalo < 2 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'IHALO must be >= ', 2
          call prc_abort
       end if
       if ( jhalo < 2 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'JHALO must be >= ', 2
          call prc_abort
       end if
 
 
     case( "CD4" )
       log_info("ATMOS_DYN_FVM_flux_setup",*) 'the cd4 scheme is used for flux calculation of tracer'
 
       atmos_dyn_fvm_fluxz_xyz_tracer => atmos_dyn_fvm_fluxz_xyz_cd4
 
       atmos_dyn_fvm_fluxx_xyz_tracer => atmos_dyn_fvm_fluxx_xyz_cd4
 
       atmos_dyn_fvm_fluxy_xyz_tracer => atmos_dyn_fvm_fluxy_xyz_cd4
 
       atmos_dyn_fvm_fluxz_xyw_tracer => atmos_dyn_fvm_fluxz_xyw_cd4
 
       atmos_dyn_fvm_fluxx_xyw_tracer => atmos_dyn_fvm_fluxx_xyw_cd4
 
       atmos_dyn_fvm_fluxy_xyw_tracer => atmos_dyn_fvm_fluxy_xyw_cd4
 
       atmos_dyn_fvm_fluxj13_xyw_tracer => atmos_dyn_fvm_fluxj13_xyw_cd4
 
       atmos_dyn_fvm_fluxj23_xyw_tracer => atmos_dyn_fvm_fluxj23_xyw_cd4
 
       atmos_dyn_fvm_fluxz_uyz_tracer => atmos_dyn_fvm_fluxz_uyz_cd4
 
       atmos_dyn_fvm_fluxx_uyz_tracer => atmos_dyn_fvm_fluxx_uyz_cd4
 
       atmos_dyn_fvm_fluxy_uyz_tracer => atmos_dyn_fvm_fluxy_uyz_cd4
 
       atmos_dyn_fvm_fluxj13_uyz_tracer => atmos_dyn_fvm_fluxj13_uyz_cd4
 
       atmos_dyn_fvm_fluxj23_uyz_tracer => atmos_dyn_fvm_fluxj23_uyz_cd4
 
       atmos_dyn_fvm_fluxz_xvz_tracer => atmos_dyn_fvm_fluxz_xvz_cd4
 
       atmos_dyn_fvm_fluxx_xvz_tracer => atmos_dyn_fvm_fluxx_xvz_cd4
 
       atmos_dyn_fvm_fluxy_xvz_tracer => atmos_dyn_fvm_fluxy_xvz_cd4
 
       atmos_dyn_fvm_fluxj13_xvz_tracer => atmos_dyn_fvm_fluxj13_xvz_cd4
 
       atmos_dyn_fvm_fluxj23_xvz_tracer => atmos_dyn_fvm_fluxj23_xvz_cd4
 
 
 
       if ( ihalo < 2 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'IHALO must be >= ', 2
          call prc_abort
       end if
       if ( jhalo < 2 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'JHALO must be >= ', 2
          call prc_abort
       end if
 
 
     case( "UD5" )
       log_info("ATMOS_DYN_FVM_flux_setup",*) 'the ud5 scheme is used for flux calculation of tracer'
 
       atmos_dyn_fvm_fluxz_xyz_tracer => atmos_dyn_fvm_fluxz_xyz_ud5
 
       atmos_dyn_fvm_fluxx_xyz_tracer => atmos_dyn_fvm_fluxx_xyz_ud5
 
       atmos_dyn_fvm_fluxy_xyz_tracer => atmos_dyn_fvm_fluxy_xyz_ud5
 
       atmos_dyn_fvm_fluxz_xyw_tracer => atmos_dyn_fvm_fluxz_xyw_ud5
 
       atmos_dyn_fvm_fluxx_xyw_tracer => atmos_dyn_fvm_fluxx_xyw_ud5
 
       atmos_dyn_fvm_fluxy_xyw_tracer => atmos_dyn_fvm_fluxy_xyw_ud5
 
       atmos_dyn_fvm_fluxj13_xyw_tracer => atmos_dyn_fvm_fluxj13_xyw_ud5
 
       atmos_dyn_fvm_fluxj23_xyw_tracer => atmos_dyn_fvm_fluxj23_xyw_ud5
 
       atmos_dyn_fvm_fluxz_uyz_tracer => atmos_dyn_fvm_fluxz_uyz_ud5
 
       atmos_dyn_fvm_fluxx_uyz_tracer => atmos_dyn_fvm_fluxx_uyz_ud5
 
       atmos_dyn_fvm_fluxy_uyz_tracer => atmos_dyn_fvm_fluxy_uyz_ud5
 
       atmos_dyn_fvm_fluxj13_uyz_tracer => atmos_dyn_fvm_fluxj13_uyz_ud5
 
       atmos_dyn_fvm_fluxj23_uyz_tracer => atmos_dyn_fvm_fluxj23_uyz_ud5
 
       atmos_dyn_fvm_fluxz_xvz_tracer => atmos_dyn_fvm_fluxz_xvz_ud5
 
       atmos_dyn_fvm_fluxx_xvz_tracer => atmos_dyn_fvm_fluxx_xvz_ud5
 
       atmos_dyn_fvm_fluxy_xvz_tracer => atmos_dyn_fvm_fluxy_xvz_ud5
 
       atmos_dyn_fvm_fluxj13_xvz_tracer => atmos_dyn_fvm_fluxj13_xvz_ud5
 
       atmos_dyn_fvm_fluxj23_xvz_tracer => atmos_dyn_fvm_fluxj23_xvz_ud5
 
 
 
       if ( ihalo < 3 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'IHALO must be >= ', 3
          call prc_abort
       end if
       if ( jhalo < 3 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'JHALO must be >= ', 3
          call prc_abort
       end if
 
 
     case( "CD6" )
       log_info("ATMOS_DYN_FVM_flux_setup",*) 'the cd6 scheme is used for flux calculation of tracer'
 
       atmos_dyn_fvm_fluxz_xyz_tracer => atmos_dyn_fvm_fluxz_xyz_cd6
 
       atmos_dyn_fvm_fluxx_xyz_tracer => atmos_dyn_fvm_fluxx_xyz_cd6
 
       atmos_dyn_fvm_fluxy_xyz_tracer => atmos_dyn_fvm_fluxy_xyz_cd6
 
       atmos_dyn_fvm_fluxz_xyw_tracer => atmos_dyn_fvm_fluxz_xyw_cd6
 
       atmos_dyn_fvm_fluxx_xyw_tracer => atmos_dyn_fvm_fluxx_xyw_cd6
 
       atmos_dyn_fvm_fluxy_xyw_tracer => atmos_dyn_fvm_fluxy_xyw_cd6
 
       atmos_dyn_fvm_fluxj13_xyw_tracer => atmos_dyn_fvm_fluxj13_xyw_cd6
 
       atmos_dyn_fvm_fluxj23_xyw_tracer => atmos_dyn_fvm_fluxj23_xyw_cd6
 
       atmos_dyn_fvm_fluxz_uyz_tracer => atmos_dyn_fvm_fluxz_uyz_cd6
 
       atmos_dyn_fvm_fluxx_uyz_tracer => atmos_dyn_fvm_fluxx_uyz_cd6
 
       atmos_dyn_fvm_fluxy_uyz_tracer => atmos_dyn_fvm_fluxy_uyz_cd6
 
       atmos_dyn_fvm_fluxj13_uyz_tracer => atmos_dyn_fvm_fluxj13_uyz_cd6
 
       atmos_dyn_fvm_fluxj23_uyz_tracer => atmos_dyn_fvm_fluxj23_uyz_cd6
 
       atmos_dyn_fvm_fluxz_xvz_tracer => atmos_dyn_fvm_fluxz_xvz_cd6
 
       atmos_dyn_fvm_fluxx_xvz_tracer => atmos_dyn_fvm_fluxx_xvz_cd6
 
       atmos_dyn_fvm_fluxy_xvz_tracer => atmos_dyn_fvm_fluxy_xvz_cd6
 
       atmos_dyn_fvm_fluxj13_xvz_tracer => atmos_dyn_fvm_fluxj13_xvz_cd6
 
       atmos_dyn_fvm_fluxj23_xvz_tracer => atmos_dyn_fvm_fluxj23_xvz_cd6
 
 
 
       if ( ihalo < 3 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'IHALO must be >= ', 3
          call prc_abort
       end if
       if ( jhalo < 3 ) then
          log_error("ATMOS_DYN_FVM_flux_setup",*) 'JHALO must be >= ', 3
          call prc_abort
       end if
 
 
     case default
        log_error("ATMOS_DYN_FVM_flux_setup",*) 'scheme is invalid: ', scheme_tracer
        call prc_abort
     end select
 