spmd_exch_output_noda_pext_mod Module Reference

Functions/Subroutines
subroutine	spmd_exch_output_noda_pext (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	(	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 : noda_pext_g, noda_surf_g
            use output_mod , only : noda_pext, noda_surf
            use output_mod , only : anim_has_noda_pext, h3d_has_noda_pext
            use spmd_gather_nodal_scalar_mod , only : spmd_gather_nodal_scalar
! ----------------------------------------------------------------------------------------------------------------------
!                                                   Implicit none
! ----------------------------------------------------------------------------------------------------------------------
          implicit none
! ----------------------------------------------------------------------------------------------------------------------
!                                                   Arguments
! ----------------------------------------------------------------------------------------------------------------------
            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. anim_has_noda_pext > 0 .OR. 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(noda_pext, nodes%BOUNDARY_ADD, nodes%BOUNDARY, lenr, nodes%WEIGHT)
                  CALL spmd_exch_nodarea(noda_surf, nodes%BOUNDARY_ADD, nodes%BOUNDARY, lenr, nodes%WEIGHT)
                  !send everything to node 0 in global array (ANIM)
                  IF(anim_has_noda_pext > 0)THEN
                    CALL spmd_gather_nodal_scalar(noda_pext_g, numnodg, noda_pext, numnod, nodes%WEIGHT, nodes%NODGLOB)   !NODGLOB :id_loc -> id_glob
                    CALL spmd_gather_nodal_scalar(noda_surf_g, numnodg, noda_surf, numnod, nodes%WEIGHT, nodes%NODGLOB)
                  END IF
                ELSE
                  IF(anim_has_noda_pext > 0)THEN
                    !in this case numnodg = numnod
                    noda_pext_g(1:numnod) = noda_pext(1:numnod)
                    noda_surf_g(1:numnod) = noda_surf(1:numnod)
                  END IF
                ENDIF
              ENDIF
            ENDIF