14 subroutine set_aerosol_tracer_index(imp_physics, imp_physics_wsm6, &
15 imp_physics_thompson, ltaerosol,mraerosol, &
16 imp_physics_mg, ntgl, imp_physics_gfdl, &
17 imp_physics_zhao_carr, imp_physics_nssl,&
18 nssl_hail_on, nssl_ccn_on, kk, &
22 integer,
intent(in ) :: imp_physics, imp_physics_wsm6, &
23 imp_physics_thompson, &
24 imp_physics_mg, ntgl, imp_physics_gfdl, &
25 imp_physics_zhao_carr,imp_physics_nssl
26 logical,
intent(in ) :: ltaerosol, mraerosol, nssl_hail_on, nssl_ccn_on
27 integer,
intent(out) :: kk
28 character(len=*),
intent(out) :: errmsg
29 integer,
intent(out) :: errflg
34 if (imp_physics == imp_physics_wsm6)
then
37 elseif (imp_physics == imp_physics_thompson)
then
41 else if(mraerosol)
then
47 elseif (imp_physics == imp_physics_mg)
then
53 elseif (imp_physics == imp_physics_gfdl)
then
56 elseif (imp_physics == imp_physics_zhao_carr)
then
59 elseif (imp_physics == imp_physics_nssl)
then
60 IF ( nssl_hail_on )
THEN
65 IF ( nssl_ccn_on ) kk = kk + 1
67 write(errmsg,
'(*(a))')
'Logic error: unknown microphysics option in set_aerosol_tracer_index'