spmd_exch_output_noda_pext_mod Module Reference

Functions/Subroutines
subroutine	spmd_exch_output_noda_pext (output, nspmd, nodes, numnod, numnodg, trigger_th, trigger_anim, trigger_h3d)

Function/Subroutine Documentation

spmd_exch_output_noda_pext()

subroutine spmd_exch_output_noda_pext_mod::spmd_exch_output_noda_pext	(	type(output_), intent(inout)	output,
		integer, intent(in)	nspmd,
		type(nodal_arrays_), intent(in)	nodes,
		integer, intent(in)	numnod,
		integer, intent(in)	numnodg,
		logical, intent(in)	trigger_th,
		logical, intent(in)	trigger_anim,
		logical, intent(in)	trigger_h3d )

Definition at line 49 of file spmd_exch_output_noda_pext.F.

! ----------------------------------------------------------------------------------------------------------------------
!                                                   Modules
! ----------------------------------------------------------------------------------------------------------------------
            use th_mod , only : th_has_noda_pext
            use nodal_arrays_mod , only : nodal_arrays_
            use constant_mod , only : zero
            use output_mod , only : output_
            use spmd_gather_nodal_scalar_mod , only : spmd_gather_nodal_scalar
! ----------------------------------------------------------------------------------------------------------------------
!                                                   Implicit none
! ----------------------------------------------------------------------------------------------------------------------
          implicit none
! ----------------------------------------------------------------------------------------------------------------------
!                                                   Arguments
! ----------------------------------------------------------------------------------------------------------------------
            TYPE(OUTPUT_), INTENT(INOUT) :: OUTPUT
            LOGICAL,INTENT(IN) :: TRIGGER_ANIM
            LOGICAL,INTENT(IN) :: TRIGGER_H3D
            LOGICAL,INTENT(IN) :: TRIGGER_TH
            INTEGER,INTENT(IN) :: NSPMD
            INTEGER,INTENT(IN) :: NUMNOD
            INTEGER,INTENT(IN) :: NUMNODG
            TYPE(NODAL_ARRAYS_), INTENT(IN) :: NODES
! ----------------------------------------------------------------------------------------------------------------------
!                                                   Local variables
! ----------------------------------------------------------------------------------------------------------------------
            INTEGER :: LENR
! ----------------------------------------------------------------------------------------------------------------------
!                                                   Body
! ----------------------------------------------------------------------------------------------------------------------
            IF(th_has_noda_pext > 0 .OR. output%DATA%ANIM_HAS_NODA_PEXT > 0 
     .          .OR. output%DATA%H3D_HAS_NODA_PEXT > 0 )THEN
              IF(trigger_anim .OR. trigger_th .OR. trigger_h3d)THEN
                IF(nspmd > 1)THEN
                  lenr = nodes%BOUNDARY_ADD(1,nspmd+1)-nodes%BOUNDARY_ADD(1,1)
                  !exchange between domains which have common nodes
                  CALL spmd_exch_nodarea(output%DATA%NODA_PEXT, nodes%BOUNDARY_ADD, nodes%BOUNDARY, lenr, nodes%WEIGHT)
                  CALL spmd_exch_nodarea(output%DATA%NODA_SURF, nodes%BOUNDARY_ADD, nodes%BOUNDARY, lenr, nodes%WEIGHT)
                  !send everything to node 0 in global array (ANIM)
                  IF(output%DATA%ANIM_HAS_NODA_PEXT > 0)THEN
                    CALL spmd_gather_nodal_scalar(output%DATA%NODA_PEXT_G,
     .                  numnodg, output%DATA%NODA_PEXT, numnod, nodes%WEIGHT, nodes%NODGLOB)   !NODGLOB :id_loc -> id_glob
                    CALL spmd_gather_nodal_scalar(output%DATA%NODA_SURF_G, numnodg,
     .                   output%DATA%NODA_SURF, numnod, nodes%WEIGHT, nodes%NODGLOB)
                  END IF
                ELSE
                  IF(output%DATA%ANIM_HAS_NODA_PEXT > 0)THEN
                    !in this case numnodg = numnod
                    output%DATA%NODA_PEXT_G(1:numnod) = output%DATA%NODA_PEXT(1:numnod)
                    output%DATA%NODA_SURF_G(1:numnod) = output%DATA%NODA_SURF(1:numnod)
                  END IF
                ENDIF
              ENDIF
            ENDIF