scale_tracer Module Reference

module TRACER More...

Functions/Subroutines
subroutine, public	tracer_setup
	Setup. More...

Variables
integer, public	qa
integer, public	qa_mp
integer, public	i_qv
integer, public	i_qc
integer, public	i_qr
integer, public	i_qi
integer, public	i_qs
integer, public	i_qg
integer, public	i_nc
integer, public	i_nr
integer, public	i_ni
integer, public	i_ns
integer, public	i_ng
integer, public	qqa
integer, public	qqs
integer, public	qqe
integer, public	qws
integer, public	qwe
integer, public	qis
integer, public	qie
integer, public	qa_ae
integer, public	ae_ctg
integer, public	gas_ctg
integer, public	n_atr
integer, dimension(:), allocatable, public	nkap
integer, dimension(:), allocatable, public	nsiz
integer, public	ic_mix
integer, public	ic_sea
integer, public	ic_dus
integer, public	ig_h2so4
integer, public	ig_cgas
integer, public	qaes
integer, public	qaee
character(len=h_short), dimension(:), allocatable, public	aq_name
character(len=h_short), dimension(:), allocatable, public	aq_mp_name
character(len=h_short), dimension(:), allocatable, public	aq_ae_name
character(len=h_mid), dimension(:), allocatable, public	aq_desc
character(len=h_mid), dimension(:), allocatable, public	aq_mp_desc
character(len=h_mid), dimension(:), allocatable, public	aq_ae_desc
character(len=h_short), dimension(:), allocatable, public	aq_unit
character(len=h_short), dimension(:), allocatable, public	aq_mp_unit
character(len=h_short), dimension(:), allocatable, public	aq_ae_unit
integer, public	mp_qa
integer, dimension(:), allocatable, public	i_mp2all
integer, dimension(:), allocatable, public	i_mp2rd
integer, public	ae_qa
integer, public	i_ae_dummy
integer, dimension(:), allocatable, public	i_ae2all
integer, dimension(:), allocatable, public	i_ae2rd
character(len=h_short), public	tracer_type = 'DRY'
character(len=h_short), public	aetracer_type = 'NONE'

Detailed Description

module TRACER

Description

Tracer module

Author

Team SCALE

History

• 2013-12-04 (S.Nishizawa) [new]

Function/Subroutine Documentation

tracer_setup()

subroutine, public scale_tracer::tracer_setup

(

)

Setup.

Definition at line 127 of file scale_tracer.F90.

References ae_ctg, ae_qa, scale_aetracer_kajino13::aetracer_kajino13_setup(), scale_aetracer_none::aetracer_none_setup(), aetracer_type, aq_ae_desc, aq_ae_name, aq_ae_unit, aq_desc, aq_mp_desc, aq_mp_name, aq_mp_unit, aq_name, aq_unit, gas_ctg, i_ae2all, i_ae2rd, i_ae_dummy, i_mp2all, i_mp2rd, i_nc, i_ng, i_ni, i_nr, i_ns, i_qc, i_qg, i_qi, i_qr, i_qs, i_qv, ic_dus, ic_mix, ic_sea, ig_cgas, ig_h2so4, scale_stdio::io_fid_conf, scale_stdio::io_fid_log, scale_stdio::io_l, mp_qa, n_atr, nkap, nsiz, scale_process::prc_mpistop(), qa, qa_ae, qa_mp, qaee, qaes, qie, qis, qqa, qqe, qqs, qwe, qws, scale_tracer_dry::tracer_dry_setup(), scale_tracer_kessler::tracer_kessler_setup(), scale_tracer_sdm::tracer_sdm_setup(), scale_tracer_sn14::tracer_sn14_setup(), scale_tracer_suzuki10::tracer_suzuki10_setup(), scale_tracer_tomita08::tracer_tomita08_setup(), and tracer_type.

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

#ifdef TRACER
#define EXTM2(name) scale_tracer_ ## name
#define _MODNAME(name) EXTM2(name)
#define EXTM3(name) tracer_ ## name ## _setup
#define _SETUP(name) EXTM3(name)
  use _modname(tracer), only: &
    _setup(tracer)
#else
  use scale_process, only: &
    prc_mpistop
  use scale_tracer_dry, only: &
    qa_mp_dry => qa_mp, &
    i_qv_dry => i_qv, &
    i_qc_dry => i_qc, &
    i_qr_dry => i_qr, &
    i_qi_dry => i_qi, &
    i_qs_dry => i_qs, &
    i_qg_dry => i_qg, &
    i_nc_dry => i_nc, &
    i_nr_dry => i_nr, &
    i_ni_dry => i_ni, &
    i_ns_dry => i_ns, &
    i_ng_dry => i_ng, &
    qqa_dry => qqa, &
    qqs_dry => qqs, &
    qqe_dry => qqe, &
    qws_dry => qws, &
    qwe_dry => qwe, &
    qis_dry => qis, &
    qie_dry => qie, &
    mp_qa_dry => mp_qa, &
    aq_mp_name_dry => aq_mp_name, &
    aq_mp_desc_dry => aq_mp_desc, &
    aq_mp_unit_dry => aq_mp_unit, &
    i_mp2all_dry => i_mp2all, &
    i_mp2rd_dry => i_mp2rd, &
    tracer_dry_setup
  use scale_tracer_kessler, only: &
    qa_mp_kessler => qa_mp, &
    i_qv_kessler => i_qv, &
    i_qc_kessler => i_qc, &
    i_qr_kessler => i_qr, &
    i_qi_kessler => i_qi, &
    i_qs_kessler => i_qs, &
    i_qg_kessler => i_qg, &
    i_nc_kessler => i_nc, &
    i_nr_kessler => i_nr, &
    i_ni_kessler => i_ni, &
    i_ns_kessler => i_ns, &
    i_ng_kessler => i_ng, &
    qqa_kessler => qqa, &
    qqs_kessler => qqs, &
    qqe_kessler => qqe, &
    qws_kessler => qws, &
    qwe_kessler => qwe, &
    qis_kessler => qis, &
    qie_kessler => qie, &
    mp_qa_kessler => mp_qa, &
    aq_mp_name_kessler => aq_mp_name, &
    aq_mp_desc_kessler => aq_mp_desc, &
    aq_mp_unit_kessler => aq_mp_unit, &
    i_mp2all_kessler => i_mp2all, &
    i_mp2rd_kessler => i_mp2rd, &
    tracer_kessler_setup
  use scale_tracer_tomita08, only: &
    qa_mp_tomita08 => qa_mp, &
    i_qv_tomita08 => i_qv, &
    i_qc_tomita08 => i_qc, &
    i_qr_tomita08 => i_qr, &
    i_qi_tomita08 => i_qi, &
    i_qs_tomita08 => i_qs, &
    i_qg_tomita08 => i_qg, &
    i_nc_tomita08 => i_nc, &
    i_nr_tomita08 => i_nr, &
    i_ni_tomita08 => i_ni, &
    i_ns_tomita08 => i_ns, &
    i_ng_tomita08 => i_ng, &
    qqa_tomita08 => qqa, &
    qqs_tomita08 => qqs, &
    qqe_tomita08 => qqe, &
    qws_tomita08 => qws, &
    qwe_tomita08 => qwe, &
    qis_tomita08 => qis, &
    qie_tomita08 => qie, &
    mp_qa_tomita08 => mp_qa, &
    aq_mp_name_tomita08 => aq_mp_name, &
    aq_mp_desc_tomita08 => aq_mp_desc, &
    aq_mp_unit_tomita08 => aq_mp_unit, &
    i_mp2all_tomita08 => i_mp2all, &
    i_mp2rd_tomita08 => i_mp2rd, &
    tracer_tomita08_setup
  use scale_tracer_sn14, only: &
    qa_mp_sn14 => qa_mp, &
    i_qv_sn14 => i_qv, &
    i_qc_sn14 => i_qc, &
    i_qr_sn14 => i_qr, &
    i_qi_sn14 => i_qi, &
    i_qs_sn14 => i_qs, &
    i_qg_sn14 => i_qg, &
    i_nc_sn14 => i_nc, &
    i_nr_sn14 => i_nr, &
    i_ni_sn14 => i_ni, &
    i_ns_sn14 => i_ns, &
    i_ng_sn14 => i_ng, &
    qqa_sn14 => qqa, &
    qqs_sn14 => qqs, &
    qqe_sn14 => qqe, &
    qws_sn14 => qws, &
    qwe_sn14 => qwe, &
    qis_sn14 => qis, &
    qie_sn14 => qie, &
    mp_qa_sn14 => mp_qa, &
    aq_mp_name_sn14 => aq_mp_name, &
    aq_mp_desc_sn14 => aq_mp_desc, &
    aq_mp_unit_sn14 => aq_mp_unit, &
    i_mp2all_sn14 => i_mp2all, &
    i_mp2rd_sn14 => i_mp2rd, &
    tracer_sn14_setup
  use scale_tracer_suzuki10, only: &
    qa_mp_suzuki10 => qa_mp, &
    i_qv_suzuki10 => i_qv, &
    i_qc_suzuki10 => i_qc, &
    i_qr_suzuki10 => i_qr, &
    i_qi_suzuki10 => i_qi, &
    i_qs_suzuki10 => i_qs, &
    i_qg_suzuki10 => i_qg, &
    i_nc_suzuki10 => i_nc, &
    i_nr_suzuki10 => i_nr, &
    i_ni_suzuki10 => i_ni, &
    i_ns_suzuki10 => i_ns, &
    i_ng_suzuki10 => i_ng, &
    qqa_suzuki10 => qqa, &
    qqs_suzuki10 => qqs, &
    qqe_suzuki10 => qqe, &
    qws_suzuki10 => qws, &
    qwe_suzuki10 => qwe, &
    qis_suzuki10 => qis, &
    qie_suzuki10 => qie, &
    mp_qa_suzuki10 => mp_qa, &
    aq_mp_name_suzuki10 => aq_mp_name, &
    aq_mp_desc_suzuki10 => aq_mp_desc, &
    aq_mp_unit_suzuki10 => aq_mp_unit, &
    i_mp2all_suzuki10 => i_mp2all, &
    i_mp2rd_suzuki10 => i_mp2rd, &
    tracer_suzuki10_setup
  use scale_tracer_sdm, only: &
    qa_mp_sdm => qa_mp, &
    i_qv_sdm => i_qv, &
    i_qc_sdm => i_qc, &
    i_qr_sdm => i_qr, &
    i_qi_sdm => i_qi, &
    i_qs_sdm => i_qs, &
    i_qg_sdm => i_qg, &
    i_nc_sdm => i_nc, &
    i_nr_sdm => i_nr, &
    i_ni_sdm => i_ni, &
    i_ns_sdm => i_ns, &
    i_ng_sdm => i_ng, &
    qqa_sdm => qqa, &
    qqs_sdm => qqs, &
    qqe_sdm => qqe, &
    qws_sdm => qws, &
    qwe_sdm => qwe, &
    qis_sdm => qis, &
    qie_sdm => qie, &
    mp_qa_sdm => mp_qa, &
    aq_mp_name_sdm => aq_mp_name, &
    aq_mp_desc_sdm => aq_mp_desc, &
    aq_mp_unit_sdm => aq_mp_unit, &
    i_mp2all_sdm => i_mp2all, &
    i_mp2rd_sdm => i_mp2rd, &
    tracer_sdm_setup
  use scale_aetracer_none, only: &
    qa_ae_none => qa_ae, &
    ae_ctg_none => ae_ctg, &
    n_atr_none => n_atr, &
    gas_ctg_none => gas_ctg, &
    nsiz_none => nsiz, &
    nkap_none => nkap, &
    ic_mix_none => ic_mix, &
    ic_sea_none => ic_sea, &
    ic_dus_none => ic_dus, &
    ig_h2so4_none => ig_h2so4, &
    ig_cgas_none => ig_cgas, &
    ae_qa_none => ae_qa, &
    i_ae_dummy_none => i_ae_dummy, &
    aq_ae_name_none => aq_ae_name, &
    aq_ae_desc_none => aq_ae_desc, &
    aq_ae_unit_none => aq_ae_unit, &
    i_ae2all_none => i_ae2all, &
    i_ae2rd_none => i_ae2rd, &
    aetracer_none_setup
  use scale_aetracer_kajino13, only: &
    qa_ae_kajino13 => qa_ae, &
    ae_ctg_kajino13 => ae_ctg, &
    n_atr_kajino13 => n_atr, &
    gas_ctg_kajino13 => gas_ctg, &
    nsiz_kajino13 => nsiz, &
    nkap_kajino13 => nkap, &
    ic_mix_kajino13 => ic_mix, &
    ic_sea_kajino13 => ic_sea, &
    ic_dus_kajino13 => ic_dus, &
    ig_h2so4_kajino13 => ig_h2so4, &
    ig_cgas_kajino13 => ig_cgas, &
    ae_qa_kajino13 => ae_qa, &
    i_ae_dummy_kajino13 => i_ae_dummy, &
    aq_ae_name_kajino13 => aq_ae_name, &
    aq_ae_desc_kajino13 => aq_ae_desc, &
    aq_ae_unit_kajino13 => aq_ae_unit, &
    i_ae2all_kajino13 => i_ae2all, &
    i_ae2rd_kajino13 => i_ae2rd, &
    aetracer_kajino13_setup
#endif
    implicit none
#ifndef TRACER
    namelist / param_tracer / &
         tracer_type, &
         aetracer_type
#endif

    integer :: ierr
    !---------------------------------------------------------------------------

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '+++ Module[TRACER]/Categ[COMMON]'

#ifdef TRACER
    call _setup(tracer)
#else
    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_tracer,iostat=ierr)

    if( ierr < 0 ) then !--- missing
       if( io_l ) write(io_fid_log,*) '*** Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       write(*,*) 'xxx Not appropriate names in namelist PARAM_TRACER. Check!'
       call prc_mpistop
    endif
    if( io_l ) write(io_fid_log,nml=param_tracer)

    select case (tracer_type)
    case ("DRY")
       call tracer_dry_setup
       qa_mp = qa_mp_dry
       i_qv = i_qv_dry
       i_qc = i_qc_dry
       i_qr = i_qr_dry
       i_qi = i_qi_dry
       i_qs = i_qs_dry
       i_qg = i_qg_dry
       i_nc = i_nc_dry
       i_nr = i_nr_dry
       i_ni = i_ni_dry
       i_ns = i_ns_dry
       i_ng = i_ng_dry
       qqa = qqa_dry
       qqs = qqs_dry
       qqe = qqe_dry
       qws = qws_dry
       qwe = qwe_dry
       qis = qis_dry
       qie = qie_dry
       mp_qa = mp_qa_dry
       allocate( aq_mp_name(qa_mp) )
       allocate( aq_mp_desc(qa_mp) )
       allocate( aq_mp_unit(qa_mp) )
       allocate( i_mp2all(mp_qa) )
       allocate( i_mp2rd(mp_qa) )
       aq_mp_name = aq_mp_name_dry
       aq_mp_desc = aq_mp_desc_dry
       aq_mp_unit = aq_mp_unit_dry
       i_mp2all = i_mp2all_dry
       i_mp2rd = i_mp2rd_dry
    case ("KESSLER")
       call tracer_kessler_setup
       qa_mp = qa_mp_kessler
       i_qv = i_qv_kessler
       i_qc = i_qc_kessler
       i_qr = i_qr_kessler
       i_qi = i_qi_kessler
       i_qs = i_qs_kessler
       i_qg = i_qg_kessler
       i_nc = i_nc_kessler
       i_nr = i_nr_kessler
       i_ni = i_ni_kessler
       i_ns = i_ns_kessler
       i_ng = i_ng_kessler
       qqa = qqa_kessler
       qqs = qqs_kessler
       qqe = qqe_kessler
       qws = qws_kessler
       qwe = qwe_kessler
       qis = qis_kessler
       qie = qie_kessler
       mp_qa = mp_qa_kessler
       allocate( aq_mp_name(qa_mp) )
       allocate( aq_mp_desc(qa_mp) )
       allocate( aq_mp_unit(qa_mp) )
       allocate( i_mp2all(mp_qa) )
       allocate( i_mp2rd(mp_qa) )
       aq_mp_name = aq_mp_name_kessler
       aq_mp_desc = aq_mp_desc_kessler
       aq_mp_unit = aq_mp_unit_kessler
       i_mp2all = i_mp2all_kessler
       i_mp2rd = i_mp2rd_kessler
    case ("TOMITA08")
       call tracer_tomita08_setup
       qa_mp = qa_mp_tomita08
       i_qv = i_qv_tomita08
       i_qc = i_qc_tomita08
       i_qr = i_qr_tomita08
       i_qi = i_qi_tomita08
       i_qs = i_qs_tomita08
       i_qg = i_qg_tomita08
       i_nc = i_nc_tomita08
       i_nr = i_nr_tomita08
       i_ni = i_ni_tomita08
       i_ns = i_ns_tomita08
       i_ng = i_ng_tomita08
       qqa = qqa_tomita08
       qqs = qqs_tomita08
       qqe = qqe_tomita08
       qws = qws_tomita08
       qwe = qwe_tomita08
       qis = qis_tomita08
       qie = qie_tomita08
       mp_qa = mp_qa_tomita08
       allocate( aq_mp_name(qa_mp) )
       allocate( aq_mp_desc(qa_mp) )
       allocate( aq_mp_unit(qa_mp) )
       allocate( i_mp2all(mp_qa) )
       allocate( i_mp2rd(mp_qa) )
       aq_mp_name = aq_mp_name_tomita08
       aq_mp_desc = aq_mp_desc_tomita08
       aq_mp_unit = aq_mp_unit_tomita08
       i_mp2all = i_mp2all_tomita08
       i_mp2rd = i_mp2rd_tomita08
    case ("SN14")
       call tracer_sn14_setup
       qa_mp = qa_mp_sn14
       i_qv = i_qv_sn14
       i_qc = i_qc_sn14
       i_qr = i_qr_sn14
       i_qi = i_qi_sn14
       i_qs = i_qs_sn14
       i_qg = i_qg_sn14
       i_nc = i_nc_sn14
       i_nr = i_nr_sn14
       i_ni = i_ni_sn14
       i_ns = i_ns_sn14
       i_ng = i_ng_sn14
       qqa = qqa_sn14
       qqs = qqs_sn14
       qqe = qqe_sn14
       qws = qws_sn14
       qwe = qwe_sn14
       qis = qis_sn14
       qie = qie_sn14
       mp_qa = mp_qa_sn14
       allocate( aq_mp_name(qa_mp) )
       allocate( aq_mp_desc(qa_mp) )
       allocate( aq_mp_unit(qa_mp) )
       allocate( i_mp2all(mp_qa) )
       allocate( i_mp2rd(mp_qa) )
       aq_mp_name = aq_mp_name_sn14
       aq_mp_desc = aq_mp_desc_sn14
       aq_mp_unit = aq_mp_unit_sn14
       i_mp2all = i_mp2all_sn14
       i_mp2rd = i_mp2rd_sn14
    case ("SUZUKI10")
       call tracer_suzuki10_setup
       qa_mp = qa_mp_suzuki10
       i_qv = i_qv_suzuki10
       i_qc = i_qc_suzuki10
       i_qr = i_qr_suzuki10
       i_qi = i_qi_suzuki10
       i_qs = i_qs_suzuki10
       i_qg = i_qg_suzuki10
       i_nc = i_nc_suzuki10
       i_nr = i_nr_suzuki10
       i_ni = i_ni_suzuki10
       i_ns = i_ns_suzuki10
       i_ng = i_ng_suzuki10
       qqa = qqa_suzuki10
       qqs = qqs_suzuki10
       qqe = qqe_suzuki10
       qws = qws_suzuki10
       qwe = qwe_suzuki10
       qis = qis_suzuki10
       qie = qie_suzuki10
       mp_qa = mp_qa_suzuki10
       allocate( aq_mp_name(qa_mp) )
       allocate( aq_mp_desc(qa_mp) )
       allocate( aq_mp_unit(qa_mp) )
       allocate( i_mp2all(mp_qa) )
       allocate( i_mp2rd(mp_qa) )
       aq_mp_name = aq_mp_name_suzuki10
       aq_mp_desc = aq_mp_desc_suzuki10
       aq_mp_unit = aq_mp_unit_suzuki10
       i_mp2all = i_mp2all_suzuki10
       i_mp2rd = i_mp2rd_suzuki10
    case ("SDM")
       call tracer_sdm_setup
       qa_mp = qa_mp_sdm
       i_qv = i_qv_sdm
       i_qc = i_qc_sdm
       i_qr = i_qr_sdm
       i_qi = i_qi_sdm
       i_qs = i_qs_sdm
       i_qg = i_qg_sdm
       i_nc = i_nc_sdm
       i_nr = i_nr_sdm
       i_ni = i_ni_sdm
       i_ns = i_ns_sdm
       i_ng = i_ng_sdm
       qqa = qqa_sdm
       qqs = qqs_sdm
       qqe = qqe_sdm
       qws = qws_sdm
       qwe = qwe_sdm
       qis = qis_sdm
       qie = qie_sdm
       mp_qa = mp_qa_sdm
       allocate( aq_mp_name(qa_mp) )
       allocate( aq_mp_desc(qa_mp) )
       allocate( aq_mp_unit(qa_mp) )
       allocate( i_mp2all(mp_qa) )
       allocate( i_mp2rd(mp_qa) )
       aq_mp_name = aq_mp_name_sdm
       aq_mp_desc = aq_mp_desc_sdm
       aq_mp_unit = aq_mp_unit_sdm
       i_mp2all = i_mp2all_sdm
       i_mp2rd = i_mp2rd_sdm
     case default
        write(*,*) 'xxx Unsupported TRACER_TYPE (', trim(tracer_type), '). Check!'
        call prc_mpistop
     end select
     select case (aetracer_type)
     case ("NONE")
       call aetracer_none_setup
       qa_ae = qa_ae_none
       ae_ctg = ae_ctg_none
       n_atr = n_atr_none
       gas_ctg = gas_ctg_none
       allocate( nsiz(ae_ctg) )
       allocate( nkap(ae_ctg) )
       nsiz = nsiz_none
       nkap = nkap_none
       ic_mix = ic_mix_none
       ic_sea = ic_sea_none
       ic_dus = ic_dus_none
       ig_h2so4 = ig_h2so4_none
       ig_cgas = ig_cgas_none
       ae_qa = ae_qa_none
       i_ae_dummy = i_ae_dummy_none
       allocate( aq_ae_name(qa_ae) )
       allocate( aq_ae_desc(qa_ae) )
       allocate( aq_ae_unit(qa_ae) )
       allocate( i_ae2all(ae_qa) )
       allocate( i_ae2rd(ae_qa) )
       aq_ae_name = aq_ae_name_none
       aq_ae_desc = aq_ae_desc_none
       aq_ae_unit = aq_ae_unit_none
       i_ae2all = i_ae2all_none
       i_ae2rd = i_ae2rd_none
     case ("KAJINO13")
       call aetracer_kajino13_setup
       qa_ae = qa_ae_kajino13
       ae_ctg = ae_ctg_kajino13
       n_atr = n_atr_kajino13
       gas_ctg = gas_ctg_kajino13
       allocate( nsiz(ae_ctg) )
       allocate( nkap(ae_ctg) )
       nsiz = nsiz_kajino13
       nkap = nkap_kajino13
       ic_mix = ic_mix_kajino13
       ic_sea = ic_sea_kajino13
       ic_dus = ic_dus_kajino13
       ig_h2so4 = ig_h2so4_kajino13
       ig_cgas = ig_cgas_kajino13
       ae_qa = ae_qa_kajino13
       i_ae_dummy = i_ae_dummy_kajino13
       allocate( aq_ae_name(qa_ae) )
       allocate( aq_ae_desc(qa_ae) )
       allocate( aq_ae_unit(qa_ae) )
       allocate( i_ae2all(ae_qa) )
       allocate( i_ae2rd(ae_qa) )
       aq_ae_name = aq_ae_name_kajino13
       aq_ae_desc = aq_ae_desc_kajino13
       aq_ae_unit = aq_ae_unit_kajino13
       i_ae2all = i_ae2all_kajino13
       i_ae2rd = i_ae2rd_kajino13
     case default
        write(*,*) 'xxx Unsupported AETRACER_TYPE (', trim(aetracer_type), '). Check!'
        call prc_mpistop
     end select
     qaes = qa_mp+1
     qaee = qa_mp+qa_ae
     qa = qa_mp + qa_ae
     allocate( aq_name(qa) )
     allocate( aq_desc(qa) )
     allocate( aq_unit(qa) )
     aq_name(1:qa_mp) = aq_mp_name(1:qa_mp)
     aq_desc(1:qa_mp) = aq_mp_desc(1:qa_mp)
     aq_unit(1:qa_mp) = aq_mp_unit(1:qa_mp)
     aq_name(qa_mp+1:qa_mp+qa_ae) = aq_ae_name(1:qa_ae)
     aq_desc(qa_mp+1:qa_mp+qa_ae) = aq_ae_desc(1:qa_ae)
     aq_unit(qa_mp+1:qa_mp+qa_ae) = aq_ae_unit(1:qa_ae)
#endif

    return

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

qa

integer, public scale_tracer::qa

Definition at line 44 of file scale_tracer.F90.

Referenced by scale_atmos_boundary::atmos_boundary_setup(), scale_atmos_boundary::atmos_boundary_update(), scale_atmos_dyn::atmos_dyn(), scale_atmos_dyn::atmos_dyn_setup(), scale_atmos_dyn_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve(), scale_atmos_dyn_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve_setup(), mod_atmos_phy_ae_driver::atmos_phy_ae_driver(), scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13(), mod_atmos_phy_ae_vars::atmos_phy_ae_vars_setup(), mod_atmos_phy_ch_driver::atmos_phy_ch_driver(), mod_atmos_phy_ch_vars::atmos_phy_ch_vars_setup(), mod_atmos_phy_cp_driver::atmos_phy_cp_driver(), mod_atmos_phy_cp_vars::atmos_phy_cp_vars_fillhalo(), mod_atmos_phy_cp_vars::atmos_phy_cp_vars_restart_def_var(), mod_atmos_phy_cp_vars::atmos_phy_cp_vars_restart_read(), mod_atmos_phy_cp_vars::atmos_phy_cp_vars_restart_write(), mod_atmos_phy_cp_vars::atmos_phy_cp_vars_restart_write_var(), mod_atmos_phy_cp_vars::atmos_phy_cp_vars_setup(), scale_atmos_phy_mp_convert::atmos_phy_mp_bulk2bin(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver(), scale_atmos_phy_mp_dry::atmos_phy_mp_dry(), scale_atmos_phy_mp_dry::atmos_phy_mp_dry_cloudfraction(), scale_atmos_phy_mp_dry::atmos_phy_mp_dry_effectiveradius(), scale_atmos_phy_mp_dry::atmos_phy_mp_dry_mixingratio(), scale_atmos_phy_mp_kessler::atmos_phy_mp_kessler(), scale_atmos_phy_mp_kessler::atmos_phy_mp_kessler_cloudfraction(), scale_atmos_phy_mp_kessler::atmos_phy_mp_kessler_effectiveradius(), scale_atmos_phy_mp_kessler::atmos_phy_mp_kessler_mixingratio(), scale_atmos_phy_mp_common::atmos_phy_mp_precipitation(), scale_atmos_phy_mp_sdm::atmos_phy_mp_sdm(), scale_atmos_phy_mp_sdm::atmos_phy_mp_sdm_cloudfraction(), scale_atmos_phy_mp_sdm::atmos_phy_mp_sdm_effectiveradius(), scale_atmos_phy_mp_sdm::atmos_phy_mp_sdm_mixingratio(), scale_atmos_phy_mp_sn14::atmos_phy_mp_sn14(), scale_atmos_phy_mp_sn14::atmos_phy_mp_sn14_cloudfraction(), scale_atmos_phy_mp_sn14::atmos_phy_mp_sn14_effectiveradius(), scale_atmos_phy_mp_sn14::atmos_phy_mp_sn14_mixingratio(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_cloudfraction(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_effectiveradius(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_mixingratio(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_setup(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08_cloudfraction(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08_effectiveradius(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08_mixingratio(), mod_atmos_phy_mp_vars::atmos_phy_mp_vars_setup(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_setup(), scale_atmos_phy_tb_d1980::atmos_phy_tb_d1980(), scale_atmos_phy_tb_dns::atmos_phy_tb_dns(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver(), scale_atmos_phy_tb_hybrid::atmos_phy_tb_hybrid(), scale_atmos_phy_tb_mynn::atmos_phy_tb_mynn(), scale_atmos_phy_tb_smg::atmos_phy_tb_smg(), mod_atmos_phy_tb_vars::atmos_phy_tb_vars_setup(), mod_atmos_vars::atmos_vars_fillhalo(), mod_atmos_vars::atmos_vars_history(), mod_atmos_vars::atmos_vars_monitor(), mod_atmos_vars::atmos_vars_restart_check(), mod_atmos_vars::atmos_vars_restart_create(), mod_atmos_vars::atmos_vars_restart_def_var(), mod_atmos_vars::atmos_vars_restart_read(), mod_atmos_vars::atmos_vars_restart_write(), mod_atmos_vars::atmos_vars_restart_write_var(), mod_atmos_vars::atmos_vars_setup(), mod_atmos_vars::atmos_vars_total(), scale_comm::comm_setup(), scale_atmos_phy_cp_kf::cp_kf_main(), mod_cpl_vars::cpl_getsfc_atm(), mod_mkinit::diag_ds(), mod_mkinit::mkinit(), scale_atmos_phy_mp_sn14::mp_negativefilter(), scale_grid_nest::nest_setup(), mod_realinput_scale::parentatominputscale(), mod_realinput_wrfarw::parentatominputwrfarw(), mod_realinput::parentatomsetup(), mod_mkinit::read_sounding(), mod_realinput::realinput_atmos(), and tracer_setup().

  integer, public :: qa

qa_mp

integer, public scale_tracer::qa_mp

Definition at line 46 of file scale_tracer.F90.

Referenced by tracer_setup().

  integer, public :: qa_mp

i_qv

integer, public scale_tracer::i_qv

Definition at line 47 of file scale_tracer.F90.

Referenced by scale_atmos_adiabat::atmos_adiabat_cape(), scale_atmos_adiabat::atmos_adiabat_liftparcel(), scale_atmos_boundary::atmos_boundary_setup(), scale_atmos_dyn_common::atmos_dyn_numfilter_coef_q(), scale_atmos_dyn_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve(), scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13(), scale_atmos_phy_mp_convert::atmos_phy_mp_bulk2bin(), scale_atmos_phy_mp_common::atmos_phy_mp_negative_fixer(), scale_atmos_phy_mp_common::atmos_phy_mp_precipitation(), scale_atmos_phy_mp_common::atmos_phy_mp_saturation_adjustment(), mod_atmos_phy_rd_driver::atmos_phy_rd_driver(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx(), scale_atmos_phy_sf_bulk::atmos_phy_sf_bulk(), scale_atmos_phy_sf_const::atmos_phy_sf_const(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver(), scale_atmos_phy_tb_mynn::atmos_phy_tb_mynn(), scale_atmos_refstate::atmos_refstate_update(), scale_atmos_thermodyn::atmos_thermodyn_qd_0d(), scale_atmos_thermodyn::atmos_thermodyn_setup(), scale_atmos_thermodyn::atmos_thermodyn_tempre(), scale_atmos_thermodyn::atmos_thermodyn_tempre2(), mod_atmos_vars::atmos_vars_history(), mod_atmos_vars::atmos_vars_monitor(), mod_atmos_vars::atmos_vars_total(), scale_atmos_phy_cp_kf::cp_kf_main(), mod_cpl_vars::cpl_getsfc_atm(), mod_cpl_vars::cpl_putatm(), mod_mkinit::interporation_fact(), scale_grid_nest::nest_setup(), mod_realinput_nicam::parentatominputnicam(), mod_realinput_wrfarw::parentatominputwrfarw(), mod_realinput::parentatomsetup(), mod_mkinit::read_sounding(), mod_mkinit::rect_setup(), and tracer_setup().

  integer, public :: i_qv

i_qc

integer, public scale_tracer::i_qc

Definition at line 48 of file scale_tracer.F90.

Referenced by scale_atmos_adiabat::atmos_adiabat_liftparcel(), scale_atmos_phy_mp_convert::atmos_phy_mp_bulk2bin(), scale_atmos_phy_mp_common::atmos_phy_mp_precipitation(), scale_atmos_phy_mp_common::atmos_phy_mp_saturation_adjustment(), mod_atmos_phy_rd_driver::atmos_phy_rd_driver(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver(), scale_atmos_phy_tb_mynn::atmos_phy_tb_mynn(), scale_atmos_thermodyn::atmos_thermodyn_qd_0d(), mod_atmos_vars::atmos_vars_history(), scale_atmos_phy_cp_kf::cp_kf_main(), mod_realinput_wrfarw::parentatominputwrfarw(), mod_realinput::parentatomsetup(), mod_mkinit::read_sounding(), mod_realinput::replace_misval_map(), and tracer_setup().

  integer, public :: i_qc

i_qr

integer, public scale_tracer::i_qr

Definition at line 49 of file scale_tracer.F90.

Referenced by scale_atmos_phy_mp_convert::atmos_phy_mp_bulk2bin(), mod_atmos_phy_rd_driver::atmos_phy_rd_driver(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver(), scale_atmos_thermodyn::atmos_thermodyn_qd_0d(), scale_atmos_phy_cp_kf::cp_kf_main(), mod_realinput_wrfarw::parentatominputwrfarw(), mod_realinput::replace_misval_map(), and tracer_setup().

  integer, public :: i_qr

i_qi

integer, public scale_tracer::i_qi

Definition at line 50 of file scale_tracer.F90.

Referenced by scale_atmos_phy_mp_convert::atmos_phy_mp_bulk2bin(), scale_atmos_phy_mp_common::atmos_phy_mp_saturation_adjustment(), mod_atmos_phy_rd_driver::atmos_phy_rd_driver(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver(), scale_atmos_phy_tb_mynn::atmos_phy_tb_mynn(), scale_atmos_thermodyn::atmos_thermodyn_qd_0d(), scale_atmos_phy_cp_kf::cp_kf_main(), mod_realinput_wrfarw::parentatominputwrfarw(), mod_realinput::replace_misval_map(), and tracer_setup().

  integer, public :: i_qi

i_qs

integer, public scale_tracer::i_qs

Definition at line 51 of file scale_tracer.F90.

Referenced by scale_atmos_phy_mp_convert::atmos_phy_mp_bulk2bin(), mod_atmos_phy_rd_driver::atmos_phy_rd_driver(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver(), scale_atmos_thermodyn::atmos_thermodyn_qd_0d(), scale_atmos_phy_cp_kf::cp_kf_main(), mod_realinput_wrfarw::parentatominputwrfarw(), mod_realinput::replace_misval_map(), and tracer_setup().

  integer, public :: i_qs

i_qg

integer, public scale_tracer::i_qg

Definition at line 52 of file scale_tracer.F90.

Referenced by scale_atmos_phy_mp_convert::atmos_phy_mp_bulk2bin(), mod_atmos_phy_rd_driver::atmos_phy_rd_driver(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver(), scale_atmos_thermodyn::atmos_thermodyn_qd_0d(), mod_realinput_wrfarw::parentatominputwrfarw(), mod_realinput::replace_misval_map(), and tracer_setup().

  integer, public :: i_qg

i_nc

integer, public scale_tracer::i_nc

Definition at line 53 of file scale_tracer.F90.

Referenced by mod_realinput_wrfarw::parentatominputwrfarw(), mod_mkinit::read_sounding(), mod_realinput::replace_misval_map(), and tracer_setup().

  integer, public :: i_nc

i_nr

integer, public scale_tracer::i_nr

Definition at line 54 of file scale_tracer.F90.

Referenced by mod_realinput_wrfarw::parentatominputwrfarw(), mod_realinput::replace_misval_map(), and tracer_setup().

  integer, public :: i_nr

i_ni

integer, public scale_tracer::i_ni

Definition at line 55 of file scale_tracer.F90.

Referenced by mod_realinput_wrfarw::parentatominputwrfarw(), mod_realinput::replace_misval_map(), and tracer_setup().

  integer, public :: i_ni

i_ns

integer, public scale_tracer::i_ns

Definition at line 56 of file scale_tracer.F90.

Referenced by mod_realinput_wrfarw::parentatominputwrfarw(), mod_realinput::replace_misval_map(), and tracer_setup().

  integer, public :: i_ns

i_ng

integer, public scale_tracer::i_ng

Definition at line 57 of file scale_tracer.F90.

Referenced by mod_realinput_wrfarw::parentatominputwrfarw(), mod_realinput::replace_misval_map(), and tracer_setup().

  integer, public :: i_ng

qqa

integer, public scale_tracer::qqa

Definition at line 59 of file scale_tracer.F90.

Referenced by scale_atmos_thermodyn::atmos_thermodyn_setup(), mod_mkinit::diag_ds(), mod_mkinit::read_sounding(), and tracer_setup().

  integer, public :: qqa ! mass tracer (water)

qqs

integer, public scale_tracer::qqs

Definition at line 60 of file scale_tracer.F90.

Referenced by scale_atmos_adiabat::atmos_adiabat_liftparcel(), scale_atmos_dyn_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve(), scale_atmos_phy_mp_common::atmos_phy_mp_negative_fixer(), scale_atmos_phy_mp_common::atmos_phy_mp_saturation_adjustment(), scale_atmos_phy_tb_mynn::atmos_phy_tb_mynn(), scale_atmos_thermodyn::atmos_thermodyn_qd_0d(), mod_atmos_vars::atmos_vars_history(), mod_atmos_vars::atmos_vars_monitor(), mod_atmos_vars::atmos_vars_total(), scale_atmos_phy_cp_kf::cp_kf_main(), mod_mkinit::rect_setup(), and tracer_setup().

  integer, public :: qqs ! start index for mass tracer

qqe

integer, public scale_tracer::qqe

Definition at line 61 of file scale_tracer.F90.

Referenced by scale_atmos_adiabat::atmos_adiabat_liftparcel(), scale_atmos_dyn_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve(), scale_atmos_phy_mp_common::atmos_phy_mp_negative_fixer(), scale_atmos_phy_mp_common::atmos_phy_mp_precipitation(), scale_atmos_phy_mp_common::atmos_phy_mp_saturation_adjustment(), scale_atmos_phy_tb_mynn::atmos_phy_tb_mynn(), scale_atmos_thermodyn::atmos_thermodyn_qd_0d(), mod_atmos_vars::atmos_vars_history(), mod_atmos_vars::atmos_vars_monitor(), mod_atmos_vars::atmos_vars_total(), scale_atmos_phy_cp_kf::cp_kf_main(), mod_mkinit::rect_setup(), and tracer_setup().

  integer, public :: qqe ! end   index for mass tracer

qws

integer, public scale_tracer::qws

Definition at line 63 of file scale_tracer.F90.

Referenced by scale_atmos_phy_mp_common::atmos_phy_mp_precipitation(), scale_atmos_thermodyn::atmos_thermodyn_setup(), mod_atmos_vars::atmos_vars_history(), mod_realinput::parentatomsetup(), and tracer_setup().

  integer, public :: qws ! start index for water tracer

qwe

integer, public scale_tracer::qwe

Definition at line 64 of file scale_tracer.F90.

Referenced by scale_atmos_phy_mp_common::atmos_phy_mp_precipitation(), scale_atmos_thermodyn::atmos_thermodyn_setup(), mod_atmos_vars::atmos_vars_history(), mod_realinput::parentatomsetup(), and tracer_setup().

  integer, public :: qwe ! end   index for water tracer

qis

integer, public scale_tracer::qis

Definition at line 65 of file scale_tracer.F90.

Referenced by scale_atmos_phy_mp_common::atmos_phy_mp_precipitation(), scale_atmos_thermodyn::atmos_thermodyn_setup(), mod_atmos_vars::atmos_vars_history(), mod_atmos_vars::atmos_vars_monitor(), mod_atmos_vars::atmos_vars_total(), and tracer_setup().

  integer, public :: qis ! start index for ice tracer

qie

integer, public scale_tracer::qie

Definition at line 66 of file scale_tracer.F90.

Referenced by scale_atmos_phy_mp_common::atmos_phy_mp_precipitation(), scale_atmos_thermodyn::atmos_thermodyn_setup(), mod_atmos_vars::atmos_vars_history(), mod_atmos_vars::atmos_vars_monitor(), mod_atmos_vars::atmos_vars_total(), and tracer_setup().

  integer, public :: qie ! end   index for ice tracer

qa_ae

integer, public scale_tracer::qa_ae

Definition at line 68 of file scale_tracer.F90.

Referenced by scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13(), mod_atmos_phy_ae_vars::atmos_phy_ae_vars_setup(), and tracer_setup().

  integer, public :: qa_ae   ! number of tracer for aerosol

ae_ctg

integer, public scale_tracer::ae_ctg

Definition at line 69 of file scale_tracer.F90.

Referenced by scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13_setup(), mod_mkinit::rect_setup(), and tracer_setup().

  integer, public :: ae_ctg  ! category number of aerosol

gas_ctg

integer, public scale_tracer::gas_ctg

Definition at line 70 of file scale_tracer.F90.

Referenced by scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13(), mod_mkinit::rect_setup(), and tracer_setup().

  integer, public :: gas_ctg ! category number of gas

n_atr

integer, public scale_tracer::n_atr

Definition at line 71 of file scale_tracer.F90.

Referenced by scale_atmos_phy_ae_kajino13::aerosol_zerochem(), scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13(), scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13_setup(), mod_mkinit::rect_setup(), and tracer_setup().

  integer, public :: n_atr   ! number of attribute

nkap

integer, dimension(:), allocatable, public scale_tracer::nkap

Definition at line 72 of file scale_tracer.F90.

Referenced by mod_mkinit::rect_setup(), and tracer_setup().

  integer, public, allocatable :: nkap(:)

nsiz

integer, dimension(:), allocatable, public scale_tracer::nsiz

Definition at line 73 of file scale_tracer.F90.

Referenced by scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13_setup(), mod_mkinit::rect_setup(), and tracer_setup().

  integer, public, allocatable :: nsiz(:)

ic_mix

integer, public scale_tracer::ic_mix

Definition at line 74 of file scale_tracer.F90.

Referenced by scale_atmos_phy_ae_kajino13::aerosol_zerochem(), scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13(), scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13_setup(), mod_mkinit::rect_setup(), and tracer_setup().

  integer, public :: ic_mix

ic_sea

integer, public scale_tracer::ic_sea

Definition at line 75 of file scale_tracer.F90.

Referenced by tracer_setup().

  integer, public :: ic_sea

ic_dus

integer, public scale_tracer::ic_dus

Definition at line 76 of file scale_tracer.F90.

Referenced by tracer_setup().

  integer, public :: ic_dus

ig_h2so4

integer, public scale_tracer::ig_h2so4

Definition at line 77 of file scale_tracer.F90.

Referenced by scale_atmos_phy_ae_kajino13::aerosol_zerochem(), scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13(), and tracer_setup().

  integer, public :: ig_h2so4

ig_cgas

integer, public scale_tracer::ig_cgas

Definition at line 78 of file scale_tracer.F90.

Referenced by scale_atmos_phy_ae_kajino13::aerosol_zerochem(), scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13(), and tracer_setup().

  integer, public :: ig_cgas

qaes

integer, public scale_tracer::qaes

Definition at line 79 of file scale_tracer.F90.

Referenced by scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13(), mod_mkinit::rect_setup(), and tracer_setup().

  integer, public :: qaes ! start index for aerosol tracer

qaee

integer, public scale_tracer::qaee

Definition at line 80 of file scale_tracer.F90.

Referenced by scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13(), mod_mkinit::rect_setup(), and tracer_setup().

  integer, public :: qaee ! end   index for aerosol tracer

aq_name

character(len=h_short), dimension(:), allocatable, public scale_tracer::aq_name

Definition at line 82 of file scale_tracer.F90.

Referenced by scale_atmos_boundary::atmos_boundary_resume(), scale_atmos_boundary::atmos_boundary_update(), scale_atmos_dyn_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve(), mod_atmos_phy_ae_driver::atmos_phy_ae_driver(), mod_atmos_phy_ch_driver::atmos_phy_ch_driver(), mod_atmos_phy_cp_driver::atmos_phy_cp_driver(), mod_atmos_phy_cp_vars::atmos_phy_cp_vars_setup(), scale_atmos_phy_mp_convert::atmos_phy_mp_bulk2bin(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver(), mod_atmos_vars::atmos_vars_history(), mod_atmos_vars::atmos_vars_monitor(), mod_atmos_vars::atmos_vars_restart_check(), mod_atmos_vars::atmos_vars_restart_def_var(), mod_atmos_vars::atmos_vars_restart_read(), mod_atmos_vars::atmos_vars_restart_write(), mod_atmos_vars::atmos_vars_restart_write_var(), mod_atmos_vars::atmos_vars_setup(), mod_atmos_vars::atmos_vars_total(), mod_realinput_scale::parentatominputscale(), mod_realinput::parentatomsetup(), mod_mkinit::read_sounding(), tracer_setup(), and scale_atmos_boundary::update_ref_index().

  character(len=H_SHORT), public, allocatable :: aq_name(:)

aq_mp_name

character(len=h_short), dimension(:), allocatable, public scale_tracer::aq_mp_name

Definition at line 83 of file scale_tracer.F90.

Referenced by tracer_setup().

  character(len=H_SHORT), public, allocatable :: aq_mp_name(:)

aq_ae_name

character(len=h_short), dimension(:), allocatable, public scale_tracer::aq_ae_name

Definition at line 84 of file scale_tracer.F90.

Referenced by tracer_setup().

  character(len=H_SHORT), public, allocatable :: aq_ae_name(:)

aq_desc

character(len=h_mid), dimension(:), allocatable, public scale_tracer::aq_desc

Definition at line 85 of file scale_tracer.F90.

Referenced by mod_atmos_vars::atmos_vars_history(), mod_atmos_vars::atmos_vars_monitor(), mod_atmos_vars::atmos_vars_restart_def_var(), mod_atmos_vars::atmos_vars_restart_write(), mod_atmos_vars::atmos_vars_setup(), and tracer_setup().

  character(len=H_MID)  , public, allocatable :: aq_desc(:)

aq_mp_desc

character(len=h_mid), dimension(:), allocatable, public scale_tracer::aq_mp_desc

Definition at line 86 of file scale_tracer.F90.

Referenced by tracer_setup().

  character(len=H_MID)  , public, allocatable :: aq_mp_desc(:)

aq_ae_desc

character(len=h_mid), dimension(:), allocatable, public scale_tracer::aq_ae_desc

Definition at line 87 of file scale_tracer.F90.

Referenced by tracer_setup().

  character(len=H_MID)  , public, allocatable :: aq_ae_desc(:)

aq_unit

character(len=h_short), dimension(:), allocatable, public scale_tracer::aq_unit

Definition at line 88 of file scale_tracer.F90.

Referenced by scale_atmos_boundary::atmos_boundary_resume(), mod_atmos_vars::atmos_vars_history(), mod_atmos_vars::atmos_vars_monitor(), mod_atmos_vars::atmos_vars_restart_def_var(), mod_atmos_vars::atmos_vars_restart_write(), mod_atmos_vars::atmos_vars_setup(), mod_realinput::parentatomsetup(), and tracer_setup().

  character(len=H_SHORT), public, allocatable :: aq_unit(:)

aq_mp_unit

character(len=h_short), dimension(:), allocatable, public scale_tracer::aq_mp_unit

Definition at line 89 of file scale_tracer.F90.

Referenced by tracer_setup().

  character(len=H_SHORT), public, allocatable :: aq_mp_unit(:)

aq_ae_unit

character(len=h_short), dimension(:), allocatable, public scale_tracer::aq_ae_unit

Definition at line 90 of file scale_tracer.F90.

Referenced by tracer_setup().

  character(len=H_SHORT), public, allocatable :: aq_ae_unit(:)

mp_qa

integer, public scale_tracer::mp_qa

Definition at line 98 of file scale_tracer.F90.

Referenced by scale_atmos_phy_cp_kf::atmos_phy_cp_kf(), scale_atmos_phy_mp_dry::atmos_phy_mp_dry_effectiveradius(), scale_atmos_phy_mp_dry::atmos_phy_mp_dry_mixingratio(), scale_atmos_phy_mp_kessler::atmos_phy_mp_kessler_effectiveradius(), scale_atmos_phy_mp_kessler::atmos_phy_mp_kessler_mixingratio(), scale_atmos_phy_mp_sdm::atmos_phy_mp_sdm_effectiveradius(), scale_atmos_phy_mp_sdm::atmos_phy_mp_sdm_mixingratio(), scale_atmos_phy_mp_sn14::atmos_phy_mp_sn14(), scale_atmos_phy_mp_sn14::atmos_phy_mp_sn14_effectiveradius(), scale_atmos_phy_mp_sn14::atmos_phy_mp_sn14_mixingratio(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_cloudfraction(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_effectiveradius(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_mixingratio(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08_effectiveradius(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08_mixingratio(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx_setup(), scale_atmos_phy_cp_kf::cp_kf_main(), and tracer_setup().

  integer, public :: mp_qa ! number of hydrometeor tracer

i_mp2all

integer, dimension(:), allocatable, public scale_tracer::i_mp2all

Definition at line 99 of file scale_tracer.F90.

Referenced by scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx(), scale_atmos_phy_cp_kf::cp_kf_main(), and tracer_setup().

  integer, public, allocatable :: i_mp2all(:)

i_mp2rd

integer, dimension(:), allocatable, public scale_tracer::i_mp2rd

Definition at line 101 of file scale_tracer.F90.

Referenced by scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx_setup(), and tracer_setup().

  integer, public, allocatable :: i_mp2rd(:)

ae_qa

integer, public scale_tracer::ae_qa

Definition at line 103 of file scale_tracer.F90.

Referenced by scale_atmos_phy_ae_dummy::atmos_phy_ae_dummy_setup(), scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13_setup(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx_setup(), and tracer_setup().

  integer, public :: ae_qa ! number of aerosol tracer

i_ae_dummy

integer, public scale_tracer::i_ae_dummy

Definition at line 104 of file scale_tracer.F90.

Referenced by tracer_setup().

  integer, public :: i_ae_dummy

i_ae2all

integer, dimension(:), allocatable, public scale_tracer::i_ae2all

Definition at line 105 of file scale_tracer.F90.

Referenced by scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx(), and tracer_setup().

  integer, public, allocatable :: i_ae2all(:)

i_ae2rd

integer, dimension(:), allocatable, public scale_tracer::i_ae2rd

Definition at line 107 of file scale_tracer.F90.

Referenced by scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx_setup(), and tracer_setup().

  integer, public, allocatable :: i_ae2rd(:)

tracer_type

character(len=h_short), public scale_tracer::tracer_type = 'DRY'

Definition at line 109 of file scale_tracer.F90.

Referenced by scale_atmos_phy_mp_common::atmos_phy_mp_precipitation(), mod_mkinit::mkinit(), mod_realinput::parentatomsetup(), mod_mkinit::read_sounding(), mod_realinput::realinput_atmos(), and tracer_setup().

  character(len=H_SHORT), public :: tracer_type = 'DRY'

aetracer_type

character(len=h_short), public scale_tracer::aetracer_type = 'NONE'

Definition at line 110 of file scale_tracer.F90.

Referenced by mod_mkinit::interporation_fact(), mod_mkinit::read_sounding(), and tracer_setup().

  character(len=H_SHORT), public :: aetracer_type = 'NONE'