debug_mod.F File Reference

#include "implicit_f.inc"
#include "r4r8_p.inc"
#include "com01_c.inc"
#include "com04_c.inc"
#include "task_c.inc"
#include "spmd_c.inc"
#include "chara_c.inc"
#include "units_c.inc"

Go to the source code of this file.

Modules
module	debug_mod

Functions/Subroutines
pure integer function	debug_mod::sp_checksum (a, siz1, siz2)
pure integer function	debug_mod::dp_checksum (a, siz1, siz2)
pure integer function	debug_mod::int_checksum (a, siz1, siz2)
subroutine	prepare_debug (itab, numnod, ispmd)

Variables
integer, dimension(:), allocatable	debug_mod::itab_debug
	User Node Identifiers.
integer	debug_mod::ncycle_debug
	Engine Cycle number.
integer	debug_mod::ispmd_debug
	processor id

Function/Subroutine Documentation

prepare_debug()

subroutine prepare_debug	(	integer, dimension(numnod), intent(in)	itab,
		integer, intent(in)	numnod,
		integer, intent(in)	ispmd )

Parameters

[in]

ispmd

processor id

Definition at line 228 of file debug_mod.F.

        USE debug_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
            INTEGER, INTENT(IN) :: NUMNOD
            integer, intent(in) :: ispmd !< processor id
            INTEGER, DIMENSION(:), INTENT(IN) :: ITAB(NUMNOD)
C-----------------------------------------------
       ALLOCATE (itab_debug(numnod))
       itab_debug(1:numnod)=itab(1:numnod)
C-----------------------------------------------
       ncycle_debug = 0 ! updated in resol loop
       ispmd_debug = ispmd
C-----------------------------------------------