Commit aecda1a4 authored by Femi Kadri's avatar Femi Kadri

global_write_3D_stress.F90

parent 139a662e
This source diff could not be displayed because it is too large. You can view the blob instead.
......@@ -41,8 +41,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.
!-----------INTENT(OUT)------------------------------------------
!-----------INTENT(INOUT)------------------------------------------
!-----------NO INTENT------------------------------------------
......@@ -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: '//filename
IF(debug) WRITE (9,*) My_MPI_Process_ID,'ENTERED global_write_3D_stress: '//filename
!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)
......
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