mod_atmos_phy_ch_driver Module Reference

module ATMOSPHERE / Physics Chemistry More...

Functions/Subroutines
subroutine, public	atmos_phy_ch_driver_setup
	Setup. More...
subroutine, public	atmos_phy_ch_driver_resume
	Resume. More...
subroutine, public	atmos_phy_ch_driver (update_flag)
	Driver. More...

Detailed Description

module ATMOSPHERE / Physics Chemistry

Description

Atmospheric chemistry driver

Author

Team SCALE

History

• 2014-05-04 (H.Yashiro) [new]

NAMELIST

• No namelist group

History Output

name	description	unit	variable
Ozone	Ozone	PPM	O3

Function/Subroutine Documentation

atmos_phy_ch_driver_setup()

subroutine, public mod_atmos_phy_ch_driver::atmos_phy_ch_driver_setup

(

)

Setup.

Definition at line 52 of file mod_atmos_phy_ch_driver.f90.

References mod_atmos_admin::atmos_phy_ch_type, mod_atmos_admin::atmos_sw_phy_ch, scale_stdio::io_fid_log, and scale_stdio::io_l.

Referenced by mod_atmos_driver::atmos_driver_setup().

!    use scale_atmos_phy_ch, only: &
!       ATMOS_PHY_CH_setup
    use mod_atmos_admin, only: &
       atmos_phy_ch_type, &
       atmos_sw_phy_ch
    implicit none
    !---------------------------------------------------------------------------

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '++++++ Module[DRIVER] / Categ[ATMOS PHY_CH] / Origin[SCALE-RM]'

    if ( atmos_sw_phy_ch ) then

       ! setup library component
       !call ATMOS_PHY_CH_setup( ATMOS_PHY_CH_TYPE )

    else
       if( io_l ) write(io_fid_log,*) '*** this component is never called.'
    endif

    return

Here is the caller graph for this function:

atmos_phy_ch_driver_resume()

subroutine, public mod_atmos_phy_ch_driver::atmos_phy_ch_driver_resume

(

)

Resume.

Definition at line 78 of file mod_atmos_phy_ch_driver.f90.

References atmos_phy_ch_driver(), mod_atmos_admin::atmos_sw_phy_ch, scale_prof::prof_rapend(), and scale_prof::prof_rapstart().

Referenced by mod_atmos_driver::atmos_driver_resume1().

    use mod_atmos_admin, only: &
       atmos_sw_phy_ch
    implicit none

    if ( atmos_sw_phy_ch ) then

       ! run once (only for the diagnostic value)
       call prof_rapstart('ATM_Chemistry', 1)
       call atmos_phy_ch_driver( update_flag = .true. )
       call prof_rapend  ('ATM_Chemistry', 1)

    end if

    return

Here is the call graph for this function:

Here is the caller graph for this function:

atmos_phy_ch_driver()

subroutine, public mod_atmos_phy_ch_driver::atmos_phy_ch_driver

(

logical, intent(in)

update_flag

)

Driver.

Definition at line 97 of file mod_atmos_phy_ch_driver.f90.

References mod_atmos_phy_ch_vars::atmos_phy_ch_o3, mod_atmos_phy_ch_vars::atmos_phy_ch_rhoq_t, scale_grid_index::ie, scale_grid_index::is, scale_grid_index::je, scale_grid_index::js, scale_grid_index::ke, scale_grid_index::ks, scale_tracer::qa, mod_atmos_vars::rhoq_tp, scale_rm_statistics::statistics_checktotal, and scale_tracer::tracer_name.

Referenced by mod_atmos_driver::atmos_driver(), and atmos_phy_ch_driver_resume().

!     use scale_time, only: &
!        dt_CH => TIME_DTSEC_ATMOS_PHY_CH
    use scale_rm_statistics, only: &
       statistics_checktotal, &
       stat_total
    use scale_history, only: &
       hist_in
!    use scale_atmos_phy_ch, only: &
!       ATMOS_PHY_CH
    use mod_atmos_vars, only: &
!        DENS  => DENS_av, &
!        MOMZ  => MOMZ_av, &
!        MOMX  => MOMX_av, &
!        MOMY  => MOMY_av, &
!        RHOT  => RHOT_av, &
!        QTRC  => QTRC_av, &
       rhoq_t => rhoq_tp
    use mod_atmos_phy_ch_vars, only: &
       rhoq_t_ch => atmos_phy_ch_rhoq_t, &
       o3        => atmos_phy_ch_o3
    implicit none

    logical, intent(in) :: update_flag

    real(RP) :: total ! dummy

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

    if ( update_flag ) then

!       call ATMOS_PHY_CH( DENS,          & ! [IN]
!                          MOMZ,          & ! [IN]
!                          MOMX,          & ! [IN]
!                          MOMY,          & ! [IN]
!                          RHOT,          & ! [IN]
!                          QTRC,          & ! [IN]
!                          RHOQ_t_CH,     & ! [INOUT]
!                          O3             ) ! [INOUT]

       ! tentative!
!OCL XFILL
       rhoq_t_ch(:,:,:,:) = 0.0_rp
!OCL XFILL
       o3(:,:,:)   = 0.0_rp

       call hist_in( o3(:,:,:), 'Ozone', 'Ozone', 'PPM' )
    endif

    !$omp parallel do private(i,j,k) OMP_SCHEDULE_ collapse(3)
    do iq = 1, qa
    do j  = js, je
    do i  = is, ie
    do k  = ks, ke
       rhoq_t(k,i,j,iq) = rhoq_t(k,i,j,iq) + rhoq_t_ch(k,i,j,iq)
    enddo
    enddo
    enddo
    enddo

    if ( statistics_checktotal ) then
       do iq = 1, qa
          call stat_total( total, rhoq_t_ch(:,:,:,iq), trim(tracer_name(iq))//'_t_CH' )
       enddo
    endif

    return

Here is the caller graph for this function: