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

History

2016-04-18 (S.Nishizawa) [new]

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 280 of file scale_atmos_dyn_fvm_flux.F90.

Referenced by scale_atmos_dyn::atmos_dyn_setup().

     use scale_process, only: &
          prc_mpistop
 
    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 ( "CD2" )
       if( io_l ) write(io_fid_log,*) '*** 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 < 2 ) then
          write(*,*) 'xxx IHALO must be >= ', 2
          call prc_mpistop
       end if
       if ( jhalo < 2 ) then
          write(*,*) 'xxx JHALO must be >= ', 2
          call prc_mpistop
       end if
 
 
     case ( "UD3" )
       if( io_l ) write(io_fid_log,*) '*** 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
          write(*,*) 'xxx IHALO must be >= ', 2
          call prc_mpistop
       end if
       if ( jhalo < 2 ) then
          write(*,*) 'xxx JHALO must be >= ', 2
          call prc_mpistop
       end if
 
 
     case ( "UD3KOREN1993" )
       if( io_l ) write(io_fid_log,*) '*** 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
          write(*,*) 'xxx IHALO must be >= ', 2
          call prc_mpistop
       end if
       if ( jhalo < 2 ) then
          write(*,*) 'xxx JHALO must be >= ', 2
          call prc_mpistop
       end if
 
 
     case ( "CD4" )
       if( io_l ) write(io_fid_log,*) '*** 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
          write(*,*) 'xxx IHALO must be >= ', 2
          call prc_mpistop
       end if
       if ( jhalo < 2 ) then
          write(*,*) 'xxx JHALO must be >= ', 2
          call prc_mpistop
       end if
 
 
     case ( "UD5" )
       if( io_l ) write(io_fid_log,*) '*** 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
          write(*,*) 'xxx IHALO must be >= ', 3
          call prc_mpistop
       end if
       if ( jhalo < 3 ) then
          write(*,*) 'xxx JHALO must be >= ', 3
          call prc_mpistop
       end if
 
 
     case ( "CD6" )
       if( io_l ) write(io_fid_log,*) '*** 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
          write(*,*) 'xxx IHALO must be >= ', 3
          call prc_mpistop
       end if
       if ( jhalo < 3 ) then
          write(*,*) 'xxx JHALO must be >= ', 3
          call prc_mpistop
       end if
 
 
     case default
        write(*,*) 'xxx scheme is invalid: ', scheme
        call prc_mpistop
     end select
 
     select case ( scheme_tracer )
 
     case ( "CD2" )
       if( io_l ) write(io_fid_log,*) '*** 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 < 2 ) then
          write(*,*) 'xxx IHALO must be >= ', 2
          call prc_mpistop
       end if
       if ( jhalo < 2 ) then
          write(*,*) 'xxx JHALO must be >= ', 2
          call prc_mpistop
       end if
 
 
     case ( "UD3" )
       if( io_l ) write(io_fid_log,*) '*** 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
          write(*,*) 'xxx IHALO must be >= ', 2
          call prc_mpistop
       end if
       if ( jhalo < 2 ) then
          write(*,*) 'xxx JHALO must be >= ', 2
          call prc_mpistop
       end if
 
 
     case ( "UD3KOREN1993" )
       if( io_l ) write(io_fid_log,*) '*** 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
          write(*,*) 'xxx IHALO must be >= ', 2
          call prc_mpistop
       end if
       if ( jhalo < 2 ) then
          write(*,*) 'xxx JHALO must be >= ', 2
          call prc_mpistop
       end if
 
 
     case ( "CD4" )
       if( io_l ) write(io_fid_log,*) '*** 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
          write(*,*) 'xxx IHALO must be >= ', 2
          call prc_mpistop
       end if
       if ( jhalo < 2 ) then
          write(*,*) 'xxx JHALO must be >= ', 2
          call prc_mpistop
       end if
 
 
     case ( "UD5" )
       if( io_l ) write(io_fid_log,*) '*** 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
          write(*,*) 'xxx IHALO must be >= ', 3
          call prc_mpistop
       end if
       if ( jhalo < 3 ) then
          write(*,*) 'xxx JHALO must be >= ', 3
          call prc_mpistop
       end if
 
 
     case ( "CD6" )
       if( io_l ) write(io_fid_log,*) '*** 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
          write(*,*) 'xxx IHALO must be >= ', 3
          call prc_mpistop
       end if
       if ( jhalo < 3 ) then
          write(*,*) 'xxx JHALO must be >= ', 3
          call prc_mpistop
       end if
 
 
     case default
        write(*,*) 'xxx scheme is invalid: ', scheme_tracer
        call prc_mpistop
     end select
 