Code clean-up.

E3SM-Project · Dec 20, 2022 · 0ccaedf · 0ccaedf
1 parent 164e333
commit 0ccaedf
Showing 1 changed file with 13 additions and 17 deletions.
diff --git a/components/elm/src/data_types/ColumnDataType.F90 b/components/elm/src/data_types/ColumnDataType.F90
@@ -6985,13 +6985,9 @@ subroutine col_cf_summary(this, bounds, num_soilc, filter_soilc, isotope)
 
        ! total product loss
        this%product_closs(c) = &
-            this%prod10c_loss(c) + &
+            this%prod10c_loss(c)  + &
             this%prod100c_loss(c) + &
             this%prod1c_loss(c)
-       ! if (masterproc) then
-       !    write(iulog,*) "this%prod10c_loss?", this%prod10c_loss(c), "this%prod100c_loss?", &
-       !        this%prod100c_loss(c), "this%prod1c_loss?", this%prod1c_loss(c)
-       ! endif
 
        ! soil organic matter fire losses (SOMFIRE)
        this%somfire(c) = 0._r8
@@ -7492,18 +7488,18 @@ subroutine col_cf_zero_forfates_veg(this, bounds, num_soilc, filter_soilc)
 
     if(.not.use_fates) return
 
-     do fc = 1,num_soilc
-        c = filter_soilc(fc)
-        this%gpp(c) = 0._r8
-        this%ar(c) = 0._r8
-        this%npp(c) = 0._r8
-        this%vegfire(c) = 0._r8
-        this%wood_harvestc(c) = 0._r8
-        this%fire_closs_p2c(c) = 0._r8
-        !this%litfall(c) = 0._r8 (overwritten)
-        this%hrv_xsmrpool_to_atm(c) = 0._r8
-
-     end do
+    do fc = 1,num_soilc
+       c = filter_soilc(fc)
+       this%gpp(c) = 0._r8
+       this%ar(c) = 0._r8
+       this%npp(c) = 0._r8
+       this%vegfire(c) = 0._r8
+       this%wood_harvestc(c) = 0._r8
+       this%fire_closs_p2c(c) = 0._r8
+       !this%litfall(c) = 0._r8 (overwritten)
+       this%hrv_xsmrpool_to_atm(c) = 0._r8
+
+    end do
 
 
   end subroutine col_cf_zero_forfates_veg