get_size_tag.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"
#include "param_c.inc"
#include "com01_c.inc"
#include "vectorize.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	get_size_tag (flag_fvm, flag_tag, i24maxnsne, size_tag, ipari)
subroutine	get_size_inter24 (i24maxnsne, ninter, npari, ipari, flag_24_25)
subroutine	get_size_numnod_local (numnod, numnod_l)

Function/Subroutine Documentation

get_size_inter24()

subroutine get_size_inter24	(	integer, intent(inout)	i24maxnsne,
		integer, intent(in)	ninter,
		integer, intent(in)	npari,
		integer, dimension(npari,*), intent(in)	ipari,
		logical, intent(inout)	flag_24_25 )

Definition at line 86 of file get_size_tag.F.

!       ----------------------------------------------------------------
!       Description : GET_SIZE_INTER24 checks if NODLOCAL24 array is used and computes
!                     the size of NODLOCAL24
!                     NODLOCAL24 is used for the following interfaces:
!                     24 and 25
!                     size of NODLOCAL24: NUMNOD + I24MAXNSNE 
!                                                      |            
!                           max NSNE for TYP24     ____|            
!
!       ----------------------------------------------------------------
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
!       -*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
!       NINTER : integer, number of interface
!       NPARI : integer, size of IPARI
!       I24MAXNSNE : integer, size of TAG_SCRATCH for interface 24
!       FLAG_24_25 : logical, flag for interface 24 or 25
!       -*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
        INTEGER, INTENT(IN) :: NINTER,NPARI
        INTEGER, INTENT(INOUT) :: I24MAXNSNE
        LOGICAL, INTENT(INOUT) :: FLAG_24_25
        INTEGER, DIMENSION(NPARI,*), INTENT(IN) :: IPARI
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
        INTEGER :: NI,ITYP,NSNE
C ----------------------------------------
C Care TYPE24 + E2E
C Edge to Edge Nodes fictive Nodes are numbered over NUMNOD 
C Tag Arrays must be increased accordingly
        i24maxnsne = 0
        flag_24_25 = .false.
        DO ni= 1, ninter
                ityp = ipari(7,ni)
                IF(ityp==24)THEN
                        nsne   = ipari(55,ni)
                        i24maxnsne = max(i24maxnsne,nsne)
                ENDIF
                IF( (ityp==24).OR.(ityp==25) ) flag_24_25 = .true.
        ENDDO
 

get_size_numnod_local()

subroutine get_size_numnod_local	(	integer, intent(in)	numnod,
		integer, dimension(nspmd), intent(inout)	numnod_l )

Definition at line 142 of file get_size_tag.F.

!       ----------------------------------------------------------------
!       Description : GET_SIZE_NUMNOD_LOCAL computes the local number of 
!                     element on each domain
!       ----------------------------------------------------------------
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com01_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
        INTEGER, INTENT(IN) :: NUMNOD
        INTEGER, DIMENSION(NSPMD), INTENT(INOUT) :: NUMNOD_L
!       -*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
!       NUMNOD : integer, 
!                total number of element
!       NSPMD  : integer,
!                number of domain
!       NUMNOD_L : integer, dimension=NSPMD
!                  number of element on each domain
!       -*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
        INTEGER I, J, ISPMD, NBR_PROC
        INTEGER, DIMENSION(NSPMD) :: ID_SPMD      
C ----------------------------------------
        numnod_l(1:nspmd) = 0   
        DO i=1,numnod
                CALL plist_ifront(id_spmd,i,nbr_proc)
#include "vectorize.inc"
                DO j=1,nbr_proc
                        ispmd = id_spmd(j)
                        numnod_l(ispmd) = numnod_l(ispmd) + 1
                ENDDO
        ENDDO
C
        RETURN

get_size_tag()

subroutine get_size_tag	(	logical, intent(in)	flag_fvm,
		logical, intent(inout)	flag_tag,
		integer, intent(in)	i24maxnsne,
		integer, intent(inout)	size_tag,
		integer, dimension(npari,*), intent(in)	ipari )

Definition at line 26 of file get_size_tag.F.

!       ----------------------------------------------------------------
!       Description : GET_SIZE_TAG checks if TAG array is used and computes
!                     the size of TAG
!                     TAG is used for the following interfaces:
!                     7, 20, 22, 23, 24 and 25
!                     size of TAG: NUMNOD + I24MAXNSNE + SIZE_FVM
!                                               |            |
!                    max NSNE for TYP24     ____|            |
!       SIZE_FVM=NUMELS for INACTI=7 and FVM, otherwise 0 ___|
!       ----------------------------------------------------------------
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com04_c.inc"
#include      "param_c.inc"
C-----------------------------------------------
 
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
        LOGICAL, INTENT(INOUT) :: FLAG_TAG
        LOGICAL, INTENT(IN) :: FLAG_FVM
        INTEGER, INTENT(IN) :: I24MAXNSNE
        INTEGER, INTENT(INOUT) :: SIZE_TAG
        INTEGER, DIMENSION(NPARI,*), INTENT(IN) ::  IPARI       
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
        INTEGER :: NI,ITYP,INACTI,SIZE_FVM
C-----------------------------------------------
C
        flag_tag=.false.
        size_fvm=0
        size_tag=0
        DO ni =1, ninter
                ityp = ipari(7,ni)
                inacti = ipari(22,ni)
                IF( ityp==7.OR.ityp==20.OR.ityp==22.OR.ityp==23.OR.
     .              ityp==24.OR.ityp==25 )    THEN
                        flag_tag=.true.                
                        size_tag = numnod+i24maxnsne
                        IF (flag_fvm .AND. inacti == 7) size_fvm = numels
                ENDIF
        ENDDO
        IF(flag_tag) size_tag = numnod+i24maxnsne+size_fvm  
 
 
        RETURN