diff --git a/src/physics/cam/constituents.F90 b/src/physics/cam/constituents.F90 index cda9c82db4..b93cf060b3 100644 --- a/src/physics/cam/constituents.F90 +++ b/src/physics/cam/constituents.F90 @@ -173,7 +173,7 @@ subroutine cnst_add (name, mwc, cpc, qminc, & padv = padv+1 ind = padv if (padv > pcnst) then - write(errmsg, *) sub//': FATAL: advected tracer (', trim(name), ') index for greater than pcnst=', pcnst + write(errmsg, *) sub//': FATAL: advected tracer (', trim(name), ') index is greater than number of constituents' call endrun(errmsg) end if