Removed obsolete tally components.

MintonGroup · Dec 6, 2016 · 8f1089d · 8f1089d
1 parent 57b098a
commit 8f1089d
Showing 1 changed file with 0 additions and 3 deletions.
diff --git a/src/init/init_surf.f90 b/src/init/init_surf.f90
@@ -32,11 +32,8 @@ subroutine init_surf(user,surf)
    surf%dem    = 0.0_DP
    do layer = 1,user%numlayers
       surf%diam(layer)   = 0.0_DP
-      surf%isrim(layer)  = 0
       surf%xl(layer)     = 0.0_SP
       surf%yl(layer)     = 0.0_SP
-      surf%original_depth(layer) = 0.0_SP
-      surf%baseline(layer) = 0.0_SP
    end do
    !if (user%docrustal_thinning) surf%mantle = 0._DP