spmd_exch_output_noda_pext.F

Go to the documentation of this file.

Copyright>        OpenRadioss
Copyright>        Copyright (C) 1986-2025 Altair Engineering Inc.
Copyright>
Copyright>        This program is free software: you can redistribute it and/or modify
Copyright>        it under the terms of the GNU Affero General Public License as published by
Copyright>        the Free Software Foundation, either version 3 of the License, or
Copyright>        (at your option) any later version.
Copyright>
Copyright>        This program is distributed in the hope that it will be useful,
Copyright>        but WITHOUT ANY WARRANTY; without even the implied warranty of
Copyright>        MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Copyright>        GNU Affero General Public License for more details.
Copyright>
Copyright>        You should have received a copy of the GNU Affero General Public License
Copyright>        along with this program.  If not, see <https://www.gnu.org/licenses/>.
Copyright>
Copyright>
Copyright>        Commercial Alternative: Altair Radioss Software
Copyright>
Copyright>        As an alternative to this open-source version, Altair also offers Altair Radioss
Copyright>        software under a commercial license.  Contact Altair to discuss further if the
Copyright>        commercial version may interest you: https://www.altair.com/radioss/.
!||====================================================================
!||    spmd_exch_output_noda_pext_mod   ../engine/source/mpi/output/spmd_exch_output_noda_pext.F
!||--- called by ------------------------------------------------------
!||    sortie_main                      ../engine/source/output/sortie_main.F
!||====================================================================
          module spmd_exch_output_noda_pext_mod
          contains
! ======================================================================================================================
!                                                   procedures
! ======================================================================================================================
!! \brief spmd exchange between domain which have common nodes
!! \details
!||====================================================================
!||    spmd_exch_output_noda_pext     ../engine/source/mpi/output/spmd_exch_output_noda_pext.F
!||--- called by ------------------------------------------------------
!||    sortie_main                    ../engine/source/output/sortie_main.F
!||--- calls      -----------------------------------------------------
!||    spmd_exch_nodarea              ../engine/source/mpi/anim/spmd_exch_nodarea.F
!||    spmd_gather_nodal_scalar       ../engine/source/mpi/nodes/spmd_gather_nodal_scalar.F
!||--- uses       -----------------------------------------------------
!||    constant_mod                   ../common_source/modules/constant_mod.F
!||    nodal_arrays_mod               ../common_source/modules/nodal_arrays.F90
!||    output_mod                     ../common_source/modules/output/output_mod.f90
!||    spmd_gather_nodal_scalar_mod   ../engine/source/mpi/nodes/spmd_gather_nodal_scalar.F
!||    th_mod                         ../engine/share/modules/th_mod.F
!||====================================================================
          SUBROUTINE spmd_exch_output_noda_pext(OUTPUT, NSPMD, NODES, NUMNOD, NUMNODG,
     .                                           TRIGGER_TH,
     .                                           TRIGGER_ANIM,
     .                                           TRIGGER_H3D)
! ----------------------------------------------------------------------------------------------------------------------
!                                                   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
          END SUBROUTINE spmd_exch_output_noda_pext
! ----------------------------------------------------------------------------------------------------------------------
          end module spmd_exch_output_noda_pext_mod