int18_law151_nsv_shift_mod Module Reference

Functions/Subroutines
subroutine	int18_law151_nsv_shift (mode, itask, nthread, multi_fvm, ipari, intbuf_tab, npari, ninter, numnod, opt_int_id)

Function/Subroutine Documentation

int18_law151_nsv_shift()

subroutine int18_law151_nsv_shift_mod::int18_law151_nsv_shift	(	character(len=*), intent(in)	mode,
		integer, intent(in)	itask,
		integer, intent(in)	nthread,
		type(multi_fvm_struct)	multi_fvm,
		integer, dimension(npari,*), intent(in)	ipari,
		type(intbuf_struct_), dimension(ninter), intent(inout)	intbuf_tab,
		integer, intent(in)	npari,
		integer, intent(in)	ninter,
		integer, intent(in)	numnod,
		integer, intent(in), optional	opt_int_id )

Definition at line 48 of file int18_law151_nsv_shift.F.

!$COMMENT
!       INT18_LAW151_NSV_SHIFT description
!       shift the secondary node ID
!       for /INT18 + LAW151
!
!       INT18_LAW151_NSV_SHIFT organization :
!       - at the beginning of inttri/intfop2, shift with +numnod
!       - at the end of inttri/intfop2, shift with -numnod
!$ENDCOMMENT
! ----------------------------------------------------------------------------------------------------------------------
!                                                   Modules
! ----------------------------------------------------------------------------------------------------------------------
          use intbufdef_mod
          use multi_fvm_mod
          use groupdef_mod
! ----------------------------------------------------------------------------------------------------------------------
!                                                   Implicit None
! ----------------------------------------------------------------------------------------------------------------------
          implicit none
! ----------------------------------------------------------------------------------------------------------------------
!                                                   Arguments
! ----------------------------------------------------------------------------------------------------------------------
          integer,intent(in) :: npari,ninter,numnod,nthread
          character(len=*), intent(in) :: mode
          integer, intent(in) :: itask
          type(intbuf_struct_),dimension(ninter), intent(inout) :: intbuf_tab
          integer, dimension(npari,*), intent(in) :: ipari
          type(multi_fvm_struct) :: multi_fvm
          integer,intent(in),optional :: opt_int_id
! ----------------------------------------------------------------------------------------------------------------------
!                                                   Arguments
! ----------------------------------------------------------------------------------------------------------------------
          INTEGER :: II,N,NN
          INTEGER :: NSN
          INTEGER :: NSNF,NSNL
          INTEGER :: INTER_ID
C-----------------------------------------------
          inter_id = 0
          IF(PRESENT(opt_int_id))THEN
            inter_id = max(0,opt_int_id)
          ENDIF
          DO nn=1,multi_fvm%NUMBER_INT18
            n = multi_fvm%INT18_LIST(nn)
            IF(inter_id > 0)THEN
              IF(inter_id /= n) cycle
            ENDIF
            nsn = ipari(5,n)    ! number of secondary nodes
            nsnf = 1 + itask * nsn / nthread
            nsnl = (1 + itask) * nsn / nthread
            !   add/substract NUMNOD to NSV for phantom nodes
            !   if NSV > 0 --> local phantom node
            !   else if NSV < 0 --> reote node
            IF(mode=='+') THEN
              DO ii = nsnf,nsnl
                IF(intbuf_tab(n)%NSV(ii)>0) intbuf_tab(n)%NSV(ii) = intbuf_tab(n)%NSV(ii) + numnod
              ENDDO
            ELSE
              DO ii = nsnf,nsnl
                IF(intbuf_tab(n)%NSV(ii)>0) intbuf_tab(n)%NSV(ii) = intbuf_tab(n)%NSV(ii) - numnod
              ENDDO
            ENDIF
          ENDDO
 
          RETURN