Merge pull request #254 from NOAA-GFDL/user/nnz/fix_output_info

Diagnostic message was addressing wrong variable, just before a FATAL.
NOAA-GFDL · Jan 25, 2016 · 31b5375 · 31b5375
2 parents 162c814 + 190fab3
commit 31b5375
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/parameterizations/vertical/MOM_opacity.F90 b/src/parameterizations/vertical/MOM_opacity.F90
@@ -280,7 +280,7 @@ subroutine opacity_from_chl(optics, fluxes, G, CS, chl_in)
       if ((G%mask2dT(i,j) > 0.5) .and. (chl_in(i,j,k) < 0.0)) then
           write(mesg,'(" Negative chl_in of ",(1pe12.4)," found at i,j,k = ", &
                     & 3(1x,i3), " lon/lat = ",(1pe12.4)," E ", (1pe12.4), " N.")') &
-                     chl_data(i,j), i, j, k, G%geoLonT(i,j), G%geoLatT(i,j)
+                     chl_in(i,j,k), i, j, k, G%geoLonT(i,j), G%geoLatT(i,j)
           call MOM_error(FATAL,"MOM_opacity opacity_from_chl: "//trim(mesg))
       endif
     enddo; enddo; enddo