Commit 46e5a566 authored by Migle Surblyte's avatar Migle Surblyte

Removed compiled files (.F90~, _genmod.mod, .F90.bk)

parent a86bc4ee
head -2 LBM_Time_Steps_Prev_Completed.txt 6000 clear all file *.dat
This diff is collapsed.
......@@ -83,18 +83,20 @@ USE precision_detector
LOGICAL*4,INTENT(IN) :: SLIT,LBM_calculate_viscous_stresses,divide_x,divide_y,divide_z
LOGICAL*4,INTENT(IN) :: LBM_calculate_piezo_press_grad
LOGICAL*4,INTENT(IN) :: LST_apply_volume_user_mask
!LOGICAL*4,PARAMETER :: debug = GLOBAL_DEBUG
LOGICAL*4,PARAMETER :: debug = .true.
LOGICAL*4,PARAMETER :: debug = GLOBAL_DEBUG
!LOGICAL*4,PARAMETER :: debug = .true.
REAL,DIMENSION(0:Q,local_x_min_ghost:local_x_max_ghost,&
& local_y_min_ghost:local_y_max_ghost,&
& local_z_min_ghost:local_z_max_ghost), INTENT(IN) :: f_local
!------------NO INTENT------------------------------------------------------------------------------------------------
LOGICAL,ALLOCATABLE,DIMENSION(:,:,:) :: NOT_local_fluid_surface
INTEGER :: memory_status,mpi_abort_error_code
INTEGER,PARAMETER :: x = 1
INTEGER,PARAMETER :: y = 2
INTEGER,PARAMETER :: z = 3
INTEGER,PARAMETER :: memory_success = 0
INTEGER :: memory_status
INTEGER :: mpi_abort_error
INTEGER :: local_MASK_solid_count,local_MASK_fluid_count
......@@ -1041,6 +1043,28 @@ END IF !!My_MPI_Process_ID.EQ.ROOT
IF(debug) WRITE (0,*) My_MPI_Process_ID,'finished to call global_write_3D_stress: INV-> local_walls,i.e FLUID'
IF(debug) WRITE (0,*) My_MPI_Process_ID,"about to ALLOCATE( NOT_local_fluid_surface )"
IF(debug) WRITE (9,*) My_MPI_Process_ID,"about to ALLOCATE( NOT_local_fluid_surface )"
ALLOCATE( NOT_local_fluid_surface(local_x_min_ghost:local_x_max_ghost,local_y_min_ghost:local_y_max_ghost,&
& local_z_min_ghost:local_z_max_ghost), &
& STAT=memory_status )
IF (memory_status /= memory_success) THEN
WRITE (0,*) My_MPI_Process_ID, &
& "ERROR: can't allocate NOT_local_fluid_surface of dimensions ", &
& local_x_min_ghost, ":", local_x_max_ghost, ",", &
& local_y_min_ghost, ":", local_y_max_ghost, ",", &
& local_z_min_ghost, ":", local_z_max_ghost, ")"
CALL MPI_Abort(cartesian_communicator,mpi_abort_error,mpi_error_code)
END IF !! (memory_status /= memory_success)
IF(debug) WRITE (0,*) My_MPI_Process_ID,"global_write_3D_stress: finished to ALLOCATE( NOT_local_fluid_surface )"
IF(debug) WRITE (9,*) My_MPI_Process_ID,"global_write_3D_stress: finished to ALLOCATE( NOT_local_fluid_surface )"
NOT_local_fluid_surface = .NOT.local_fluid_surface
IF(debug) WRITE (0,*) My_MPI_Process_ID,'about to call global_write_3D_SURFACE_stress:','local_stress'
CALL global_write_3D_stress(local_stress,local_fluid_surface,My_MPI_Process_ID,ROOT,local_x_min_ghost,local_x_max_ghost,local_y_min_ghost,&
......@@ -1092,7 +1116,7 @@ END IF !!My_MPI_Process_ID.EQ.ROOT
& local_z_min_ghost,local_z_max_ghost,global_product_xyz_nodes_real,global_x_min_real,global_x_max_real,global_y_min_real,&
& global_y_max_real,global_z_min_real,global_z_max_real,&
& global_x_nodes_real,global_y_nodes_real,global_z_nodes_real,local_z_min_real,local_z_max_real,&
& local_y_min_real,local_y_max_real,local_x_min_real,local_x_max_real,.NOT.local_fluid_surface,ROOT,&
& local_y_min_real,local_y_max_real,local_x_min_real,local_x_max_real,NOT_local_fluid_surface,ROOT,&
& cartesian_communicator,&
& Total_Number_of_Histogram_Bins,&
& Secondary_Histogram_BinFraction,&
......@@ -1182,7 +1206,7 @@ END IF !!My_MPI_Process_ID.EQ.ROOT
& local_z_min_ghost,local_z_max_ghost,global_product_xyz_nodes_real,global_x_min_real,global_x_max_real,global_y_min_real,&
& global_y_max_real,global_z_min_real,global_z_max_real,&
& global_x_nodes_real,global_y_nodes_real,global_z_nodes_real,local_z_min_real,local_z_max_real,&
& local_y_min_real,local_y_max_real,local_x_min_real,local_x_max_real,.NOT.local_fluid_surface,ROOT,&
& local_y_min_real,local_y_max_real,local_x_min_real,local_x_max_real,NOT_local_fluid_surface,ROOT,&
& cartesian_communicator,&
& Total_Number_of_Histogram_Bins,&
& Secondary_Histogram_BinFraction,&
......@@ -1261,7 +1285,7 @@ END IF !!My_MPI_Process_ID.EQ.ROOT
& local_z_min_ghost,local_z_max_ghost,global_product_xyz_nodes_real,global_x_min_real,global_x_max_real,global_y_min_real,&
& global_y_max_real,global_z_min_real,global_z_max_real,&
& global_x_nodes_real,global_y_nodes_real,global_z_nodes_real,local_z_min_real,local_z_max_real,&
& local_y_min_real,local_y_max_real,local_x_min_real,local_x_max_real,.NOT.local_fluid_surface,ROOT,&
& local_y_min_real,local_y_max_real,local_x_min_real,local_x_max_real,NOT_local_fluid_surface,ROOT,&
& cartesian_communicator,&
& Total_Number_of_Histogram_Bins,&
& Secondary_Histogram_BinFraction,&
......@@ -1342,7 +1366,7 @@ END IF !!My_MPI_Process_ID.EQ.ROOT
& local_z_min_ghost,local_z_max_ghost,global_product_xyz_nodes_real,global_x_min_real,global_x_max_real,global_y_min_real,&
& global_y_max_real,global_z_min_real,global_z_max_real,&
& global_x_nodes_real,global_y_nodes_real,global_z_nodes_real,local_z_min_real,local_z_max_real,&
& local_y_min_real,local_y_max_real,local_x_min_real,local_x_max_real,.NOT.local_fluid_surface,ROOT,&
& local_y_min_real,local_y_max_real,local_x_min_real,local_x_max_real,NOT_local_fluid_surface,ROOT,&
& cartesian_communicator,&
& Total_Number_of_Histogram_Bins,&
& Secondary_Histogram_BinFraction,&
......@@ -1420,7 +1444,7 @@ END IF !!My_MPI_Process_ID.EQ.ROOT
& local_z_min_ghost,local_z_max_ghost,global_product_xyz_nodes_real,global_x_min_real,global_x_max_real,global_y_min_real,&
& global_y_max_real,global_z_min_real,global_z_max_real,&
& global_x_nodes_real,global_y_nodes_real,global_z_nodes_real,local_z_min_real,local_z_max_real,&
& local_y_min_real,local_y_max_real,local_x_min_real,local_x_max_real,.NOT.local_fluid_surface,ROOT,&
& local_y_min_real,local_y_max_real,local_x_min_real,local_x_max_real,NOT_local_fluid_surface,ROOT,&
& cartesian_communicator,&
& Total_Number_of_Histogram_Bins,&
& Secondary_Histogram_BinFraction,&
......@@ -1495,7 +1519,7 @@ END IF !!My_MPI_Process_ID.EQ.ROOT
& local_z_min_ghost,local_z_max_ghost,global_product_xyz_nodes_real,global_x_min_real,global_x_max_real,global_y_min_real,&
& global_y_max_real,global_z_min_real,global_z_max_real,&
& global_x_nodes_real,global_y_nodes_real,global_z_nodes_real,local_z_min_real,local_z_max_real,&
& local_y_min_real,local_y_max_real,local_x_min_real,local_x_max_real,.NOT.local_fluid_surface,ROOT,&
& local_y_min_real,local_y_max_real,local_x_min_real,local_x_max_real,NOT_local_fluid_surface,ROOT,&
& cartesian_communicator,&
& Total_Number_of_Histogram_Bins,&
& Secondary_Histogram_BinFraction,&
......@@ -1571,7 +1595,7 @@ END IF !!My_MPI_Process_ID.EQ.ROOT
& local_z_min_ghost,local_z_max_ghost,global_product_xyz_nodes_real,global_x_min_real,global_x_max_real,global_y_min_real,&
& global_y_max_real,global_z_min_real,global_z_max_real,&
& global_x_nodes_real,global_y_nodes_real,global_z_nodes_real,local_z_min_real,local_z_max_real,&
& local_y_min_real,local_y_max_real,local_x_min_real,local_x_max_real,.NOT.local_fluid_surface,ROOT,&
& local_y_min_real,local_y_max_real,local_x_min_real,local_x_max_real,NOT_local_fluid_surface,ROOT,&
& cartesian_communicator,&
& Total_Number_of_Histogram_Bins,&
& Secondary_Histogram_BinFraction,&
......@@ -1684,7 +1708,7 @@ END IF !!My_MPI_Process_ID.EQ.ROOT
& local_z_min_ghost,local_z_max_ghost,global_product_xyz_nodes_real,global_x_min_real,global_x_max_real,global_y_min_real,&
& global_y_max_real,global_z_min_real,global_z_max_real,&
& global_x_nodes_real,global_y_nodes_real,global_z_nodes_real,local_z_min_real,local_z_max_real,&
& local_y_min_real,local_y_max_real,local_x_min_real,local_x_max_real,.NOT.local_fluid_surface,ROOT,&
& local_y_min_real,local_y_max_real,local_x_min_real,local_x_max_real,NOT_local_fluid_surface,ROOT,&
& cartesian_communicator,&
& Total_Number_of_Histogram_Bins,&
& Secondary_Histogram_BinFraction,&
......@@ -1695,7 +1719,7 @@ END IF !!My_MPI_Process_ID.EQ.ROOT
ENDIF !!LST_apply_volume_user_mask
DEALLOCATE(NOT_local_fluid_surface)
DEALLOCATE(local_avg_normal_stress)
......
This source diff could not be displayed because it is too large. You can view the blob instead.
This source diff could not be displayed because it is too large. You can view the blob instead.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment