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
 

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.

44 integer, public :: qa

scale_tracer::qa

integer, public qa

Definition: scale_tracer.F90:44

◆ qa_mp

integer, public scale_tracer::qa_mp

Definition at line 46 of file scale_tracer.F90.

Referenced by tracer_setup(), and scale_tracer_suzuki10::tracer_suzuki10_setup().

46 integer, public :: qa_mp

scale_tracer::qa_mp

integer, public qa_mp

Definition: scale_tracer.F90:46

◆ 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(), 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(), tracer_setup(), and scale_tracer_suzuki10::tracer_suzuki10_setup().

47 integer, public :: i_qv

scale_tracer::i_qv

integer, public i_qv

Definition: scale_tracer.F90:47

◆ i_qc

integer, public scale_tracer::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(), mod_realinput_wrfarw::parentatominputwrfarw(), mod_realinput::replace_misval_map(), and tracer_setup().

49 integer, public :: i_qr

scale_tracer::i_qr

integer, public i_qr

Definition: scale_tracer.F90:49

◆ 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(), mod_realinput_wrfarw::parentatominputwrfarw(), mod_realinput::replace_misval_map(), and tracer_setup().

50 integer, public :: i_qi

scale_tracer::i_qi

integer, public i_qi

Definition: scale_tracer.F90:50

◆ 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(), mod_realinput_wrfarw::parentatominputwrfarw(), mod_realinput::replace_misval_map(), and tracer_setup().

51 integer, public :: i_qs

scale_tracer::i_qs

integer, public i_qs

Definition: scale_tracer.F90:51

◆ 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().

52 integer, public :: i_qg

scale_tracer::i_qg

integer, public i_qg

Definition: scale_tracer.F90:52

◆ 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().

53 integer, public :: i_nc

scale_tracer::i_nc

integer, public i_nc

Definition: scale_tracer.F90:53

◆ 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().

54 integer, public :: i_nr

scale_tracer::i_nr

integer, public i_nr

Definition: scale_tracer.F90:54

◆ 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().

55 integer, public :: i_ni

scale_tracer::i_ni

integer, public i_ni

Definition: scale_tracer.F90:55

◆ 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().

56 integer, public :: i_ns

scale_tracer::i_ns

integer, public i_ns

Definition: scale_tracer.F90:56

◆ 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().

57 integer, public :: i_ng

scale_tracer::i_ng

integer, public i_ng

Definition: scale_tracer.F90:57

◆ 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(), tracer_setup(), and scale_tracer_suzuki10::tracer_suzuki10_setup().

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

scale_tracer::qqa

integer, public qqa

Definition: scale_tracer.F90:59

◆ 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(), mod_mkinit::rect_setup(), tracer_setup(), and scale_tracer_suzuki10::tracer_suzuki10_setup().

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

scale_tracer::qqs

integer, public qqs

Definition: scale_tracer.F90:60

◆ 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(), mod_mkinit::rect_setup(), tracer_setup(), and scale_tracer_suzuki10::tracer_suzuki10_setup().

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

scale_tracer::qqe

integer, public qqe

Definition: scale_tracer.F90:61

◆ 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(), tracer_setup(), and scale_tracer_suzuki10::tracer_suzuki10_setup().

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

scale_tracer::qws

integer, public qws

Definition: scale_tracer.F90:63

◆ 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(), tracer_setup(), and scale_tracer_suzuki10::tracer_suzuki10_setup().

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

scale_tracer::qwe

integer, public qwe

Definition: scale_tracer.F90:64

◆ 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(), tracer_setup(), and scale_tracer_suzuki10::tracer_suzuki10_setup().

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

scale_tracer::qis

integer, public qis

Definition: scale_tracer.F90:65

◆ 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(), tracer_setup(), and scale_tracer_suzuki10::tracer_suzuki10_setup().

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

scale_tracer::qie

integer, public qie

Definition: scale_tracer.F90:66

◆ 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().

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

scale_tracer::qa_ae

integer, public qa_ae

Definition: scale_tracer.F90:68

◆ 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().

69 integer, public :: ae_ctg ! category number of aerosol

scale_tracer::ae_ctg

integer, public ae_ctg

Definition: scale_tracer.F90:69

◆ 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().

70 integer, public :: gas_ctg ! category number of gas

scale_tracer::gas_ctg

integer, public gas_ctg

Definition: scale_tracer.F90:70

◆ 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().

71 integer, public :: n_atr ! number of attribute

scale_tracer::n_atr

integer, public n_atr

Definition: scale_tracer.F90:71

◆ 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().

72 integer, public, allocatable :: nkap(:)

scale_tracer::nkap

integer, dimension(:), allocatable, public nkap

Definition: scale_tracer.F90:72

◆ 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().

73 integer, public, allocatable :: nsiz(:)

scale_tracer::nsiz

integer, dimension(:), allocatable, public nsiz

Definition: scale_tracer.F90:73

◆ 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().

74 integer, public :: ic_mix

scale_tracer::ic_mix

integer, public ic_mix

Definition: scale_tracer.F90:74

◆ ic_sea

integer, public scale_tracer::ic_sea

Definition at line 75 of file scale_tracer.F90.

Referenced by tracer_setup().

75 integer, public :: ic_sea

scale_tracer::ic_sea

integer, public ic_sea

Definition: scale_tracer.F90:75

◆ ic_dus

integer, public scale_tracer::ic_dus

Definition at line 76 of file scale_tracer.F90.

Referenced by tracer_setup().

76 integer, public :: ic_dus

scale_tracer::ic_dus

integer, public ic_dus

Definition: scale_tracer.F90:76

◆ 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().

77 integer, public :: ig_h2so4

scale_tracer::ig_h2so4

integer, public ig_h2so4

Definition: scale_tracer.F90:77

◆ 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().

78 integer, public :: ig_cgas

scale_tracer::ig_cgas

integer, public ig_cgas

Definition: scale_tracer.F90:78

◆ 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().

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

scale_tracer::qaes

integer, public qaes

Definition: scale_tracer.F90:79

◆ 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().

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

scale_tracer::qaee

integer, public qaee

Definition: scale_tracer.F90:80

◆ 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(), 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_read(), mod_atmos_vars::atmos_vars_restart_write(), 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().

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

scale_tracer::aq_name

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

Definition: scale_tracer.F90:82

◆ 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(), and scale_tracer_suzuki10::tracer_suzuki10_setup().

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

scale_tracer::aq_mp_name

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

Definition: scale_tracer.F90:83

◆ 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().

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

scale_tracer::aq_ae_name

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

Definition: scale_tracer.F90:84

◆ 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_write(), mod_atmos_vars::atmos_vars_setup(), and tracer_setup().

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

scale_tracer::aq_desc

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

Definition: scale_tracer.F90:85

◆ 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(), and scale_tracer_suzuki10::tracer_suzuki10_setup().

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

scale_tracer::aq_mp_desc

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

Definition: scale_tracer.F90:86

◆ 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().

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

scale_tracer::aq_ae_desc

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

Definition: scale_tracer.F90:87

◆ 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_write(), mod_atmos_vars::atmos_vars_setup(), mod_realinput::parentatomsetup(), and tracer_setup().

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

scale_tracer::aq_unit

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

Definition: scale_tracer.F90:88

◆ 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(), and scale_tracer_suzuki10::tracer_suzuki10_setup().

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

scale_tracer::aq_mp_unit

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

Definition: scale_tracer.F90:89

◆ 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().

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

scale_tracer::aq_ae_unit

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

Definition: scale_tracer.F90:90

◆ mp_qa

integer, public scale_tracer::mp_qa

Definition at line 98 of file scale_tracer.F90.

98 integer, public :: mp_qa ! number of hydrometeor tracer

scale_tracer::mp_qa

integer, public mp_qa

Definition: scale_tracer.F90:98

◆ 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(), and tracer_setup().

99 integer, public, allocatable :: i_mp2all(:)

scale_tracer::i_mp2all

integer, dimension(:), allocatable, public i_mp2all

Definition: scale_tracer.F90:99

◆ 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().

101 integer, public, allocatable :: i_mp2rd(:)

scale_tracer::i_mp2rd

integer, dimension(:), allocatable, public i_mp2rd

Definition: scale_tracer.F90:101

◆ 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().

103 integer, public :: ae_qa ! number of aerosol tracer

scale_tracer::ae_qa

integer, public ae_qa

Definition: scale_tracer.F90:103

◆ i_ae_dummy

integer, public scale_tracer::i_ae_dummy

Definition at line 104 of file scale_tracer.F90.

Referenced by tracer_setup().

104 integer, public :: i_ae_dummy

scale_tracer::i_ae_dummy

integer, public i_ae_dummy

Definition: scale_tracer.F90:104

◆ 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().

105 integer, public, allocatable :: i_ae2all(:)

scale_tracer::i_ae2all

integer, dimension(:), allocatable, public i_ae2all

Definition: scale_tracer.F90:105

◆ 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().

107 integer, public, allocatable :: i_ae2rd(:)

scale_tracer::i_ae2rd

integer, dimension(:), allocatable, public i_ae2rd

Definition: scale_tracer.F90:107

◆ 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().

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

scale_tracer::tracer_type

character(len=h_short), public tracer_type

Definition: scale_tracer.F90:109

◆ 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().

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

scale_tracer::aetracer_type

character(len=h_short), public aetracer_type

Definition: scale_tracer.F90:110

Functions/Subroutines

Variables

Detailed Description

Function/Subroutine Documentation

◆ tracer_setup()

Variable Documentation

◆ qa

◆ qa_mp

◆ i_qv

◆ i_qc

◆ i_qr

◆ i_qi

◆ i_qs

◆ i_qg

◆ i_nc

◆ i_nr

◆ i_ni

◆ i_ns

◆ i_ng

◆ qqa

◆ qqs

◆ qqe

◆ qws

◆ qwe

◆ qis

◆ qie

◆ qa_ae

◆ ae_ctg

◆ gas_ctg

◆ n_atr

◆ nkap

◆ nsiz

◆ ic_mix

◆ ic_sea

◆ ic_dus

◆ ig_h2so4

◆ ig_cgas

◆ qaes

◆ qaee

◆ aq_name

◆ aq_mp_name

◆ aq_ae_name

◆ aq_desc

◆ aq_mp_desc

◆ aq_ae_desc

◆ aq_unit

◆ aq_mp_unit

◆ aq_ae_unit

◆ mp_qa

◆ i_mp2all

◆ i_mp2rd

◆ ae_qa

◆ i_ae_dummy

◆ i_ae2all

◆ i_ae2rd

◆ tracer_type

◆ aetracer_type