Commit 20b39543 authored by Roy Fabrice's avatar Roy Fabrice
Browse files

bug corrections

lines too long
debug messages
parent 86a8d94f
......@@ -69,15 +69,20 @@ contains
use mpi
integer, intent(out) :: cell_mpi_t
class(cell_t(*,*)), intent(in), dimension(*) :: cell_array
class(cell_t(*,*)), intent(in), dimension(2) :: cell_array
integer :: im
integer :: mpierr
integer(kind=MPI_ADDRESS_KIND) :: displs(12), lower_bound, extent
integer :: blocklengths(12)=(/1,1,1,1,1,1,3,3,1,1,0,0/), &
types(12)=(/MPI_INTEGER, MPI_INTEGER, MPI_INTEGER, MPI_INTEGER, MPI_INTEGER, MPI_IDKIND, MPI_DP, MPI_DP, MPI_DP, MPI_DP, MPI_DP, MPI_DP/)
integer :: blocklengths(12)=(/1,1,1,1,1,1,3,3,1,1,0,0/)
integer :: types(12)=(/MPI_INTEGER, MPI_INTEGER, MPI_INTEGER, MPI_INTEGER, MPI_INTEGER, MPI_IDKIND, MPI_DP,&
MPI_DP, MPI_DP, MPI_DP, MPI_DP, MPI_DP/)
integer :: tmp_type
#ifdef DEBUG
write(ERROR_UNIT,'(a,i0)') 'Init_cell_mpi_type begins on process', mpi_process%rank
#endif
call timer%Set_ref()
call mpi_get_address(cell_array(1)%n_non_thermal_pressures, displs(1), mpierr)
call mpi_get_address(cell_array(1)%n_passive_scalars, displs(2), mpierr)
......@@ -107,11 +112,13 @@ contains
call mpi_type_commit(cell_mpi_t, mpierr)
call timer%Inc_comm()
end subroutine Init_cell_mpi_type
#ifdef DEBUG2
write(ERROR_UNIT,'(a,i0)') 'Is_eq begins on process', mpi_process%rank
#ifdef DEBUG
write(ERROR_UNIT,'(a,i0)') 'Init_cell_mpi_type ends on process', mpi_process%rank
#endif
end subroutine Init_cell_mpi_type
!------------------------------------------------------------------------------------------------------------------------------------
!> Comparison function for cells: ==
......@@ -240,7 +247,8 @@ contains
write(unit_number,'(a,i0)') '- process_id:', this%process_id
write(unit_number,'(a,i0)') '- cube_id:', this%cube_id
write(unit_number,'(a,f10.8,a,f10.8,a,f10.8,a)') '- position: (', this%position(1),',',this%position(2),',',this%position(3),')'
write(unit_number,'(a,f10.8,a,f10.8,a,f10.8,a)') '- velocity_field: (', this%velocity_field(1),',',this%velocity_field(2),',',this%velocity_field(3),')'
write(unit_number,'(a,f10.8,a,f10.8,a,f10.8,a)') '- velocity_field: (', this%velocity_field(1),',',this%velocity_field(2),',',&
this%velocity_field(3),')'
write(unit_number,*) '- thermal_pressure:', this%thermal_pressure
write(unit_number,'(a,i0)') '- n_non_thermal_pressures:', this%n_non_thermal_pressures
if(this%n_non_thermal_pressures /= 0) write(unit_number,*) '- non_thermal_pressures:', this%non_thermal_pressures(:)
......
Supports Markdown
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