mod_atmos_dyn_driver Module Reference

module Atmosphere / Dynamics More...

Functions/Subroutines
subroutine, public	atmos_dyn_driver_setup
	Setup. More...
subroutine, public	atmos_dyn_driver (do_flag)
	Dynamical Process (Wrapper) More...

Variables
character(len=h_short), public	atmos_dyn_tstep_large_type = 'FVM-HEVE'
character(len=h_short), public	atmos_dyn_tstep_tracer_type = 'FVM-HEVE'
character(len=h_short), public	atmos_dyn_tinteg_large_type = 'EULER'
character(len=h_short), public	atmos_dyn_tinteg_short_type = 'RK4'
character(len=h_short), public	atmos_dyn_tinteg_tracer_type = 'RK3WS2002'
character(len=h_short), public	atmos_dyn_fvm_flux_type = 'CD4'
character(len=h_short), public	atmos_dyn_fvm_flux_tracer_type = 'UD3KOREN1993'
character(len=h_short), public	atmos_dyn_coriolis_type = 'PLANE'
	If ATMOS_DYN_coriolis_type=='PLANE', then f = ATMOS_DYN_coriolis_f0 + ATMOS_DYN_coriolis_beta * ( CY - ATMOS_DYN_coriolis_y0 ) If ATMOS_DYN_coriolis_type=='SPHERE', then f = 2 * CONST_OHM * sin( lat ) More...
real(rp), public	atmos_dyn_coriolis_f0 = 0.0_RP
real(rp), public	atmos_dyn_coriolis_beta = 0.0_RP
real(rp), public	atmos_dyn_coriolis_y0

Detailed Description

module Atmosphere / Dynamics

Description

Dynamical step driver

Author

Team SCALE

Note

The coding to call DYN2 routines is a temporary measure. After improving layering of directories and generalizing API for each modules in dynamical core, we should remove the temporary codes.

NAMELIST

• PARAM_ATMOS_DYN

  name	type	default value	comment
  ATMOS_DYN_TINTEG_SHORT_TYPE	character(len=H_SHORT)	'RK4'
  ATMOS_DYN_TINTEG_TRACER_TYPE	character(len=H_SHORT)	'RK3WS2002'
  ATMOS_DYN_TINTEG_LARGE_TYPE	character(len=H_SHORT)	'EULER'	Type of time integration
  ATMOS_DYN_FVM_FLUX_TYPE	character(len=H_SHORT)	'CD4'	Type of advective flux scheme (FVM)
  ATMOS_DYN_FVM_FLUX_TRACER_TYPE	character(len=H_SHORT)	'UD3KOREN1993'
  ATMOS_DYN_NUMERICAL_DIFF_ORDER	integer	1
  ATMOS_DYN_NUMERICAL_DIFF_COEF	real(RP)	1.0E-4_RP	nondimensional numerical diffusion
  ATMOS_DYN_NUMERICAL_DIFF_COEF_TRACER	real(RP)	0.0_RP	nondimensional numerical diffusion for tracer
  ATMOS_DYN_NUMERICAL_DIFF_SFC_FACT	real(RP)	1.0_RP
  ATMOS_DYN_NUMERICAL_DIFF_USE_REFSTATE	logical	.true.
  ATMOS_DYN_WDAMP_TAU	real(RP)	-1.0_RP	maximum tau for Rayleigh damping of w [s]
  ATMOS_DYN_WDAMP_HEIGHT	real(RP)	-1.0_RP	height to start apply Rayleigh damping [m]
  ATMOS_DYN_WDAMP_LAYER	integer	-1	layer number to start apply Rayleigh damping [num]
  ATMOS_DYN_CORIOLIS_TYPE	character(len=H_SHORT)	'PLANE' ! type of coriolis force: 'PLANE', 'SPHERE'
  ATMOS_DYN_CORIOLIS_F0	real(RP)	0.0_RP
  ATMOS_DYN_CORIOLIS_BETA	real(RP)	0.0_RP
  ATMOS_DYN_CORIOLIS_Y0	real(RP)		default is domain center
  ATMOS_DYN_DIVDMP_COEF	real(RP)	0.0_RP	Divergence dumping coef
  ATMOS_DYN_FLAG_TRACER_SPLIT_TEND	logical	.false.
  ATMOS_DYN_FLAG_FCT_MOMENTUM	logical	.false.
  ATMOS_DYN_FLAG_FCT_T	logical	.false.
  ATMOS_DYN_FLAG_FCT_TRACER	logical	.false.
  ATMOS_DYN_FLAG_FCT_ALONG_STREAM	logical	.true.

  
  

History Output

No history output

Function/Subroutine Documentation

atmos_dyn_driver_setup()

subroutine, public mod_atmos_dyn_driver::atmos_dyn_driver_setup

(

)

Setup.

Definition at line 102 of file mod_atmos_dyn_driver.F90.

References atmos_dyn_coriolis_beta, atmos_dyn_coriolis_f0, atmos_dyn_coriolis_type, atmos_dyn_coriolis_y0, atmos_dyn_fvm_flux_tracer_type, atmos_dyn_fvm_flux_type, scale_atmos_dyn::atmos_dyn_setup(), atmos_dyn_tinteg_large_type, atmos_dyn_tinteg_short_type, atmos_dyn_tinteg_tracer_type, atmos_dyn_tstep_large_type, atmos_dyn_tstep_tracer_type, mod_atmos_admin::atmos_dyn_type, scale_atmos_grid_cartesc::atmos_grid_cartesc_cdx, scale_atmos_grid_cartesc::atmos_grid_cartesc_cdy, scale_atmos_grid_cartesc::atmos_grid_cartesc_cdz, scale_atmos_grid_cartesc::atmos_grid_cartesc_cy, scale_atmos_grid_cartesc::atmos_grid_cartesc_domain_center_y, scale_atmos_grid_cartesc::atmos_grid_cartesc_fdx, scale_atmos_grid_cartesc::atmos_grid_cartesc_fdy, scale_atmos_grid_cartesc::atmos_grid_cartesc_fdz, scale_atmos_grid_cartesc::atmos_grid_cartesc_fz, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_lat, mod_atmos_admin::atmos_sw_dyn, mod_atmos_vars::dens, scale_io::io_fid_conf, scale_atmos_grid_cartesc_index::kmax, scale_atmos_grid_cartesc_index::ks, mod_atmos_vars::momx, mod_atmos_vars::momy, mod_atmos_vars::momz, scale_prc::prc_abort(), mod_atmos_dyn_vars::prog, mod_atmos_vars::qtrc, mod_atmos_vars::rhot, and scale_time::time_dtsec_atmos_dyn.

Referenced by mod_atmos_driver::atmos_driver_setup().

    use scale_prc, only: &
       prc_abort
    use scale_atmos_grid_cartesc, only: &
       domain_center_y => atmos_grid_cartesc_domain_center_y, &
       cy  => atmos_grid_cartesc_cy,  &
       fz  => atmos_grid_cartesc_fz,  &
       cdz => atmos_grid_cartesc_cdz, &
       cdx => atmos_grid_cartesc_cdx, &
       cdy => atmos_grid_cartesc_cdy, &
       fdz => atmos_grid_cartesc_fdz, &
       fdx => atmos_grid_cartesc_fdx, &
       fdy => atmos_grid_cartesc_fdy
    use scale_atmos_grid_cartesc_real, only: &
       real_lat => atmos_grid_cartesc_real_lat
    use scale_time, only: &
       time_dtsec_atmos_dyn
    use mod_atmos_admin, only: &
       atmos_sw_dyn,   &
       atmos_dyn_type
    use mod_atmos_vars, only: &
       dens, &
       momz, &
       momx, &
       momy, &
       rhot, &
       qtrc
    use mod_atmos_dyn_vars, only: &
       prog
    use scale_atmos_dyn, only: &
       atmos_dyn_setup
    implicit none

    namelist / param_atmos_dyn / &
       atmos_dyn_tinteg_short_type,           &
       atmos_dyn_tinteg_tracer_type,          &
       atmos_dyn_tinteg_large_type,           &
       atmos_dyn_fvm_flux_type,               &
       atmos_dyn_fvm_flux_tracer_type,        &
       atmos_dyn_numerical_diff_order,        &
       atmos_dyn_numerical_diff_coef,         &
       atmos_dyn_numerical_diff_coef_tracer,  &
       atmos_dyn_numerical_diff_sfc_fact,     &
       atmos_dyn_numerical_diff_use_refstate, &
       atmos_dyn_wdamp_tau,                   &
       atmos_dyn_wdamp_height,                &
       atmos_dyn_wdamp_layer,                 &
       atmos_dyn_coriolis_type,               &
       atmos_dyn_coriolis_f0,                 &
       atmos_dyn_coriolis_beta,               &
       atmos_dyn_coriolis_y0,                 &
       atmos_dyn_divdmp_coef,                 &
       atmos_dyn_flag_tracer_split_tend,      &
       atmos_dyn_flag_fct_momentum,           &
       atmos_dyn_flag_fct_t,                  &
       atmos_dyn_flag_fct_tracer,             &
       atmos_dyn_flag_fct_along_stream

    real(RP) :: dt
    integer  :: ierr
    !---------------------------------------------------------------------------

    log_newline
    log_info("ATMOS_DYN_driver_setup",*) 'Setup'

    if ( atmos_sw_dyn ) then

       atmos_dyn_coriolis_y0 = domain_center_y
       !--- read namelist
       rewind(io_fid_conf)
       read(io_fid_conf,nml=param_atmos_dyn,iostat=ierr)
       if( ierr < 0 ) then !--- missing
          log_info("ATMOS_DYN_driver_setup",*) 'Not found namelist. Default used.'
       elseif( ierr > 0 ) then !--- fatal error
          log_error("ATMOS_DYN_driver_setup",*) 'Not appropriate names in namelist PARAM_ATMOS_DYN. Check!'
          call prc_abort
       endif
       log_nml(param_atmos_dyn)

       dt = real(time_dtsec_atmos_dyn,kind=rp)

       if ( atmos_dyn_wdamp_layer > kmax ) then
          log_error("ATMOS_DYN_driver_setup",*) 'ATMOS_DYN_wdamp_layer should be less than total number of vertical layer(KA). Check!'
          call prc_abort
       elseif( atmos_dyn_wdamp_layer > 0 ) then
          atmos_dyn_wdamp_height = fz(atmos_dyn_wdamp_layer+ks-1)
       endif

       if ( atmos_dyn_wdamp_tau < 0.0_rp ) then
          atmos_dyn_wdamp_tau = dt * 10.0_rp
       elseif ( atmos_dyn_wdamp_tau < dt ) then
          log_error("ATMOS_DYN_driver_setup",*) 'ATMOS_DYN_wdamp_tau should be larger than TIME_DT_ATMOS_DYN. Check!'
          call prc_abort
       end if

       if ( atmos_sw_dyn ) then
          log_newline
          log_info("ATMOS_DYN_driver_setup",*) 'Scheme for Large time step  : ', trim(atmos_dyn_tinteg_large_type)
          log_info("ATMOS_DYN_driver_setup",*) 'Scheme for Short time step  : ', trim(atmos_dyn_tinteg_short_type)
          log_info("ATMOS_DYN_driver_setup",*) 'Scheme for Tracer advection : ', trim(atmos_dyn_tinteg_tracer_type)
       endif

       call atmos_dyn_setup( atmos_dyn_tinteg_short_type,        & ! [IN]
                             atmos_dyn_tinteg_tracer_type,       & ! [IN]
                             atmos_dyn_tinteg_large_type,        & ! [IN]
                             atmos_dyn_tstep_tracer_type,        & ! [IN]
                             atmos_dyn_tstep_large_type,         & ! [IN]
                             atmos_dyn_fvm_flux_type,            & ! [IN]
                             atmos_dyn_fvm_flux_tracer_type,     & ! [IN]
                             dens, momz, momx, momy, rhot, qtrc, & ! [IN]
                             prog,                               & ! [IN]
                             cdz, cdx, cdy, fdz, fdx, fdy,       & ! [IN]
                             atmos_dyn_wdamp_tau,                & ! [IN]
                             atmos_dyn_wdamp_height,             & ! [IN]
                             fz,                            & ! [IN]
                             atmos_dyn_coriolis_type,            & ! [IN]
                             atmos_dyn_coriolis_f0,              & ! [IN]
                             atmos_dyn_coriolis_beta,            & ! [IN]
                             atmos_dyn_coriolis_y0,              & ! [IN]
                             cy,                            & ! [IN]
                             real_lat,                           & ! [IN]
                             none = atmos_dyn_type=='NONE'       ) ! [IN]
    endif

    return

Here is the call graph for this function:

Here is the caller graph for this function:

atmos_dyn_driver()

subroutine, public mod_atmos_dyn_driver::atmos_dyn_driver

(

logical, intent(in)

do_flag

)

Dynamical Process (Wrapper)

Definition at line 231 of file mod_atmos_dyn_driver.F90.

References mod_atmos_bnd_driver::atmos_boundary_alpha_dens, mod_atmos_bnd_driver::atmos_boundary_alpha_pott, mod_atmos_bnd_driver::atmos_boundary_alpha_qtrc, mod_atmos_bnd_driver::atmos_boundary_alpha_velx, mod_atmos_bnd_driver::atmos_boundary_alpha_vely, mod_atmos_bnd_driver::atmos_boundary_alpha_velz, mod_atmos_bnd_driver::atmos_boundary_dens, mod_atmos_bnd_driver::atmos_boundary_pott, mod_atmos_bnd_driver::atmos_boundary_qtrc, mod_atmos_bnd_driver::atmos_boundary_smoother_fact, mod_atmos_bnd_driver::atmos_boundary_velx, mod_atmos_bnd_driver::atmos_boundary_vely, mod_atmos_bnd_driver::atmos_boundary_velz, scale_atmos_dyn::atmos_dyn(), scale_atmos_grid_cartesc::atmos_grid_cartesc_cdx, scale_atmos_grid_cartesc::atmos_grid_cartesc_cdy, scale_atmos_grid_cartesc::atmos_grid_cartesc_cdz, scale_atmos_grid_cartesc::atmos_grid_cartesc_fdx, scale_atmos_grid_cartesc::atmos_grid_cartesc_fdy, scale_atmos_grid_cartesc::atmos_grid_cartesc_fdz, scale_atmos_grid_cartesc_metric::atmos_grid_cartesc_metric_gsqrt, scale_atmos_grid_cartesc_metric::atmos_grid_cartesc_metric_j13g, scale_atmos_grid_cartesc_metric::atmos_grid_cartesc_metric_j23g, scale_atmos_grid_cartesc_metric::atmos_grid_cartesc_metric_j33g, scale_atmos_grid_cartesc_metric::atmos_grid_cartesc_metric_mapf, scale_atmos_grid_cartesc::atmos_grid_cartesc_rcdx, scale_atmos_grid_cartesc::atmos_grid_cartesc_rcdy, scale_atmos_grid_cartesc::atmos_grid_cartesc_rcdz, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_phi, scale_atmos_grid_cartesc::atmos_grid_cartesc_rfdx, scale_atmos_grid_cartesc::atmos_grid_cartesc_rfdy, scale_atmos_grid_cartesc::atmos_grid_cartesc_rfdz, scale_atmos_refstate::atmos_refstate_dens, scale_atmos_refstate::atmos_refstate_pott, scale_atmos_refstate::atmos_refstate_pres, scale_atmos_refstate::atmos_refstate_qv, mod_atmos_admin::atmos_use_average, mod_atmos_vars::atmos_vars_total(), mod_atmos_bnd_driver::bnd_qa, mod_atmos_vars::cptot, mod_atmos_vars::dens, mod_atmos_vars::dens_av, mod_atmos_vars::dens_tp, mod_atmos_vars::exner, scale_atmos_hydrometeor::i_qv, scale_atmos_grid_cartesc_index::ie, scale_atmos_grid_cartesc_index::ieb, scale_atmos_grid_cartesc_index::is, scale_atmos_grid_cartesc_index::isb, scale_atmos_grid_cartesc_index::je, scale_atmos_grid_cartesc_index::jeb, scale_atmos_grid_cartesc_index::js, scale_atmos_grid_cartesc_index::jsb, scale_atmos_grid_cartesc_index::ka, scale_atmos_grid_cartesc_index::ke, scale_atmos_grid_cartesc_index::ks, mod_atmos_vars::momx, mod_atmos_vars::momx_av, mod_atmos_vars::momx_tp, mod_atmos_vars::momy, mod_atmos_vars::momy_av, mod_atmos_vars::momy_tp, mod_atmos_vars::momz, mod_atmos_vars::momz_av, mod_atmos_vars::momz_tp, mod_atmos_dyn_vars::prog, scale_tracer::qa, mod_atmos_vars::qtrc, mod_atmos_vars::qtrc_av, mod_atmos_vars::rhoh_p, mod_atmos_vars::rhoq_tp, mod_atmos_vars::rhot, mod_atmos_vars::rhot_av, mod_atmos_vars::rhot_tp, mod_atmos_vars::rhou_tp, mod_atmos_vars::rhov_tp, scale_time::time_dtsec, scale_time::time_dtsec_atmos_dyn, scale_tracer::tracer_cp, scale_tracer::tracer_cv, scale_tracer::tracer_mass, and scale_tracer::tracer_r.

Referenced by mod_atmos_driver::atmos_driver_update().

    use scale_atmos_grid_cartesc, only: &
       cdz  => atmos_grid_cartesc_cdz,  &
       cdx  => atmos_grid_cartesc_cdx,  &
       cdy  => atmos_grid_cartesc_cdy,  &
       fdz  => atmos_grid_cartesc_fdz,  &
       fdx  => atmos_grid_cartesc_fdx,  &
       fdy  => atmos_grid_cartesc_fdy,  &
       rcdz => atmos_grid_cartesc_rcdz, &
       rcdx => atmos_grid_cartesc_rcdx, &
       rcdy => atmos_grid_cartesc_rcdy, &
       rfdz => atmos_grid_cartesc_rfdz, &
       rfdx => atmos_grid_cartesc_rfdx, &
       rfdy => atmos_grid_cartesc_rfdy
    use scale_atmos_grid_cartesc_real, only: &
       real_phi => atmos_grid_cartesc_real_phi
    use scale_atmos_grid_cartesc_metric, only: &
       gsqrt => atmos_grid_cartesc_metric_gsqrt, &
       j13g  => atmos_grid_cartesc_metric_j13g,  &
       j23g  => atmos_grid_cartesc_metric_j23g,  &
       j33g  => atmos_grid_cartesc_metric_j33g,  &
       mapf  => atmos_grid_cartesc_metric_mapf
    use scale_time, only: &
       time_dtsec,           &
       time_dtsec_atmos_dyn
    use mod_atmos_admin, only: &
       atmos_use_average
    use scale_atmos_hydrometeor, only: &
       i_qv
    use mod_atmos_vars, only: &
       atmos_vars_total,  &
       dens,    &
       momz,    &
       momx,    &
       momy,    &
       rhot,    &
       qtrc,    &
       dens_av, &
       momz_av, &
       momx_av, &
       momy_av, &
       rhot_av, &
       qtrc_av, &
       dens_tp, &
       rhou_tp, &
       rhov_tp, &
       rhot_tp, &
       rhoq_tp, &
       rhoh_p,  &
       momz_tp, &
       momx_tp, &
       momy_tp, &
       cptot,   &
       exner
    use mod_atmos_dyn_vars, only: &
       prog
    use scale_atmos_refstate, only: &
       atmos_refstate_dens, &
       atmos_refstate_pott, &
       atmos_refstate_qv,   &
       atmos_refstate_pres
    use mod_atmos_bnd_driver, only: &
       atmos_boundary_dens,       &
       atmos_boundary_velz,       &
       atmos_boundary_velx,       &
       atmos_boundary_vely,       &
       atmos_boundary_pott,       &
       atmos_boundary_qtrc,       &
       atmos_boundary_alpha_dens, &
       atmos_boundary_alpha_velz, &
       atmos_boundary_alpha_velx, &
       atmos_boundary_alpha_vely, &
       atmos_boundary_alpha_pott, &
       atmos_boundary_alpha_qtrc, &
       bnd_qa, &
       atmos_boundary_smoother_fact
    use scale_atmos_dyn, only: &
       atmos_dyn
    use scale_comm_cartesc, only: &
       comm_vars8, &
       comm_wait
    implicit none

    logical, intent(in) :: do_flag

    integer :: k, i, j, iq
    !---------------------------------------------------------------------------

#if defined DEBUG || defined QUICKDEBUG
    rhot_tp(   1:ks-1,:,:) = 0.0_rp
    rhot_tp(ke+1:ka,  :,:) = 0.0_rp
    momx_tp(   1:ks-1,:,:) = 0.0_rp
    momx_tp(ke+1:ka,  :,:) = 0.0_rp
    momy_tp(   1:ks-1,:,:) = 0.0_rp
    momy_tp(ke+1:ka,  :,:) = 0.0_rp
#endif

    if ( do_flag ) then

       call comm_vars8( rhou_tp, 1 )
       call comm_vars8( rhov_tp, 2 )
       call comm_vars8( momz_tp, 3 )
       do iq = 1, qa
          call comm_vars8( rhoq_tp(:,:,:,iq), 4+iq)
       end do

       !$omp parallel do default(none) OMP_SCHEDULE_ collapse(2) &
       !$omp private(k,i,j) &
       !$omp shared (KA,KS,KE,ISB,IEB,JSB,JEB, &
       !$omp         RHOT_tp,RHOH_p,CPtot,EXNER)
       do j = jsb, jeb
       do i = isb, ieb
       do k = ks, ke
          rhot_tp(k,i,j) = rhot_tp(k,i,j) &
                         + rhoh_p(k,i,j) / ( cptot(k,i,j) * exner(k,i,j) )
       end do
       end do
       end do
       call comm_vars8( rhot_tp, 4 )

       call comm_wait ( rhou_tp, 1 )
       !$omp parallel do default(none) OMP_SCHEDULE_ collapse(2) &
       !$omp private(k,i,j) &
       !$omp shared (KA,KS,KE,IS,IE,JS,JE, &
       !$omp         MOMX_tp,RHOU_tp)
       do j = js, je
       do i = is, ie
       do k = ks, ke
          momx_tp(k,i,j) = momx_tp(k,i,j) &
                         + 0.5_rp * ( rhou_tp(k,i,j) + rhou_tp(k,i+1,j) )
       end do
       end do
       end do
       call comm_vars8( momx_tp, 1 )

       call comm_wait ( rhov_tp, 2 )
       !$omp parallel do default(none) OMP_SCHEDULE_ collapse(2) &
       !$omp private(k,i,j) &
       !$omp shared (KA,KS,KE,IS,IE,JS,JE, &
       !$omp         MOMY_tp,RHOV_tp)
       do j = js, je
       do i = is, ie
       do k = ks, ke
          momy_tp(k,i,j) = momy_tp(k,i,j) &
                         + 0.5_rp * ( rhov_tp(k,i,j) + rhov_tp(k,i,j+1) )
       end do
       end do
       end do
       call comm_vars8( momy_tp, 2 )

       call comm_wait ( momz_tp, 3 )
       call comm_wait ( rhot_tp, 4, .false. )
       do iq = 1, qa
          call comm_wait ( rhoq_tp(:,:,:,iq), 4+iq, .false. )
       end do
       call comm_wait ( momx_tp, 1 )
       call comm_wait ( momy_tp, 2 )


       call atmos_dyn( dens, momz, momx, momy, rhot, qtrc,                   & ! [INOUT]
                       prog,                                                 & ! [IN]
                       dens_av, momz_av, momx_av, momy_av, rhot_av, qtrc_av, & ! [INOUT]
                       dens_tp, momz_tp, momx_tp, momy_tp, rhot_tp, rhoq_tp, & ! [IN]
                       cdz,  cdx,  cdy,  fdz,  fdx,  fdy,                    & ! [IN]
                       rcdz, rcdx, rcdy, rfdz, rfdx, rfdy,                   & ! [IN]
                       real_phi,                                             & ! [IN]
                       gsqrt, j13g, j23g, j33g, mapf,                        & ! [IN]
                       tracer_r, tracer_cv, tracer_cp, tracer_mass,          & ! [IN]
                       atmos_refstate_dens,                                  & ! [IN]
                       atmos_refstate_pott,                                  & ! [IN]
                       atmos_refstate_qv,                                    & ! [IN]
                       atmos_refstate_pres,                                  & ! [IN]
                       atmos_dyn_numerical_diff_coef,                        & ! [IN]
                       atmos_dyn_numerical_diff_coef_tracer,                 & ! [IN]
                       atmos_dyn_numerical_diff_order,                       & ! [IN]
                       atmos_dyn_numerical_diff_sfc_fact,                    & ! [IN]
                       atmos_dyn_numerical_diff_use_refstate,                & ! [IN]
                       bnd_qa, atmos_boundary_smoother_fact,                 & ! [IN]
                       atmos_boundary_dens,                                  & ! [IN]
                       atmos_boundary_velz,                                  & ! [IN]
                       atmos_boundary_velx,                                  & ! [IN]
                       atmos_boundary_vely,                                  & ! [IN]
                       atmos_boundary_pott,                                  & ! [IN]
                       atmos_boundary_qtrc,                                  & ! [IN]
                       atmos_boundary_alpha_dens,                            & ! [IN]
                       atmos_boundary_alpha_velz,                            & ! [IN]
                       atmos_boundary_alpha_velx,                            & ! [IN]
                       atmos_boundary_alpha_vely,                            & ! [IN]
                       atmos_boundary_alpha_pott,                            & ! [IN]
                       atmos_boundary_alpha_qtrc,                            & ! [IN]
                       atmos_dyn_divdmp_coef,                                & ! [IN]
                       atmos_dyn_flag_tracer_split_tend,                     & ! [IN]
                       atmos_dyn_flag_fct_momentum,                          & ! [IN]
                       atmos_dyn_flag_fct_t,                                 & ! [IN]
                       atmos_dyn_flag_fct_tracer,                            & ! [IN]
                       atmos_dyn_flag_fct_along_stream,                      & ! [IN]
                       atmos_use_average,                                    & ! [IN]
                       i_qv,                                                 & ! [IN]
                       time_dtsec,                                           & ! [IN]
                       time_dtsec_atmos_dyn                                  ) ! [IN]

       call atmos_vars_total
    endif

    return

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

atmos_dyn_tstep_large_type

character(len=h_short), public mod_atmos_dyn_driver::atmos_dyn_tstep_large_type = 'FVM-HEVE'

Definition at line 40 of file mod_atmos_dyn_driver.F90.

Referenced by atmos_dyn_driver_setup().

  character(len=H_SHORT), public :: atmos_dyn_tstep_large_type     = 'FVM-HEVE'

atmos_dyn_tstep_tracer_type

character(len=h_short), public mod_atmos_dyn_driver::atmos_dyn_tstep_tracer_type = 'FVM-HEVE'

Definition at line 41 of file mod_atmos_dyn_driver.F90.

Referenced by atmos_dyn_driver_setup().

  character(len=H_SHORT), public :: atmos_dyn_tstep_tracer_type    = 'FVM-HEVE'

atmos_dyn_tinteg_large_type

character(len=h_short), public mod_atmos_dyn_driver::atmos_dyn_tinteg_large_type = 'EULER'

Definition at line 43 of file mod_atmos_dyn_driver.F90.

Referenced by atmos_dyn_driver_setup().

  character(len=H_SHORT), public :: atmos_dyn_tinteg_large_type    = 'EULER'        ! Type of time integration

atmos_dyn_tinteg_short_type

character(len=h_short), public mod_atmos_dyn_driver::atmos_dyn_tinteg_short_type = 'RK4'

Definition at line 45 of file mod_atmos_dyn_driver.F90.

Referenced by atmos_dyn_driver_setup().

  character(len=H_SHORT), public :: atmos_dyn_tinteg_short_type    = 'RK4'

atmos_dyn_tinteg_tracer_type

character(len=h_short), public mod_atmos_dyn_driver::atmos_dyn_tinteg_tracer_type = 'RK3WS2002'

Definition at line 48 of file mod_atmos_dyn_driver.F90.

Referenced by atmos_dyn_driver_setup().

  character(len=H_SHORT), public :: atmos_dyn_tinteg_tracer_type   = 'RK3WS2002'

atmos_dyn_fvm_flux_type

character(len=h_short), public mod_atmos_dyn_driver::atmos_dyn_fvm_flux_type = 'CD4'

Definition at line 51 of file mod_atmos_dyn_driver.F90.

Referenced by atmos_dyn_driver_setup().

  character(len=H_SHORT), public :: atmos_dyn_fvm_flux_type        = 'CD4'          ! Type of advective flux scheme (FVM)

atmos_dyn_fvm_flux_tracer_type

character(len=h_short), public mod_atmos_dyn_driver::atmos_dyn_fvm_flux_tracer_type = 'UD3KOREN1993'

Definition at line 52 of file mod_atmos_dyn_driver.F90.

Referenced by atmos_dyn_driver_setup().

  character(len=H_SHORT), public :: atmos_dyn_fvm_flux_tracer_type = 'UD3KOREN1993'

atmos_dyn_coriolis_type

character(len=h_short), public mod_atmos_dyn_driver::atmos_dyn_coriolis_type = 'PLANE'

If ATMOS_DYN_coriolis_type=='PLANE', then f = ATMOS_DYN_coriolis_f0 + ATMOS_DYN_coriolis_beta * ( CY - ATMOS_DYN_coriolis_y0 ) If ATMOS_DYN_coriolis_type=='SPHERE', then f = 2 * CONST_OHM * sin( lat )

Definition at line 62 of file mod_atmos_dyn_driver.F90.

Referenced by atmos_dyn_driver_setup().

  character(len=H_SHORT), public :: atmos_dyn_coriolis_type = 'PLANE'   ! type of coriolis force: 'PLANE', 'SPHERE'

atmos_dyn_coriolis_f0

real(rp), public mod_atmos_dyn_driver::atmos_dyn_coriolis_f0 = 0.0_RP

Definition at line 63 of file mod_atmos_dyn_driver.F90.

Referenced by atmos_dyn_driver_setup().

  real(RP), public :: atmos_dyn_coriolis_f0                 = 0.0_rp

atmos_dyn_coriolis_beta

real(rp), public mod_atmos_dyn_driver::atmos_dyn_coriolis_beta = 0.0_RP

Definition at line 64 of file mod_atmos_dyn_driver.F90.

Referenced by atmos_dyn_driver_setup().

  real(RP), public :: atmos_dyn_coriolis_beta               = 0.0_rp

atmos_dyn_coriolis_y0

real(rp), public mod_atmos_dyn_driver::atmos_dyn_coriolis_y0

Definition at line 65 of file mod_atmos_dyn_driver.F90.

Referenced by atmos_dyn_driver_setup().

  real(RP), public :: atmos_dyn_coriolis_y0                             ! default is domain center