c_isurf_str.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	c_isurf_str (proc, lenisurf_l, nspmd, igrsurf_proc)

Function/Subroutine Documentation

c_isurf_str()

subroutine c_isurf_str	(	integer, intent(in)	proc,
		integer, intent(inout)	lenisurf_l,
		integer, intent(in)	nspmd,
		type(surf_), dimension(nsurf,nspmd), intent(in)	igrsurf_proc )

Parameters

[in]	proc	processor id
[in,out]	lenisurf_l	size of surface buffer written in the restart
[in]	nspmd	number of processor
[in]	igrsurf_proc	surface structure per proc, size =NSURF*NSPMS

Definition at line 29 of file c_isurf_str.F.

C-----------------------------------------------
C   M o d u l e s
C----------------------------------------------- 
        USE groupdef_mod
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"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
        INTEGER, INTENT(IN) :: PROC !< processor id
        INTEGER, INTENT(INOUT) :: LENISURF_L !< size of surface buffer written in the restart
        INTEGER, INTENT(IN) :: NSPMD !<  number of processor
        TYPE(SURF_), DIMENSION(NSURF,NSPMD), INTENT(IN) :: IGRSURF_PROC !< surface structure per proc, size =NSURF*NSPMS
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
        INTEGER :: ISU
        INTEGER :: L_SURF
C-----------------------------------------------
        l_surf = 0
!
        DO isu=1,nsurf
!
! surf storage
!
!        IGRSURF_L(L_SURF+1) = ID
            l_surf = l_surf+1
!        IGRSURF_L(L_SURF+1) = NSEG_L(ISU)
            l_surf = l_surf+1
!        IGRSURF_L(L_SURF+1) = TYPE
            l_surf = l_surf+1
!        IGRSURF_L(L_SURF+1) = ID_MADYMO
            l_surf = l_surf+1
!        IGRSURF_L(L_SURF+1) = IAD_BUFR
            l_surf = l_surf+1
!        IGRSURF_L(L_SURF+1) = NB_MADYMO
            l_surf = l_surf+1
!        IGRSURF_L(L_SURF+1) = TYPE_MADYMO
            l_surf = l_surf+1
!        IGRSURF_L(L_SURF+1) = LEVEL
            l_surf = l_surf+1
!        IGRSURF_L(L_SURF+1) = TH_SURF
            l_surf = l_surf+1
!        IGRSURF_L(L_SURF+1) = ISH4N3N
            l_surf = l_surf+1
!        IGRSURF_L(L_SURF+1) = NSEG_R2R_ALL
            l_surf = l_surf+1
!        IGRSURF_L(L_SURF+1) = NSEG_R2R_SHARE
            l_surf = l_surf+1
!
! SURF ENTITIES (NODES, ELTYP, ELEM)
!
            l_surf = 6*igrsurf_proc(isu,proc+1)%NSEG + l_surf
        ENDDO
!---------
        lenisurf_l = l_surf
!---------
        RETURN