Update to head of atmos_phys with check_energy_fix_run arguments

.gitmodules

@@ -36,7 +36,7 @@
 [submodule "atmos_phys"]
 	path = src/atmos_phys
 	url = https://github.com/ESCOMP/atmospheric_physics
-        fxtag = atmos_phys0_07_000
+        fxtag = 8e3d0bdff98ff70a4e815160ebd13a150c662a12
         fxrequired = AlwaysRequired
 	fxDONOTUSEurl = https://github.com/ESCOMP/atmospheric_physics
 

src/physics/cam/check_energy.F90

@@ -877,6 +877,9 @@ subroutine check_energy_cam_fix(state, ptend, nstep, eshflx)
     real(r8)    :: heat_out(pcols)
     character(len=64) :: dummy_scheme_name  ! dummy scheme name for CCPP-ized scheme
 
+    integer            :: errflg
+    character(len=512) :: errmsg
+
     lchnk = state%lchnk
     ncol  = state%ncol
 
@@ -904,14 +907,16 @@ subroutine check_energy_cam_fix(state, ptend, nstep, eshflx)
     ! Call the CCPP-ized subroutine (for non-SCAM)
     ! to compute the effective sensible heat flux and save to ptend%s
     call check_energy_fix_run( &
-        ncol      = ncol, &
-        pver      = pver, &
-        pint      = state%pint(:ncol,:), &
-        gravit    = gravit, &
-        heat_glob = heat_glob, &
-        ptend_s   = ptend%s(:ncol,:), &
-        eshflx    = eshflx(:ncol), &
-        scheme_name = dummy_scheme_name &
+        ncol        = ncol, &
+        pver        = pver, &
+        pint        = state%pint(:ncol,:), &
+        gravit      = gravit, &
+        heat_glob   = heat_glob, &
+        ptend_s     = ptend%s(:ncol,:), &
+        eshflx      = eshflx(:ncol), &
+        scheme_name = dummy_scheme_name, &
+        errmsg      = errmsg, &
+        errflg      = errflg  &
     )
 
   end subroutine check_energy_cam_fix