scale_tracer_sdm.F90

Go to the documentation of this file.

!-----------------------------------------------------------------------------
!!
!! @par Description
!!          Tracer parameters for Super Droplet Method (dummy interface)
!!
!! @author Team SCALE
!!
!! @par History
!! @li      2013-09-18 (Y.Sato)  [new]
!! @li      2014-01-22 (Y.Sato)  [new] revised for develop 4.0.0
!! @li      2015-09-08 (Y.Sato)  [mod] update for version SCALE 0.2.4
!!

!-------------------------------------------------------------------------------
module scale_tracer_sdm
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use scale_precision
  use scale_stdio
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedure
  !
  public :: tracer_sdm_setup
  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  integer, public, parameter :: qa_mp = 3

  integer, public, parameter :: i_qv =  1
  integer, public, parameter :: i_qc =  2
  integer, public, parameter :: i_qr =  3
  integer, public, parameter :: i_qi =  0
  integer, public, parameter :: i_qs =  0
  integer, public, parameter :: i_qg =  0
  integer, public, parameter :: i_nc =  0
  integer, public, parameter :: i_nr =  0
  integer, public, parameter :: i_ni =  0
  integer, public, parameter :: i_ns =  0
  integer, public, parameter :: i_ng =  0

  integer, public, parameter :: qqa =  3 ! mass tracer (water)
  integer, public, parameter :: qqs =  1 ! start index for mass tracer
  integer, public, parameter :: qqe =  3 ! end   index for mass tracer

  integer, public, parameter :: qws =  2 ! start index for water tracer
  integer, public, parameter :: qwe =  3 ! end   index for water tracer
  integer, public, parameter :: qis =  0 ! start index for ice tracer
  integer, public, parameter :: qie = -1 ! end   index for ice tracer

  character(len=H_SHORT), public, save :: aq_mp_name(qa_mp)
  character(len=H_MID), public, save :: aq_mp_desc(qa_mp)
  character(len=H_SHORT), public, save :: aq_mp_unit(qa_mp)

  data aq_mp_name / 'QV', 'QC', 'QR' /

  data aq_mp_desc / 'Water Vapor mixing ratio', &
                 'cloud water mixing ratio', &
                 'rain water mixing ratio'  /

  data aq_mp_unit / 'kg/kg', 'kg/kg', 'kg/kg' /

  !-----------------------------------------------------------------------------
  !
  !++ tracer index & relationship (MP_sn13+AE_dummy+RD_mstrnX)
  !
  !-----------------------------------------------------------------------------

  integer, public, parameter :: mp_qa = 2 ! number of hydrometeor tracer
  integer, public, parameter :: i_mp_qc = 1
  integer, private, parameter :: i_m_qr = 2

  integer, public, save :: i_mp2all(mp_qa)
  data i_mp2all / i_qc, & ! I_mp_QC => I_QC
                  i_qr  / ! I_mp_QR => I_QR

  integer, public, save :: i_mp2rd(mp_qa)
  data i_mp2rd  / 1,    & ! I_mp_QC => MSTRN_nptype=1: water cloud
                  1     / ! I_mp_QR => MSTRN_nptype=1: water cloud

!  integer, public, parameter :: AE_QA = 1 ! number of aerosol tracer
!  integer, public, parameter :: I_ae_dummy = 1
!
!  integer, public, save :: I_AE2ALL(AE_QA)
!  data I_AE2ALL / -999 / ! dummy
!
!  integer, public, save :: I_AE2RD(AE_QA)
!  data I_AE2RD  / 3    / ! dummy => MSTRN_nptype=3: dust

contains
  subroutine tracer_sdm_setup

   return
  end subroutine tracer_sdm_setup

end module scale_tracer_sdm