Add additionalInit and AdditionalFree calls

Author: fluidnumerics-joe

src/SELF_DGModel1D_t.f90

@@ -106,6 +106,8 @@ subroutine Init_DGModel1D_t(this,mesh,geometry)
     call this%flux%AssociateGeometry(geometry)
     call this%fluxDivergence%AssociateGeometry(geometry)
 
+    call this%AdditionalInit()
+
     call this%SetMetadata()
 
   endsubroutine Init_DGModel1D_t
@@ -143,6 +145,7 @@ subroutine Free_DGModel1D_t(this)
     call this%flux%Free()
     call this%source%Free()
     call this%fluxDivergence%Free()
+    call this%AdditionalFree()
 
   endsubroutine Free_DGModel1D_t
 

src/SELF_DGModel2D_t.f90

@@ -113,6 +113,8 @@ subroutine Init_DGModel2D_t(this,mesh,geometry)
     call this%flux%AssociateGeometry(geometry)
     call this%fluxDivergence%AssociateGeometry(geometry)
 
+    call this%AdditionalInit()
+
     call this%SetMetadata()
 
   endsubroutine Init_DGModel2D_t
@@ -145,6 +147,7 @@ subroutine Free_DGModel2D_t(this)
     call this%flux%Free()
     call this%source%Free()
     call this%fluxDivergence%Free()
+    call this%AdditionalFree()
 
   endsubroutine Free_DGModel2D_t
 

src/SELF_DGModel3D_t.f90

@@ -113,6 +113,8 @@ subroutine Init_DGModel3D_t(this,mesh,geometry)
     call this%flux%AssociateGeometry(geometry)
     call this%fluxDivergence%AssociateGeometry(geometry)
 
+    call this%AdditionalInit()
+
     call this%SetMetadata()
 
   endsubroutine Init_DGModel3D_t
@@ -145,6 +147,7 @@ subroutine Free_DGModel3D_t(this)
     call this%flux%Free()
     call this%source%Free()
     call this%fluxDivergence%Free()
+    call this%AdditionalFree()
 
   endsubroutine Free_DGModel3D_t