14 #include "inc_openmp.h" 67 integer,
private,
parameter :: vmax = 2
68 integer,
private,
parameter :: i_sflx_rain = 1
69 integer,
private,
parameter :: i_sflx_snow = 2
71 character(len=H_SHORT),
private :: var_name(vmax)
72 character(len=H_MID),
private :: var_desc(vmax)
73 character(len=H_SHORT),
private :: var_unit(vmax)
75 data var_name /
'SFLX_rain', &
77 data var_desc /
'precipitation flux (liquid)', &
78 'precipitation flux (solid)' /
79 data var_unit /
'kg/m2/s', &
93 namelist / param_atmos_phy_mp_vars / &
105 if(
io_l )
write(
io_fid_log,*)
'++++++ Module[VARS] / Categ[ATMOS PHY_MP] / Origin[SCALE-RM]' 130 read(
io_fid_conf,nml=param_atmos_phy_mp_vars,iostat=ierr)
132 if(
io_l )
write(
io_fid_log,*)
'*** Not found namelist. Default used.' 133 elseif( ierr > 0 )
then 134 write(*,*)
'xxx Not appropriate names in namelist PARAM_ATMOS_PHY_MP_VARS. Check!' 140 if(
io_l )
write(
io_fid_log,*)
'*** [ATMOS_PHY_MP] prognostic/diagnostic variables' 142 '*** |',
'VARNAME ',
'|',
'DESCRIPTION ',
'[',
'UNIT ',
']' 145 '*** NO.',iv,
'|',var_name(iv),
'|',var_desc(iv),
'[',var_unit(iv),
']' 195 if(
io_l )
write(
io_fid_log,*)
'*** Input restart file (ATMOS_PHY_MP) ***' 210 if(
io_l )
write(
io_fid_log,*)
'*** restart file for ATMOS_PHY_MP is not specified.' 227 character(len=20) :: timelabel
228 character(len=H_LONG) :: basename
239 if(
io_l )
write(
io_fid_log,*)
'*** Output restart file (ATMOS_PHY_MP) ***' real(rp), dimension(:,:,:,:), allocatable, public atmos_phy_mp_rhoq_t
real(rp), dimension(:,:,:), allocatable, public atmos_phy_mp_momy_t
subroutine, public prc_mpistop
Abort MPI.
module Atmosphere / Physics Cloud Microphysics
logical, public io_l
output log or not? (this process)
character(len=h_long), public atmos_phy_mp_restart_in_basename
basename of the restart file
real(rp), dimension(:,:,:), allocatable, public atmos_phy_mp_momz_t
real(rp), dimension(:,:), allocatable, public atmos_phy_mp_sflx_rain
real(rp), public const_undef
character(len=h_mid), public atmos_phy_mp_restart_out_title
title of the output file
integer, public ia
of x whole cells (local, with HALO)
real(rp), dimension(:,:,:), allocatable, public atmos_phy_mp_rhot_t
subroutine, public time_gettimelabel(timelabel)
generate time label
integer, public ka
of z whole cells (local, with HALO)
character(len=h_long), public atmos_phy_mp_restart_out_basename
basename of the output file
real(rp), dimension(:,:,:), allocatable, public atmos_phy_mp_dens_t
logical, public atmos_phy_mp_restart_output
output restart file?
subroutine, public atmos_phy_mp_vars_fillhalo
HALO Communication.
character(len=h_mid), public atmos_phy_mp_restart_out_dtype
REAL4 or REAL8.
real(rp), dimension(:,:,:), allocatable, public atmos_phy_mp_evaporate
real(rp), dimension(:,:), allocatable, public atmos_phy_mp_sflx_snow
subroutine, public atmos_phy_mp_vars_setup
Setup.
subroutine, public atmos_phy_mp_vars_restart_write
Write restart.
subroutine, public atmos_phy_mp_vars_restart_read
Read restart.
logical, public io_lnml
output log or not? (for namelist, this process)
integer, public io_fid_conf
Config file ID.
integer, public io_fid_log
Log file ID.
real(rp), dimension(:,:,:), allocatable, public atmos_phy_mp_momx_t
integer, public ja
of y whole cells (local, with HALO)