13 #include "inc_openmp.h" 59 integer,
private,
parameter :: vmax = 1
60 integer,
private,
parameter :: i_o3 = 1
62 character(len=H_SHORT),
private :: var_name(vmax)
63 character(len=H_MID),
private :: var_desc(vmax)
64 character(len=H_SHORT),
private :: var_unit(vmax)
66 data var_name /
'O3' /
67 data var_desc /
'Ozone' /
68 data var_unit /
'PPM' /
81 namelist / param_atmos_phy_ch_vars / &
93 if(
io_l )
write(
io_fid_log,*)
'++++++ Module[VARS] / Categ[ATMOS PHY_CH] / Origin[SCALE-RM]' 103 read(
io_fid_conf,nml=param_atmos_phy_ch_vars,iostat=ierr)
105 if(
io_l )
write(
io_fid_log,*)
'*** Not found namelist. Default used.' 106 elseif( ierr > 0 )
then 107 write(*,*)
'xxx Not appropriate names in namelist PARAM_ATMOS_PHY_CH_VARS. Check!' 113 if(
io_l )
write(
io_fid_log,*)
'*** [ATMOS_PHY_CH] prognostic/diagnostic variables' 115 '*** |',
'VARNAME ',
'|',
'DESCRIPTION ',
'[',
'UNIT ',
']' 118 '*** NO.',iv,
'|',var_name(iv),
'|',var_desc(iv),
'[',var_unit(iv),
']' 175 if(
io_l )
write(
io_fid_log,*)
'*** Input restart file (ATMOS_PHY_CH) ***' 187 if(
io_l )
write(
io_fid_log,*)
'*** restart file for ATMOS_PHY_CH is not specified.' 202 character(len=20) :: timelabel
203 character(len=H_LONG) :: basename
212 if(
io_l )
write(
io_fid_log,*)
'*** Output restart file (ATMOS_PHY_CH) ***' integer, public is
start point of inner domain: x, local
character(len=h_mid), public atmos_phy_ch_restart_out_title
title of the output file
integer, public je
end point of inner domain: y, local
subroutine, public atmos_phy_ch_vars_setup
Setup.
subroutine, public prc_mpistop
Abort MPI.
logical, public io_l
output log or not? (this process)
integer, public ke
end point of inner domain: z, local
real(rp), dimension(:,:,:), allocatable, public atmos_phy_ch_o3
real(rp), public const_undef
integer, public ia
of x whole cells (local, with HALO)
subroutine, public time_gettimelabel(timelabel)
generate time label
subroutine, public atmos_phy_ch_vars_fillhalo
HALO Communication.
integer, public ka
of z whole cells (local, with HALO)
logical, public atmos_phy_ch_restart_output
output restart file?
character(len=h_long), public atmos_phy_ch_restart_out_basename
basename of the output file
integer, public js
start point of inner domain: y, local
character(len=h_mid), public atmos_phy_ch_restart_out_dtype
REAL4 or REAL8.
integer, public ks
start point of inner domain: z, local
real(rp), dimension(:,:,:,:), allocatable, public atmos_phy_ch_rhoq_t
module Atmosphere / Physics Chemistry
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_ch_vars_restart_write
Write restart.
integer, public io_fid_conf
Config file ID.
integer, public io_fid_log
Log file ID.
subroutine, public atmos_phy_ch_vars_restart_read
Read restart.
character(len=h_long), public atmos_phy_ch_restart_in_basename
basename of the restart file
integer, public ja
of y whole cells (local, with HALO)