module ATMOSPHERE driver More...

Functions/Subroutines
subroutine, public	atmos_driver_config
	Config. More...

subroutine, public	atmos_driver_setup
	Setup. More...

subroutine, public	atmos_driver_resume1
	Resume. More...

subroutine, public	atmos_driver_resume2
	Setup. More...

subroutine, public	atmos_driver
	advance atmospheric state More...

subroutine, public	atmos_driver_finalize
	Finalize. More...

subroutine, public	atmos_surface_get
	Get surface boundary condition. More...

subroutine, public	atmos_surface_set (countup)
	Set surface boundary condition. More...

Detailed Description

module ATMOSPHERE driver

Description: Atmosphere module

Author: Team SCALE

History

2011-11-11 (H.Yashiro) [new]
2012-02-15 (H.Yashiro) [add] Microphysics
2012-03-23 (H.Yashiro) [mod] Cleaning
2013-08-31 (T.Yamaura) [add] Coupler

Function/Subroutine Documentation

◆ atmos_driver_config()

subroutine, public mod_atmos_driver::atmos_driver_config ( )

Config.

Definition at line 60 of file mod_atmos_driver.f90.

References mod_atmos_phy_ae_driver::atmos_phy_ae_driver_config(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_config(), and mod_atmos_phy_tb_driver::atmos_phy_tb_driver_config().

Referenced by mod_rm_driver::scalerm(), and mod_rm_prep::scalerm_prep().

     use mod_atmos_phy_mp_driver, only: &
        atmos_phy_mp_driver_config
     use mod_atmos_phy_ae_driver, only: &
        atmos_phy_ae_driver_config
     use mod_atmos_phy_tb_driver, only: &
        atmos_phy_tb_driver_config
     implicit none
 
     call atmos_phy_mp_driver_config
     call atmos_phy_ae_driver_config
     call atmos_phy_tb_driver_config
 
     return

Here is the call graph for this function:

Here is the caller graph for this function:

◆ atmos_driver_setup()

subroutine, public mod_atmos_driver::atmos_driver_setup ( )

Setup.

Definition at line 78 of file mod_atmos_driver.f90.

Referenced by mod_rm_driver::scalerm().

     use scale_time, only: &
        time_nowdate
     use scale_atmos_solarins, only: &
        atmos_solarins_setup
     use scale_atmos_refstate, only: &
        atmos_refstate_setup
     use scale_atmos_boundary, only: &
        atmos_boundary_setup
     use mod_atmos_dyn_driver, only: &
        atmos_dyn_driver_setup
     use mod_atmos_phy_mp_driver, only: &
        atmos_phy_mp_driver_setup
     use mod_atmos_phy_rd_driver, only: &
        atmos_phy_rd_driver_setup
     use mod_atmos_phy_ch_driver, only: &
        atmos_phy_ch_driver_setup
     use mod_atmos_phy_ae_driver, only: &
        atmos_phy_ae_driver_setup
     use mod_atmos_phy_sf_driver, only: &
        atmos_phy_sf_driver_setup
     use mod_atmos_phy_tb_driver, only: &
        atmos_phy_tb_driver_setup
     use mod_atmos_phy_cp_driver, only: &
        atmos_phy_cp_driver_setup
     implicit none
     !---------------------------------------------------------------------------
 
     if( io_l ) write(io_fid_log,*)
     if( io_l ) write(io_fid_log,*) '++++++ Module[DRIVER] / Categ[ATMOS] / Origin[SCALE-RM]'
 
     if( io_l ) write(io_fid_log,*)
     if( io_l ) write(io_fid_log,*) '*** Setup each atmospheric components ...'
 
     !--- setup solar insolation
     call atmos_solarins_setup( time_nowdate(1) )
 
     call prof_rapstart('ATM_Refstate', 2)
     call atmos_refstate_setup
     call prof_rapend  ('ATM_Refstate', 2)
 
     call prof_rapstart('ATM_Boundary', 2)
     call atmos_boundary_setup
     call prof_rapend  ('ATM_Boundary', 2)
 
     ! setup each components
     call atmos_dyn_driver_setup
     call atmos_phy_mp_driver_setup
     call atmos_phy_ae_driver_setup
     call atmos_phy_ch_driver_setup
     call atmos_phy_rd_driver_setup
     call atmos_phy_sf_driver_setup
     call atmos_phy_tb_driver_setup
     call atmos_phy_cp_driver_setup
 
     if( io_l ) write(io_fid_log,*)
     if( io_l ) write(io_fid_log,*) '*** Finish setup of each atmospheric components.'
 
     return

Here is the call graph for this function:

Here is the caller graph for this function:

◆ atmos_driver_resume1()

subroutine, public mod_atmos_driver::atmos_driver_resume1 ( )

Resume.

Definition at line 141 of file mod_atmos_driver.f90.

References scale_atmos_boundary::atmos_boundary_resume(), mod_atmos_phy_ae_driver::atmos_phy_ae_driver_resume(), mod_atmos_phy_ch_driver::atmos_phy_ch_driver_resume(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_resume(), mod_atmos_phy_rd_driver::atmos_phy_rd_driver_resume(), scale_atmos_refstate::atmos_refstate_resume(), atmos_surface_get(), atmos_surface_set(), mod_atmos_vars::atmos_vars_diagnostics(), mod_atmos_vars::atmos_vars_history_setpres(), mod_atmos_vars::dens, mod_atmos_vars::dens_tp, scale_stdio::io_fid_log, scale_stdio::io_l, mod_atmos_vars::momx, mod_atmos_vars::momx_tp, mod_atmos_vars::momy, mod_atmos_vars::momy_tp, mod_atmos_vars::momz, mod_atmos_vars::momz_tp, scale_prof::prof_rapend(), scale_prof::prof_rapstart(), mod_atmos_vars::qtrc, mod_atmos_vars::rhoq_tp, mod_atmos_vars::rhot, and mod_atmos_vars::rhot_tp.

Referenced by mod_rm_driver::resume_state().

     use mod_atmos_vars, only: &
        atmos_vars_diagnostics,     &
        atmos_vars_history_setpres, &
        dens,                       &
        momz,                       &
        momx,                       &
        momy,                       &
        rhot,                       &
        qtrc,                       &
        dens_tp,                    &
        momz_tp,                    &
        momx_tp,                    &
        momy_tp,                    &
        rhot_tp,                    &
        rhoq_tp
     use scale_atmos_refstate, only: &
        atmos_refstate_resume
     use scale_atmos_boundary, only: &
        atmos_boundary_resume
     use mod_atmos_phy_mp_driver, only: &
        atmos_phy_mp_driver_resume
     use mod_atmos_phy_rd_driver, only: &
        atmos_phy_rd_driver_resume
     use mod_atmos_phy_ch_driver, only: &
        atmos_phy_ch_driver_resume
     use mod_atmos_phy_ae_driver, only: &
        atmos_phy_ae_driver_resume
     implicit none
     !---------------------------------------------------------------------------
 
     if( io_l ) write(io_fid_log,*)
     if( io_l ) write(io_fid_log,*) '++++++ Module[DRIVER] / Categ[ATMOS] / Origin[SCALE-RM]'
 
     if( io_l ) write(io_fid_log,*)
     if( io_l ) write(io_fid_log,*) '*** Resume each atmospheric components 1 ...'
 
     call prof_rapstart('ATM_Refstate', 2)
     call atmos_refstate_resume( dens, rhot, qtrc )
     call prof_rapend  ('ATM_Refstate', 2)
 
     call prof_rapstart('ATM_Boundary', 2)
     call atmos_boundary_resume( dens, momz, momx, momy, rhot, qtrc )
     call prof_rapend  ('ATM_Boundary', 2)
 
     !########## Get Surface Boundary Condition ##########
     call prof_rapstart('ATM_SfcExch', 2)
     call atmos_surface_get
     call prof_rapend  ('ATM_SfcExch', 2)
 
     !########## initialize tendencies ##########
 !OCL XFILL
     dens_tp(:,:,:)   = 0.0_rp
 !OCL XFILL
     momz_tp(:,:,:)   = 0.0_rp
 !OCL XFILL
     momx_tp(:,:,:)   = 0.0_rp
 !OCL XFILL
     momy_tp(:,:,:)   = 0.0_rp
 !OCL XFILL
     rhot_tp(:,:,:)   = 0.0_rp
 !OCL XFILL
     rhoq_tp(:,:,:,:) = 0.0_rp
 
     ! setup each components
     call atmos_phy_mp_driver_resume
     call atmos_phy_ae_driver_resume
     call atmos_phy_ch_driver_resume
     call atmos_phy_rd_driver_resume
 
     !########## Calculate diagnostic variables ##########
     call atmos_vars_diagnostics
     call atmos_vars_history_setpres
 
     !########## Set Surface Boundary Condition ##########
     call prof_rapstart('ATM_SfcExch', 2)
     call atmos_surface_set( countup = .false. )
     call prof_rapend  ('ATM_SfcExch', 2)
 
     if( io_l ) write(io_fid_log,*)
     if( io_l ) write(io_fid_log,*) '*** Finish resume of each atmospheric components 1.'
 
     return

Here is the call graph for this function:

Here is the caller graph for this function:

◆ atmos_driver_resume2()

subroutine, public mod_atmos_driver::atmos_driver_resume2 ( )

Setup.

Definition at line 228 of file mod_atmos_driver.f90.

References mod_atmos_phy_cp_driver::atmos_phy_cp_driver_resume(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_resume(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver_resume(), atmos_surface_get(), atmos_surface_set(), mod_atmos_vars::atmos_vars_history(), mod_atmos_vars::atmos_vars_monitor(), scale_stdio::io_fid_log, scale_stdio::io_l, scale_prof::prof_rapend(), and scale_prof::prof_rapstart().

Referenced by mod_rm_driver::resume_state().

     use mod_atmos_vars, only: &
        atmos_vars_history, &
        atmos_vars_monitor
     use mod_atmos_phy_cp_driver, only: &
        atmos_phy_cp_driver_resume
     use mod_atmos_phy_sf_driver, only: &
        atmos_phy_sf_driver_resume
     use mod_atmos_phy_tb_driver, only: &
        atmos_phy_tb_driver_resume
     implicit none
     !---------------------------------------------------------------------------
 
     if( io_l ) write(io_fid_log,*)
     if( io_l ) write(io_fid_log,*) '++++++ Module[DRIVER] / Categ[ATMOS] / Origin[SCALE-RM]'
 
     if( io_l ) write(io_fid_log,*)
     if( io_l ) write(io_fid_log,*) '*** Resume each atmospheric components 2 ...'
 
     !########## Get Surface Boundary Condition ##########
     call prof_rapstart('ATM_SfcExch', 2)
     call atmos_surface_get
     call prof_rapend  ('ATM_SfcExch', 2)
 
     ! setup each components
     call atmos_phy_sf_driver_resume
     call atmos_phy_tb_driver_resume
     call atmos_phy_cp_driver_resume
 
     !########## Set Surface Boundary Condition ##########
     call prof_rapstart('ATM_SfcExch', 2)
     call atmos_surface_set( countup = .true. )
     call prof_rapend  ('ATM_SfcExch', 2)
 
     !########## History & Monitor ##########
     call prof_rapstart('ATM_History', 1)
     call atmos_vars_history
     call atmos_vars_monitor
     call prof_rapend  ('ATM_History', 1)
 
     if( io_l ) write(io_fid_log,*)
     if( io_l ) write(io_fid_log,*) '*** Finish resume of each atmospheric components 2.'
 
     return

Here is the call graph for this function:

Here is the caller graph for this function:

◆ atmos_driver()

subroutine, public mod_atmos_driver::atmos_driver ( )

advance atmospheric state

Definition at line 276 of file mod_atmos_driver.f90.

Referenced by mod_rm_driver::scalerm().

     use mod_admin_time, only: &
        do_dyn    => time_doatmos_dyn,    &
        do_phy_mp => time_doatmos_phy_mp, &
        do_phy_ae => time_doatmos_phy_ae, &
        do_phy_ch => time_doatmos_phy_ch, &
        do_phy_rd => time_doatmos_phy_rd, &
        do_phy_sf => time_doatmos_phy_sf, &
        do_phy_tb => time_doatmos_phy_tb, &
        do_phy_cp => time_doatmos_phy_cp
     use scale_atmos_refstate, only: &
        atmos_refstate_update_flag, &
        atmos_refstate_update
     use scale_atmos_boundary, only: &
        atmos_boundary_update_flag, &
        atmos_boundary_update
     use mod_atmos_admin, only: &
        atmos_sw_dyn,    &
        atmos_sw_phy_mp, &
        atmos_sw_phy_ae, &
        atmos_sw_phy_ch, &
        atmos_sw_phy_rd, &
        atmos_sw_phy_sf, &
        atmos_sw_phy_tb, &
        atmos_sw_phy_cp
     use mod_atmos_vars, only: &
        atmos_vars_history,         &
        atmos_vars_diagnostics,     &
        atmos_vars_history_setpres, &
        atmos_vars_monitor,         &
        dens,                       &
        momz,                       &
        momx,                       &
        momy,                       &
        rhot,                       &
        qtrc,                       &
        dens_tp,                    &
        momz_tp,                    &
        momx_tp,                    &
        momy_tp,                    &
        rhot_tp,                    &
        rhoq_tp
     use mod_atmos_dyn_driver, only: &
        atmos_dyn_driver
     use mod_atmos_phy_mp_driver, only: &
        atmos_phy_mp_driver
     use mod_atmos_phy_ae_driver, only: &
        atmos_phy_ae_driver
     use mod_atmos_phy_ch_driver, only: &
        atmos_phy_ch_driver
     use mod_atmos_phy_rd_driver, only: &
        atmos_phy_rd_driver
     use mod_atmos_phy_sf_driver, only: &
        atmos_phy_sf_driver
     use mod_atmos_phy_tb_driver, only: &
        atmos_phy_tb_driver
     use mod_atmos_phy_cp_driver, only: &
        atmos_phy_cp_driver
     implicit none
     !---------------------------------------------------------------------------
 
     !########## Get Surface Boundary Condition ##########
     call prof_rapstart('ATM_SfcExch', 2)
     call atmos_surface_get
     call prof_rapend  ('ATM_SfcExch', 2)
 
     !########## Dynamics ##########
     if ( atmos_sw_dyn ) then
        call prof_rapstart('ATM_Dynamics', 1)
        call atmos_dyn_driver( do_dyn )
        call prof_rapend  ('ATM_Dynamics', 1)
     endif
 
     !########## Reference State ###########
     if ( atmos_refstate_update_flag ) then
        call prof_rapstart('ATM_Refstate', 2)
        call atmos_refstate_update( dens, rhot, qtrc ) ! [IN]
        call prof_rapend  ('ATM_Refstate', 2)
     endif
 
     !########## Lateral/Top Boundary Condition ###########
     if ( atmos_boundary_update_flag ) then
        call prof_rapstart('ATM_Boundary', 2)
        call atmos_boundary_update( dens, momz, momx, momy, rhot, qtrc ) ! [INOUT]
        call prof_rapend  ('ATM_Boundary', 2)
     endif
 
     !########## reset tendencies ##########
 !OCL XFILL
     dens_tp(:,:,:)   = 0.0_rp
 !OCL XFILL
     momz_tp(:,:,:)   = 0.0_rp
 !OCL XFILL
     momx_tp(:,:,:)   = 0.0_rp
 !OCL XFILL
     momy_tp(:,:,:)   = 0.0_rp
 !OCL XFILL
     rhot_tp(:,:,:)   = 0.0_rp
 !OCL XFILL
     rhoq_tp(:,:,:,:) = 0.0_rp
 
     !########## Calculate diagnostic variables ##########
     call prof_rapstart('ATM_History', 1)
     call atmos_vars_diagnostics
     call atmos_vars_history_setpres
     call prof_rapend  ('ATM_History', 1)
 
     !########## Microphysics ##########
     if ( atmos_sw_phy_mp ) then
        call prof_rapstart('ATM_Microphysics', 1)
        call atmos_phy_mp_driver( update_flag = do_phy_mp )
        call prof_rapend  ('ATM_Microphysics', 1)
     endif
 
     !########## Aerosol ##########
     if ( atmos_sw_phy_ae ) then
        call prof_rapstart('ATM_Aerosol', 1)
        call atmos_phy_ae_driver( update_flag = do_phy_ae )
        call prof_rapend  ('ATM_Aerosol', 1)
     endif
 
     !########## Chemistry ##########
     if ( atmos_sw_phy_ch ) then
        call prof_rapstart('ATM_Chemistry', 1)
        call atmos_phy_ch_driver( update_flag = do_phy_ch )
        call prof_rapend  ('ATM_Chemistry', 1)
     endif
 
     !########## Radiation ##########
     if ( atmos_sw_phy_rd ) then
        call prof_rapstart('ATM_Radiation', 1)
        call atmos_phy_rd_driver( update_flag = do_phy_rd )
        call prof_rapend  ('ATM_Radiation', 1)
     endif
 
     !########## Surface Flux ##########
     if ( atmos_sw_phy_sf ) then
        call prof_rapstart('ATM_SurfaceFlux', 1)
        call atmos_phy_sf_driver( update_flag = do_phy_sf )
        call prof_rapend  ('ATM_SurfaceFlux', 1)
     endif
 
     !########## Turbulence ##########
     if ( atmos_sw_phy_tb ) then
        call prof_rapstart('ATM_Turbulence', 1)
        call atmos_phy_tb_driver( update_flag = do_phy_tb )
        call prof_rapend  ('ATM_Turbulence', 1)
     endif
 
     !########## Cumulus ##########
     if ( atmos_sw_phy_cp ) then
        call prof_rapstart('ATM_Cumulus', 1)
        call atmos_phy_cp_driver( update_flag = do_phy_cp )
        call prof_rapend  ('ATM_Cumulus', 1)
     endif
 
     !########## Set Surface Boundary Condition ##########
     call prof_rapstart('ATM_SfcExch', 2)
     call atmos_surface_set( countup = .true. )
     call prof_rapend  ('ATM_SfcExch', 2)
 
     !########## History & Monitor ##########
     call prof_rapstart('ATM_History', 1)
     call atmos_vars_history
     call atmos_vars_monitor
     call prof_rapend  ('ATM_History', 1)
 
     return

Here is the call graph for this function:

Here is the caller graph for this function:

◆ atmos_driver_finalize()

subroutine, public mod_atmos_driver::atmos_driver_finalize ( )

Finalize.

Definition at line 448 of file mod_atmos_driver.f90.

References scale_atmos_boundary::atmos_boundary_finalize(), scale_atmos_boundary::atmos_boundary_update_flag, and scale_grid_nest::nest_comm_disconnect().

Referenced by mod_rm_driver::scalerm().

     use scale_atmos_boundary, only: &
        atmos_boundary_update_flag, &
        atmos_boundary_finalize
     use scale_grid_nest, only: &
        nest_comm_disconnect
     implicit none
     !---------------------------------------------------------------------------
 
     !########## Lateral/Top Boundary Condition ###########
     if ( atmos_boundary_update_flag ) then
        ! If this run is parent of online nesting, boundary data must be sent
        call atmos_boundary_finalize
 
        ! Finialize Inter-Communicators
        call nest_comm_disconnect
     endif
 
     return

Here is the call graph for this function:

Here is the caller graph for this function:

◆ atmos_surface_get()

subroutine, public mod_atmos_driver::atmos_surface_get ( )

Get surface boundary condition.

Definition at line 471 of file mod_atmos_driver.f90.

Referenced by atmos_driver(), atmos_driver_resume1(), atmos_driver_resume2(), and mod_mkinit::mkinit().

     use mod_atmos_phy_sf_vars, only: &
        sfc_temp   => atmos_phy_sf_sfc_temp,   &
        sfc_albedo => atmos_phy_sf_sfc_albedo, &
        sfc_z0m    => atmos_phy_sf_sfc_z0m,    &
        sfc_z0h    => atmos_phy_sf_sfc_z0h,    &
        sfc_z0e    => atmos_phy_sf_sfc_z0e,    &
        sflx_mw    => atmos_phy_sf_sflx_mw,    &
        sflx_mu    => atmos_phy_sf_sflx_mu,    &
        sflx_mv    => atmos_phy_sf_sflx_mv,    &
        sflx_sh    => atmos_phy_sf_sflx_sh,    &
        sflx_lh    => atmos_phy_sf_sflx_lh,    &
        sflx_gh    => atmos_phy_sf_sflx_gh,    &
        sflx_qtrc  => atmos_phy_sf_sflx_qtrc,  &
        u10        => atmos_phy_sf_u10,        &
        v10        => atmos_phy_sf_v10,        &
        t2         => atmos_phy_sf_t2,         &
        q2         => atmos_phy_sf_q2
     use mod_cpl_admin, only: &
        cpl_sw
     use mod_cpl_vars, only: &
        cpl_getsfc_atm
     implicit none
     !---------------------------------------------------------------------------
 
     if ( cpl_sw ) then
        call cpl_getsfc_atm( sfc_temp(:,:),   & ! [OUT]
                             sfc_albedo(:,:,:), & ! [OUT]
                             sfc_z0m(:,:),   & ! [OUT]
                             sfc_z0h(:,:),   & ! [OUT]
                             sfc_z0e(:,:),   & ! [OUT]
                             sflx_mw(:,:),   & ! [OUT]
                             sflx_mu(:,:),   & ! [OUT]
                             sflx_mv(:,:),   & ! [OUT]
                             sflx_sh(:,:),   & ! [OUT]
                             sflx_lh(:,:),   & ! [OUT]
                             sflx_gh(:,:),   & ! [OUT]
                             sflx_qtrc(:,:,:), & ! [OUT]
                             u10(:,:),   & ! [OUT]
                             v10(:,:),   & ! [OUT]
                             t2(:,:),   & ! [OUT]
                             q2(:,:)    ) ! [OUT]
     endif
 
     return

Here is the call graph for this function:

Here is the caller graph for this function:

◆ atmos_surface_set()

subroutine, public mod_atmos_driver::atmos_surface_set ( logical, intent(in) countup )

Set surface boundary condition.

Definition at line 520 of file mod_atmos_driver.f90.

References scale_atmos_bottom::atmos_bottom_estimate(), mod_atmos_phy_cp_vars::atmos_phy_cp_sflx_rain, mod_atmos_phy_mp_vars::atmos_phy_mp_sflx_rain, mod_atmos_phy_mp_vars::atmos_phy_mp_sflx_snow, mod_atmos_phy_rd_vars::atmos_phy_rd_cossza, mod_atmos_phy_rd_vars::atmos_phy_rd_sflx_downall, mod_cpl_vars::cpl_putatm(), mod_cpl_admin::cpl_sw, mod_atmos_vars::dens, scale_grid_index::ia, scale_grid_index::ja, scale_grid_index::ks, mod_atmos_vars::pres, mod_atmos_vars::qtrc, scale_grid_real::real_cz, scale_grid_real::real_z1, mod_atmos_vars::temp, scale_topography::topo_zsfc, mod_atmos_vars::u, mod_atmos_vars::v, and mod_atmos_vars::w.

Referenced by atmos_driver(), atmos_driver_resume1(), atmos_driver_resume2(), and mod_rm_driver::resume_state().

     use scale_grid_real, only: &
        real_cz, &
        real_z1
     use scale_topography, only: &
        topo_zsfc
     use scale_atmos_bottom, only: &
        bottom_estimate => atmos_bottom_estimate
     use mod_atmos_vars, only: &
        dens, &
        qtrc, &
        temp, &
        pres, &
        w,    &
        u,    &
        v
     use mod_atmos_phy_mp_vars, only: &
        sflx_rain_mp => atmos_phy_mp_sflx_rain, &
        sflx_snow_mp => atmos_phy_mp_sflx_snow
     use mod_atmos_phy_cp_vars, only: &
        sflx_rain_cp => atmos_phy_cp_sflx_rain
     use mod_atmos_phy_rd_vars, only: &
        sflx_rad_dn => atmos_phy_rd_sflx_downall, &
        cossza      => atmos_phy_rd_cossza
     use mod_cpl_admin, only: &
        cpl_sw
     use mod_cpl_vars, only: &
        cpl_putatm
     implicit none
 
     ! arguments
     logical, intent(in) :: countup
 
     ! works
     real(RP) :: SFC_DENS(IA,JA)
     real(RP) :: SFC_PRES(IA,JA)
     real(RP) :: ATM_PBL (IA,JA)
 
     real(RP) :: SFLX_rain(IA,JA)
     real(RP) :: SFLX_snow(IA,JA)
 
     integer  :: i,j
     !---------------------------------------------------------------------------
 
     if ( cpl_sw ) then
        ! sum of rainfall from mp and cp
        !$omp parallel do private(i,j) OMP_SCHEDULE_
        do j = 1, ja
        do i = 1, ia
           sflx_rain(i,j) = sflx_rain_mp(i,j) + sflx_rain_cp(i,j)
           sflx_snow(i,j) = sflx_snow_mp(i,j)
        enddo
        enddo
 
        ! planetary boundary layer
        atm_pbl(:,:) = 100.0_rp ! tentative
 
        call bottom_estimate( dens(:,:,:), & ! [IN]
                              pres(:,:,:), & ! [IN]
                              real_cz(:,:,:), & ! [IN]
                              topo_zsfc(:,:),   & ! [IN]
                              real_z1(:,:),   & ! [IN]
                              sfc_dens(:,:),   & ! [OUT]
                              sfc_pres(:,:)    ) ! [OUT]
 
        call cpl_putatm( temp(ks,:,:),   & ! [IN]
                         pres(ks,:,:),   & ! [IN]
                         w(ks,:,:),   & ! [IN]
                         u(ks,:,:),   & ! [IN]
                         v(ks,:,:),   & ! [IN]
                         dens(ks,:,:),   & ! [IN]
                         qtrc(ks,:,:,:), & ! [IN]
                         atm_pbl(:,:),      & ! [IN]
                         sfc_pres(:,:),      & ! [IN]
                         sflx_rad_dn(:,:,:,:),  & ! [IN]
                         cossza(:,:),      & ! [IN]
                         sflx_rain(:,:),      & ! [IN]
                         sflx_snow(:,:),      & ! [IN]
                         countup                ) ! [IN]
     endif
 
     return

Here is the call graph for this function:

Here is the caller graph for this function:

Functions/Subroutines

Detailed Description

Function/Subroutine Documentation

◆ atmos_driver_config()

◆ atmos_driver_setup()

◆ atmos_driver_resume1()

◆ atmos_driver_resume2()

◆ atmos_driver()

◆ atmos_driver_finalize()

◆ atmos_surface_get()

◆ atmos_surface_set()