/
module_aerosols_sorgam.F
54 lines (47 loc) · 2.08 KB
/
module_aerosols_sorgam.F
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! WRF-GCHP
! GEOS-Chem High Performance-powered Chemistry Add-On for WRF Model
!
! WRF & GCHP are (c) their original authors.
! WRF-GCHP coupling layer (WGCL) is (c) Atmospheric Chemistry and Climate Group, Peking University
!
! Developed by Haipeng Lin <linhaipeng@pku.edu.cn>, Xu Feng, 2018-01
! Peking University, School of Physics
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! Codename Pumpkin: Abstracted Bindings for Chemistry-to-WRF
!
! This Chemical Interface (chem/) is written after comprehensive study of
! the original chem_driver.f from WRF-Chem v3.6.1
! which is (c) their respective authors.
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! MODULE: module_aerosols_sorgam
! DESCRIPTION: A dummy gocart aerosols subroutine to satisfy WRF_CHEM = 1
! triggering all sorts of weird compilation links in WRF.
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
module module_aerosols_sorgam
implicit none
contains
subroutine sum_pm_sorgam(alt, chem, h2oaj, h2oai, &
pm2_5_dry, pm2_5_water, pm2_5_dry_ec, pm10, &
dust_opt, ids, ide, jds, jde, kds, kde, &
ims, ime, jms, jme, kms, kme, &
its, ite, jts, jte, kts, kte)
use module_state_description, only: num_chem
integer, intent(in) :: dust_opt, &
ids, ide, jds, jde, kds, kde, &
ims, ime, jms, jme, kms, kme, &
its, ite, jts, jte, kts, kte
real, dimension(ims:ime, kms:kme, jms:jme, num_chem), &
intent(in) :: chem
real, dimension(ims:ime, kms:kme, jms:jme), &
intent(in) :: alt, h2oaj, h2oai
real, dimension(ims:ime, kms:kme, jms:jme), &
intent(out) :: pm2_5_dry, pm2_5_water, pm2_5_dry_ec, pm10
end subroutine sum_pm_sorgam
end module module_aerosols_sorgam