diff --git a/src/control/cam_history.F90 b/src/control/cam_history.F90 index 51c357e68b..5a0172aded 100644 --- a/src/control/cam_history.F90 +++ b/src/control/cam_history.F90 @@ -5878,8 +5878,8 @@ subroutine addfld_nd(fname, dimnames, avgflag, units, long_name, & write(errormsg, *) "Cannot add ", trim(fname), & "Subcolumn history output only allowed on physgrid" call endrun("ADDFLD: "//errormsg) - listentry%field%is_subcol = .true. end if + listentry%field%is_subcol = .true. end if end if ! Levels