Commit 139a662e authored by Femi Kadri's avatar Femi Kadri

LBM_rho_vel_out.F90

parent 33d25166
This diff is collapsed.
......@@ -94,8 +94,8 @@ USE precision_detector
CHARACTER(LEN = filename_number_of_letters) filename
IF(debug) WRITE (0,*) My_MPI_Process_ID,'ENTERED global_write_3D_stress: global_3d_array_max '//filename,global_3d_array_max
IF(debug) WRITE (9,*) My_MPI_Process_ID,'ENTERED global_write_3D_stress: global_3d_array_min '//filename,global_3d_array_min
IF(debug) WRITE (0,*) My_MPI_Process_ID,'ENTERED global_write_3D_stress: '//filename
IF(debug) WRITE (9,*) My_MPI_Process_ID,'ENTERED global_write_3D_stress: '//filename
my_mpi_real_data_type = get_my_mpi_real_data_type () !FUNNEL OUT THE RESULT OF PRECISION TESTING (this automatically sets the MPI REAL DATA PRECISION TYPE)
......@@ -1201,4 +1201,4 @@ call MPI_Barrier(cartesian_communicator,mpi_error_code)
IF(debug) WRITE (0,*) My_MPI_Process_ID,'global_write_3D_stress: about to RETURN FROM SUBROUTINE global_write_3D_stress'
RETURN
END SUBROUTINE global_write_3D_stress
\ No newline at end of file
END SUBROUTINE global_write_3D_stress
......@@ -36,8 +36,8 @@ USE precision_detector
LOGICAL*4,INTENT(IN),DIMENSION(local_x_min_ghost:local_x_max_ghost,local_y_min_ghost:local_y_max_ghost,&
& local_z_min_ghost:local_z_max_ghost) :: local_logical_array
LOGICAL*4,INTENT(IN) :: Write_inverse_of_logical_array
LOGICAL*4,PARAMETER :: debug = GLOBAL_DEBUG
!LOGICAL*4,PARAMETER :: debug = .true.
!LOGICAL*4,PARAMETER :: debug = GLOBAL_DEBUG
LOGICAL*4,PARAMETER :: debug = .true.
INTEGER :: I,J,K,index,SOURCE,mpi_error_code,MPI_Process_Number,counter
INTEGER :: send_size_real,send_size_logical !,send_size_integer
INTEGER :: destination
......@@ -609,4 +609,4 @@ call MPI_Barrier(cartesian_communicator,mpi_error_code)
IF(debug) WRITE (0,*) My_MPI_Process_ID,'global_write_histogram: about to RETURN FROM SUBROUTINE global_write_histogram'
RETURN
END SUBROUTINE global_write_histogram
\ No newline at end of file
END SUBROUTINE global_write_histogram
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