Skip to content
5 changes: 3 additions & 2 deletions physics/rascnv.F90
Original file line number Diff line number Diff line change
Expand Up @@ -402,8 +402,9 @@ subroutine rascnv_run(IM, k, itc, ntc, ntr, dt, dtf &
!
fscav_ = -999.0_kp ! By default no scavenging
if (itc > 0 .and. ntc > 0) then
if (ntr >= itc + ntc - 3) then
fscav_(itc:ntc) = fscav
n = itc + ntc - 1
if (n <= ntr + 2) then
fscav_(itc:n) = fscav
Comment thread
climbfuji marked this conversation as resolved.
else
errmsg = 'Error in rascnv_run: test ntr >= itc + ntc - 3 FAILED'
errflg = 1
Expand Down
6 changes: 3 additions & 3 deletions physics/rascnv.meta
Original file line number Diff line number Diff line change
Expand Up @@ -211,9 +211,9 @@
intent = in
optional = F
[itc]
standard_name = number_of_aerosol_tracers_for_convection
long_name = number of aerosol tracers transported/scavenged by convection
units = count
standard_name = index_of_first_chemical_tracer_for_convection
long_name = index of first chemical tracer transported/scavenged by convection
units = index
dimensions = ()
type = integer
intent = in
Expand Down
2 changes: 1 addition & 1 deletion physics/samfdeepcnv.f
Original file line number Diff line number Diff line change
Expand Up @@ -2683,7 +2683,7 @@ subroutine samfdeepcnv_run (im,km,itc,ntc,cliq,cp,cvap, &

if (do_aerosols)
& call samfdeepcnv_aerosols(im, im, km, itc, ntc, ntr, delt,
& xlamde, xlamdd, cnvflg, jmin, kb, kmax, kbcon, ktcon, fscav,
& xlamde, xlamdd, cnvflg, jmin, kb, kmax, kd94, ktcon, fscav,
& edto, xlamd, xmb, c0t, eta, etad, zi, xlamue, xlamud, delp,
& qtr, qaero)

Expand Down
6 changes: 3 additions & 3 deletions physics/samfdeepcnv.meta
Original file line number Diff line number Diff line change
Expand Up @@ -62,9 +62,9 @@
intent = in
optional = F
[itc]
standard_name = number_of_aerosol_tracers_for_convection
long_name = number of aerosol tracers transported/scavenged by convection
units = count
standard_name = index_of_first_chemical_tracer_for_convection
long_name = index of first chemical tracer transported/scavenged by convection
units = index
dimensions = ()
type = integer
intent = in
Expand Down
6 changes: 3 additions & 3 deletions physics/samfshalcnv.meta
Original file line number Diff line number Diff line change
Expand Up @@ -62,9 +62,9 @@
intent = in
optional = F
[itc]
standard_name = number_of_aerosol_tracers_for_convection
long_name = number of aerosol tracers transported/scavenged by convection
units = count
standard_name = index_of_first_chemical_tracer_for_convection
long_name = index of first chemical tracer transported/scavenged by convection
units = index
dimensions = ()
type = integer
intent = in
Expand Down