Bugfix to rework of crop allocation variable init.

samsrabin · Apr 19, 2023 · 12a1a12 · 12a1a12
1 parent 2646ead
commit 12a1a12
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/biogeochem/CNAllocationMod.F90 b/src/biogeochem/CNAllocationMod.F90
@@ -393,7 +393,7 @@ subroutine calc_crop_allocation_fractions(bounds, num_pcropp, filter_pcropp, &
              end do
              arepr(p,nrepr) = 1._r8 - aroot(p) - astem(p) - aleaf(p)
 
-          else if (crop_phase(p) /= cphase_planted)
+          else if (crop_phase(p) /= cphase_planted) then
              write(iulog,*) "ERROR in " // subname // ": unexpected crop_phase: ", crop_phase(p)
              call endrun(msg="ERROR: unexpected crop_phase "//errmsg(sourcefile, __LINE__))
           end if