develop solver

dattv · Jul 13, 2018 · 64cec73 · 64cec73
1 parent 3928c1b
commit 64cec73
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/MODULE_SOLVER.f90 b/MODULE_SOLVER.f90
@@ -138,7 +138,10 @@ subroutine second_EX_solver(this, first, last, tree, dt)
     type(quadtree), dimension(first:last), intent(inout)    :: tree
     real(rp), intent(out)                                   :: dt
 
-
+    ! ===> this function will re-direct to another module,
+    ! ===> i made it to reduce this file's size
+    call second_EX(first, last, tree, dt)   
+
     return
     end subroutine second_EX_solver    
 !==================================================================================================
@@ -217,8 +220,7 @@ subroutine solving(first, last, tree, I_solver_type)
             call output_2D(output, last, tree)
         end if
     end do
-
-
+
     return
 10  format(10x,"Density1    Density2    x_momentum  y_momentum  Pressure    A1")
 20  format("Time =",f20.13, "steps =", f20.13, 6f20.13)