diff --git a/src/science/casa-cnp/casa_cnp.F90 b/src/science/casa-cnp/casa_cnp.F90 index 604f0ca5f..b6e674e54 100644 --- a/src/science/casa-cnp/casa_cnp.F90 +++ b/src/science/casa-cnp/casa_cnp.F90 @@ -1023,9 +1023,10 @@ SUBROUTINE casa_delplant(veg,casabiome,casapool,casaflux,casamet, & ENDIF casapool%dNplantdt(npt,wood) = 0.0 -# ifndef ESM15 ! offline/trunk uses this condition +#ifndef ESM15 + ! offline/trunk uses this condition IF (casamet%lnonwood(npt)==0) & -# endif +#endif casapool%dNplantdt(npt,wood) = - casaflux%kplant(npt,wood) & * casapool%Nplant(npt,wood) & * casabiome%ftransNPtoL(veg%iveg(npt),wood)