13 #include "inc_openmp.h" 60 integer,
private,
parameter :: vmax = 1
61 integer,
private,
parameter :: i_ccn = 1
63 character(len=H_SHORT),
private :: var_name(vmax)
64 character(len=H_MID),
private :: var_desc(vmax)
65 character(len=H_SHORT),
private :: var_unit(vmax)
67 data var_name /
'CCN' /
68 data var_desc /
'cloud condensation nuclei' /
69 data var_unit /
'num/m3' /
82 namelist / param_atmos_phy_ae_vars / &
94 if(
io_l )
write(
io_fid_log,*)
'++++++ Module[VARS] / Categ[ATMOS PHY_AE] / Origin[SCALE-RM]' 110 read(
io_fid_conf,nml=param_atmos_phy_ae_vars,iostat=ierr)
112 if(
io_l )
write(
io_fid_log,*)
'*** Not found namelist. Default used.' 113 elseif( ierr > 0 )
then 114 write(*,*)
'xxx Not appropriate names in namelist PARAM_ATMOS_PHY_AE_VARS. Check!' 120 if(
io_l )
write(
io_fid_log,*)
'*** [ATMOS_PHY_AE] prognostic/diagnostic variables' 122 '*** |',
'VARNAME ',
'|',
'DESCRIPTION ',
'[',
'UNIT ',
']' 125 '*** NO.',iv,
'|',var_name(iv),
'|',var_desc(iv),
'[',var_unit(iv),
']' 182 if(
io_l )
write(
io_fid_log,*)
'*** Input restart file (ATMOS_PHY_AE) ***' 194 if(
io_l )
write(
io_fid_log,*)
'*** restart file for ATMOS_PHY_AE is not specified.' 209 character(len=20) :: timelabel
210 character(len=H_LONG) :: basename
219 if(
io_l )
write(
io_fid_log,*)
'*** Output restart file (ATMOS_PHY_AE) ***' character(len=h_long), public atmos_phy_ae_restart_in_basename
basename of the restart file
integer, public is
start point of inner domain: x, local
subroutine, public atmos_phy_ae_vars_fillhalo
HALO Communication.
integer, public je
end point of inner domain: y, local
subroutine, public prc_mpistop
Abort MPI.
logical, public io_l
output log or not? (this process)
logical, public atmos_phy_ae_restart_output
output restart file?
integer, public ke
end point of inner domain: z, local
real(rp), public const_undef
integer, public ia
of x whole cells (local, with HALO)
subroutine, public time_gettimelabel(timelabel)
generate time label
integer, public ka
of z whole cells (local, with HALO)
real(rp), dimension(:,:,:,:), allocatable, public atmos_phy_ae_emit
integer, public js
start point of inner domain: y, local
real(rp), dimension(:,:,:,:), allocatable, public atmos_phy_ae_rhoq_t
real(rp), dimension(:,:,:), allocatable, public atmos_phy_ae_ccn
character(len=h_mid), public atmos_phy_ae_restart_out_title
title of the output file
character(len=h_mid), public atmos_phy_ae_restart_out_dtype
REAL4 or REAL8.
integer, public ks
start point of inner domain: z, local
subroutine, public atmos_phy_ae_vars_setup
Setup.
subroutine, public atmos_phy_ae_vars_restart_read
Read restart.
integer, public ie
end point of inner domain: x, local
logical, public io_lnml
output log or not? (for namelist, this process)
subroutine, public atmos_phy_ae_vars_restart_write
Write restart.
integer, public io_fid_conf
Config file ID.
integer, public io_fid_log
Log file ID.
character(len=h_long), public atmos_phy_ae_restart_out_basename
basename of the output file
module ATMOSPHERE / Physics Aerosol Microphysics
real(rp), dimension(:,:,:), allocatable, public atmos_phy_ae_ccn_t
integer, public ja
of y whole cells (local, with HALO)