Better error message from CCPP in case call to ccpp_physics_run for g…

…roup 'fast_physics' failed (#148)
NOAA-GFDL · Oct 6, 2021 · 6406366 · 6406366
1 parent 6ce60a0
commit 6406366
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/model/fv_mapz.F90 b/model/fv_mapz.F90
@@ -840,7 +840,10 @@ subroutine Lagrangian_to_Eulerian(last_step, consv, ps, pe, delp, pkz, pk,   &
     ! Call to CCPP fast_physics group
     if (cdata%initialized()) then
       call ccpp_physics_run(cdata, suite_name=trim(ccpp_suite), group_name='fast_physics', ierr=ierr)
-      if (ierr/=0) call mpp_error(FATAL, "Call to ccpp_physics_run for group 'fast_physics' failed")
+      if (ierr/=0) then
+        call mpp_error(NOTE, trim(cdata%errmsg))
+        call mpp_error(FATAL, "Call to ccpp_physics_run for group 'fast_physics' failed")
+      endif
     else
       call mpp_error (FATAL, 'Lagrangian_to_Eulerian: can not call CCPP fast physics because CCPP not initialized')
     endif