Fix build error

ESCOMP · Nov 8, 2024 · 56808e1 · 56808e1
1 parent 003ece7
commit 56808e1
Showing 1 changed file with 0 additions and 3 deletions.
diff --git a/schemes/check_energy/dycore_energy_consistency_adjust.F90 b/schemes/check_energy/dycore_energy_consistency_adjust.F90
@@ -33,9 +33,6 @@ subroutine dycore_energy_consistency_adjust_run( &
     real(kind_phys),    intent(inout) :: T(:,:)                ! temperature [K]
     real(kind_phys),    intent(inout) :: tend_dtdt(:,:)        ! model phys temperature tendency [K s-1]
 
-    errmsg = ''
-    errflg = 0
-
     if(energy_formula_dycore == ENERGY_FORMULA_DYCORE_MPAS .or. &
        energy_formula_dycore == ENERGY_FORMULA_DYCORE_SE) then
       T(:ncol,:) = temp_ini(:ncol,:) + &