update warning output (#234)

CICE-Consortium · Nov 28, 2018 · 5105174 · 5105174
1 parent 45df1ab
commit 5105174
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/columnphysics/icepack_warnings.F90 b/columnphysics/icepack_warnings.F90
@@ -60,7 +60,7 @@ subroutine icepack_warnings_setabort(abortflag,file,line)
 
         ! try to capture just the first setabort call
 
-        if (.not.warning_abort) then
+        if (abortflag) then
           write(warnstr,*) subname,abortflag
           if (present(file)) write(warnstr,*) trim(warnstr)//' :file '//trim(file)
           if (present(line)) write(warnstr,*) trim(warnstr)//' :line ',line