17 #include "inc_openmp.h" 106 if(
io_l )
write(
io_fid_log,*)
'++++++ Module[DRIVER] / Categ[ATMOS] / Origin[SCALE-RM]' 109 if(
io_l )
write(
io_fid_log,*)
'*** Setup each atmospheric components ...' 133 if(
io_l )
write(
io_fid_log,*)
'*** Finish setup of each atmospheric components.' 172 if(
io_l )
write(
io_fid_log,*)
'++++++ Module[DRIVER] / Categ[ATMOS] / Origin[SCALE-RM]' 175 if(
io_l )
write(
io_fid_log,*)
'*** Resume each atmospheric components 1 ...' 220 if(
io_l )
write(
io_fid_log,*)
'*** Finish resume of each atmospheric components 1.' 241 if(
io_l )
write(
io_fid_log,*)
'++++++ Module[DRIVER] / Categ[ATMOS] / Origin[SCALE-RM]' 244 if(
io_l )
write(
io_fid_log,*)
'*** Resume each atmospheric components 2 ...' 268 if(
io_l )
write(
io_fid_log,*)
'*** Finish resume of each atmospheric components 2.' 550 logical,
intent(in) :: countup
553 real(RP) :: sfc_dens(
ia,
ja)
554 real(RP) :: sfc_pres(
ia,
ja)
555 real(RP) :: atm_pbl (
ia,
ja)
557 real(RP) :: sflx_rain(
ia,
ja)
558 real(RP) :: sflx_snow(
ia,
ja)
568 sflx_rain(i,j) = sflx_rain_mp(i,j) + sflx_rain_cp(i,j)
569 sflx_snow(i,j) = sflx_snow_mp(i,j)
574 atm_pbl(:,:) = 100.0_rp
576 call bottom_estimate(
dens(:,:,:), &
593 sflx_rad_dn(:,:,:,:), &
real(rp), dimension(:,:,:), allocatable, public dens_tp
logical, public atmos_sw_phy_cp
subroutine, public atmos_phy_cp_driver_resume
Redume.
real(rp), dimension(:,:,:), allocatable, target, public momz
module Atmosphere / Physics Cumulus
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sfc_z0e
subroutine, public atmos_surface_set(countup)
Set surface boundary condition.
real(rp), dimension(:,:,:), allocatable, public atmos_phy_sf_sflx_qtrc
logical, public time_doatmos_phy_rd
execute physics in this step? (radiation )
subroutine, public atmos_phy_ae_driver_setup
Setup.
subroutine, public atmos_phy_ae_driver(update_flag)
Driver.
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sflx_mw
module GRID (nesting system)
subroutine, public atmos_phy_tb_driver_config
Config.
logical, public atmos_sw_phy_rd
real(rp), dimension(:,:,:), allocatable, target, public rhot
real(rp), dimension(:,:,:), allocatable, public momy_tp
module ATMOSPHERE / Physics Turbulence
subroutine, public atmos_boundary_resume(DENS, MOMZ, MOMX, MOMY, RHOT, QTRC)
Resume.
subroutine, public atmos_phy_ch_driver_resume
Resume.
subroutine, public cpl_putatm(TEMP, PRES, W, U, V, DENS, QTRC, PBL, SFC_PRES, SFLX_rad_dn, cosSZA, SFLX_rain, SFLX_snow, countup)
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_v10
module Atmosphere / Physics Cloud Microphysics
logical, public io_l
output log or not? (this process)
module ATMOSPHERE / Physics Cumulus
module ATMOSPHERE / Bottom boundary treatment
real(rp), dimension(:,:,:), allocatable, public pres
module ATMOSPHERE / Physics Radiation
module ATMOSPHERE / Reference state
subroutine, public atmos_phy_sf_driver_resume
Resume.
module ATMOSPHERIC Variables
subroutine, public atmos_phy_ch_driver(update_flag)
Driver.
module ATMOSPHERE / Physics Surface fluxes
real(rp), dimension(:,:,:), allocatable, target, public momx
subroutine, public atmos_phy_mp_driver(update_flag)
Driver.
subroutine, public atmos_boundary_update(DENS, MOMZ, MOMX, MOMY, RHOT, QTRC)
Update boundary value with a constant time boundary.
real(rp), dimension(:,:,:), allocatable, public rhot_tp
module ATMOSPHERE / Physics Chemistry
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sfc_temp
subroutine, public atmos_boundary_setup
Setup.
real(rp), dimension(:,:,:), allocatable, public real_cz
geopotential height [m] (cell center)
logical, public atmos_sw_phy_ae
module Atmosphere / Dynamics
real(rp), dimension(:,:,:), allocatable, target, public dens
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sflx_mv
module ATMOSPHERE / Physics Aerosol Microphysics
subroutine, public atmos_driver_config
Config.
logical, public time_doatmos_phy_mp
execute physics in this step? (microphysics)
real(rp), dimension(:,:), allocatable, public atmos_phy_mp_sflx_rain
subroutine, public atmos_phy_rd_driver_setup
Setup.
subroutine, public cpl_getsfc_atm(SFC_TEMP, SFC_albedo, SFC_Z0M, SFC_Z0H, SFC_Z0E, SFLX_MW, SFLX_MU, SFLX_MV, SFLX_SH, SFLX_LH, SFLX_GH, SFLX_QTRC, U10, V10, T2, Q2)
subroutine, public atmos_dyn_driver(do_flag)
Dynamical Process (Wrapper)
real(rp), dimension(:,:), allocatable, public atmos_phy_rd_cossza
module Atmosphere / Physics Radiation
module ATMOSPHERIC Surface Variables
subroutine, public atmos_dyn_driver_setup
Setup.
subroutine, public atmos_boundary_finalize
Finalize boundary value.
logical, public atmos_sw_phy_tb
subroutine, public atmos_surface_get
Get surface boundary condition.
integer, public ia
of whole cells: x, local, with HALO
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_u10
real(rp), dimension(:,:,:), allocatable, public temp
logical, public atmos_refstate_update_flag
real(rp), dimension(:,:), allocatable, public real_z1
Height of the lowermost grid from surface (cell center) [m].
subroutine, public atmos_phy_cp_driver_setup
Setup.
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sfc_z0h
subroutine, public atmos_solarins_setup(iyear)
setup solar incidence module
subroutine, public atmos_refstate_update(DENS, RHOT, QTRC)
Update reference state profile (Horizontal average)
subroutine, public atmos_refstate_setup
Setup.
real(rp), dimension(:,:,:,:), allocatable, public rhoq_tp
real(rp), dimension(:,:,:), allocatable, public atmos_phy_sf_sfc_albedo
logical, public atmos_sw_dyn
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sflx_lh
subroutine, public atmos_phy_sf_driver_setup
Setup.
subroutine, public atmos_driver_resume1
Resume.
logical, public atmos_sw_phy_sf
logical, public time_doatmos_phy_ch
execute physics in this step? (chemistry )
logical, public atmos_sw_phy_ch
subroutine, public atmos_driver_setup
Setup.
subroutine, public atmos_phy_mp_driver_setup
Setup.
logical, public time_doatmos_phy_cp
execute physics in this step? (cumulus )
subroutine, public atmos_phy_cp_driver(update_flag)
Driver.
subroutine, public atmos_phy_ae_driver_resume
Resume.
logical, public atmos_sw_phy_mp
subroutine, public atmos_bottom_estimate(DENS, PRES, CZ, Zsfc, Z1, SFC_DENS, SFC_PRES)
Calc bottom boundary of atmosphere (just above surface)
integer, public ks
start point of inner domain: z, local
subroutine, public atmos_phy_tb_driver_setup
Setup.
logical, public atmos_boundary_update_flag
real(rp), dimension(:,:,:), allocatable, public momx_tp
real(rp), dimension(:,:,:), allocatable, target, public momy
subroutine, public prof_rapstart(rapname_base, level)
Start raptime.
real(rp), dimension(:,:,:,:), allocatable, public atmos_phy_rd_sflx_downall
subroutine, public atmos_vars_monitor
monitor output
real(rp), dimension(:,:), allocatable, public atmos_phy_mp_sflx_snow
real(rp), dimension(:,:,:), allocatable, public momz_tp
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sflx_sh
subroutine, public atmos_phy_rd_driver(update_flag)
Driver.
real(rp), dimension(:,:,:), allocatable, public v
logical, public time_doatmos_phy_ae
execute physics in this step? (aerosol )
real(rp), dimension(:,:,:), allocatable, public w
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_q2
subroutine, public atmos_phy_ch_driver_setup
Setup.
subroutine, public atmos_driver_finalize
Finalize.
subroutine, public atmos_vars_history_setpres
Set pressure for history output.
logical, public time_doatmos_phy_tb
execute physics in this step? (turbulence )
real(rp), dimension(:,:), allocatable, public topo_zsfc
absolute ground height [m]
subroutine, public atmos_phy_rd_driver_resume
Resume.
real(rp), dimension(:,:,:), allocatable, public u
module ATMOSPHERE / Boundary treatment
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sfc_z0m
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_t2
subroutine, public atmos_phy_ae_driver_config
Config.
integer, dimension(6), public time_nowdate
current time [YYYY MM DD HH MM SS]
subroutine, public atmos_driver
advance atmospheric state
subroutine, public atmos_refstate_resume(DENS, RHOT, QTRC)
Resume.
subroutine, public atmos_phy_tb_driver(update_flag)
Driver.
logical, public time_doatmos_dyn
execute dynamics in this step?
subroutine, public atmos_vars_history
History output set for atmospheric variables.
integer, public io_fid_log
Log file ID.
logical, public time_doatmos_phy_sf
execute physics in this step? (surface flux)
subroutine, public atmos_phy_mp_driver_resume
resume
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sflx_gh
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sflx_mu
module ATMOSPHERE / Physics Cloud Microphysics
subroutine, public prof_rapend(rapname_base, level)
Save raptime.
real(rp), dimension(:,:), allocatable, public atmos_phy_cp_sflx_rain
subroutine, public atmos_driver_resume2
Setup.
subroutine, public atmos_phy_tb_driver_resume
Resume.
subroutine, public atmos_phy_mp_driver_config
Config.
subroutine, public nest_comm_disconnect()
[finalize: disconnect] Inter-communication
subroutine, public atmos_vars_diagnostics
Calc diagnostic variables.
real(rp), dimension(:,:,:,:), allocatable, target, public qtrc
subroutine, public atmos_phy_sf_driver(update_flag)
Driver.
integer, public ja
of whole cells: y, local, with HALO