write_th_buffer.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	write_th_buffer (th, nodlocal, cel, p, nthgrp0, nthgrp, nthgrp01, nthgrp1, scel, numsph, numnod, ncluster, celsph, numloccluster, nbr_th_monvol)

Function/Subroutine Documentation

write_th_buffer()

subroutine write_th_buffer	(	type(th_), intent(inout)	th,
		integer, dimension(numnod), intent(in)	nodlocal,
		integer, dimension(scel), intent(in)	cel,
		integer, intent(in)	p,
		integer, intent(in)	nthgrp0,
		integer, intent(in)	nthgrp,
		integer, dimension(9), intent(in)	nthgrp01,
		integer, dimension(9), intent(in)	nthgrp1,
		integer, intent(in)	scel,
		integer, intent(in)	numsph,
		integer, intent(in)	numnod,
		integer, intent(in)	ncluster,
		integer, dimension(numsph), intent(in)	celsph,
		integer, dimension(ncluster), intent(in)	numloccluster,
		integer, intent(in)	nbr_th_monvol )

Definition at line 32 of file write_th_buffer.F.

        ! -----------------------------------------------
   !   ROUTINE DESCRIPTION    :
   !   ========================
   !   split and write time history buffer
C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE time_history_mod
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-----------------------------------------------
      TYPE(TH_),INTENT(INOUT)                :: TH               ! TH Type 
      INTEGER,INTENT(IN)                     :: P                ! Current SPMD domain
      INTEGER,INTENT(IN)                     :: NUMNOD           ! Total number of Model Nodes
      INTEGER,INTENT(IN)                     :: NUMSPH           ! Total number of SPH partikles in model
      INTEGER,INTENT(IN)                     :: SCEL             ! Size of CEL
      INTEGER,INTENT(IN)                     :: NCLUSTER         ! Total number of SPH partikles in model
      INTEGER,INTENT(IN)                     :: NBR_TH_MONVOL    ! number of /TH/MONV
      INTEGER,DIMENSION(NUMNOD), INTENT(IN)  :: NODLOCAL         ! Conversion Starter to Engine node table
      INTEGER,INTENT(IN)                     :: NTHGRP0,NTHGRP   ! Number of variables for main Time History
      INTEGER,DIMENSION(9),INTENT(IN)        :: NTHGRP01,NTHGRP1 ! Number of variables for secondaty TH: ath-ith
      INTEGER,DIMENSION(SCEL),INTENT(IN)     :: CEL              ! Assign Finite Elmeent to SPMD domain
      INTEGER,DIMENSION(NUMSPH),INTENT(IN)   :: CELSPH           ! Assign SPH partikle to SPMD domain
      INTEGER,DIMENSION(NCLUSTER),INTENT(IN) :: NUMLOCCLUSTER    ! Assign SPH partikle to SPMD domain
C-----------------------------------------------
 
      CALL write_i_c(th%NITHGR,1)
      CALL write_i_c(th%SITHGRP, 1) 
      CALL write_i_c(th%SITHBUF, 1)
 
      CALL write_i_c(th%SITHGRPA,1)
      CALL write_i_c(th%SITHBUFA,1)
 
      CALL write_i_c(th%SITHGRPB,1)
      CALL write_i_c(th%SITHBUFB,1)
 
      CALL write_i_c(th%SITHGRPC,1)
      CALL write_i_c(th%SITHBUFC,1)
 
      CALL write_i_c(th%SITHGRPD,1)
      CALL write_i_c(th%SITHBUFD,1)
 
      CALL write_i_c(th%SITHGRPE,1)
      CALL write_i_c(th%SITHBUFE,1)
 
      CALL write_i_c(th%SITHGRPF,1)
      CALL write_i_c(th%SITHBUFF,1)
 
      CALL write_i_c(th%SITHGRPG,1)
      CALL write_i_c(th%SITHBUFG,1)
 
      CALL write_i_c(th%SITHGRPH,1)
      CALL write_i_c(th%SITHBUFH,1)
 
      CALL write_i_c(th%SITHGRPI,1)
      CALL write_i_c(th%SITHBUFI,1)
 
 
      CALL w_th(th%ITHGRP  ,th%ITHBUF ,th%SITHBUF,nodlocal,cel   ,
     2          nthgrp0 ,nthgrp ,p     ,
     3          celsph  ,numloccluster ,nbr_th_monvol)
 
 
      IF (nthgrp01(1) > 0) THEN
        CALL w_th(th%ITHGRPA  ,th%ITHBUFA ,th%SITHBUFA ,nodlocal,cel   ,
     2            nthgrp01(1) ,nthgrp1(1) ,p           ,
     3            celsph, numloccluster   ,nbr_th_monvol)
      END IF
 
      IF (nthgrp01(2) > 0) THEN
        CALL w_th(th%ITHGRPB  ,th%ITHBUFB ,th%SITHBUFB,nodlocal,cel,
     2            nthgrp01(2) ,nthgrp1(2) ,p          ,
     3            celsph ,numloccluster   ,nbr_th_monvol)
      END IF
 
      IF (nthgrp01(3) > 0) THEN
        CALL w_th(th%ITHGRPC  ,th%ITHBUFC ,th%SITHBUFC,nodlocal,cel,
     2            nthgrp01(3) ,nthgrp1(3) ,p          ,
     3            celsph ,numloccluster   ,nbr_th_monvol)
      END IF
 
      IF (nthgrp01(4) > 0) THEN
        CALL w_th(th%ITHGRPD  ,th%ITHBUFD ,th%SITHBUFD,nodlocal,cel,
     2            nthgrp01(4) ,nthgrp1(4) ,p          ,
     3            celsph ,numloccluster   ,nbr_th_monvol)
      END IF
 
      IF (nthgrp01(5) > 0) THEN
        CALL w_th(th%ITHGRPE ,th%ITHBUFE ,th%SITHBUFE,nodlocal,cel   ,
     2            nthgrp01(5),nthgrp1(5) ,p ,
     3            celsph, numloccluster  ,nbr_th_monvol)
      END IF
 
      IF (nthgrp01(6) > 0) THEN
        CALL w_th(th%ITHGRPF ,th%ITHBUFF ,th%SITHBUFF,nodlocal,cel   ,
     2            nthgrp01(6),nthgrp1(6) ,p ,
     3            celsph, numloccluster ,nbr_th_monvol)
      END IF
 
      IF (nthgrp01(7) > 0) THEN
        CALL w_th(th%ITHGRPG ,th%ITHBUFG ,th%SITHBUFG,nodlocal,cel   ,
     2            nthgrp01(7),nthgrp1(7) ,p ,
     3            celsph, numloccluster  ,nbr_th_monvol)
      END IF
 
      IF (nthgrp01(8) > 0) THEN
        CALL w_th(th%ITHGRPH ,th%ITHBUFH ,th%SITHBUFH,nodlocal,cel   ,
     2            nthgrp01(8),nthgrp1(8) ,p ,
     3            celsph, numloccluster  ,nbr_th_monvol)
      END IF
 
      IF (nthgrp01(9) > 0) THEN
        CALL w_th(th%ITHGRPI ,th%ITHBUFI ,th%SITHBUFI,nodlocal,cel   ,
     2            nthgrp01(9),nthgrp1(9) ,p ,
     3            celsph, numloccluster  ,nbr_th_monvol)
      END IF