subroutine AdditionalInit_Model(this) implicit none class(Model),intent(inout) :: this return endsubroutine AdditionalInit_Model