New total for tot_org

fgeter · Nov 12, 2024 · 9d38f63 · 9d38f63
1 parent 7f72b39
commit 9d38f63
Showing 1 changed file with 13 additions and 1 deletion.
diff --git a/src/soil_nutcarb_write.f90 b/src/soil_nutcarb_write.f90
@@ -53,6 +53,15 @@ subroutine soil_nutcarb_write(out_freq)
         soil1(j)%tot_org = soil_org_z
         soil_prof_hact = soil_org_z
         soil_prof_hsta = soil_org_z
+        soil_prof_hsta = soil_org_z
+        soil_prof_str =  soil_org_z
+        soil_prof_lig = soil_org_z
+        soil_prof_meta = soil_org_z
+        soil_prof_man = soil_org_z
+        soil_prof_hs = soil_org_z
+        soil_prof_hp = soil_org_z
+        soil_prof_microb = soil_org_z
+        soil_prof_water = soil_org_z
         do ly = 1, soil(j)%nly
           soil_prof_hact = soil_prof_hact + soil1(j)%hact(ly)
           soil_prof_hsta = soil_prof_hsta + soil1(j)%hsta(ly)
@@ -65,7 +74,10 @@ subroutine soil_nutcarb_write(out_freq)
           soil_prof_microb = soil_prof_microb + soil1(j)%microb(ly)
           soil_prof_water = soil_prof_water + soil1(j)%water(ly)
         end do
-        soil1(j)%tot_org = soil_prof_hact + soil_prof_hsta + soil_prof_microb
+        ! This a test of push
+        ! soil1(j)%tot_org = soil_prof_hact + soil_prof_hsta + soil_prof_microb
+        soil1(j)%tot_org = soil_prof_hs + soil_prof_hp + soil_prof_microb + soil_prof_meta + &
+                           soil_prof_str + soil_prof_lig
 
         !write all organic carbon for the plant community
         write (4560,*) time%day, time%mo, time%day_mo, time%yrc, j, ob(iob)%gis_id, ob(iob)%name, &