time_history_mod Module Reference

Data Types
type	th_

Functions/Subroutines
subroutine	th_alloc (th, sithgrp, sithbuf, sithgrpa, sithbufa, sithgrpb, sithbufb, sithgrpc, sithbufc, sithgrpd, sithbufd, sithgrpe, sithbufe, sithgrpf, sithbuff, sithgrpg, sithbufg, sithgrph, sithbufh, sithgrpi, sithbufi)
subroutine	th_clean (th)

Function/Subroutine Documentation

th_alloc()

subroutine time_history_mod::th_alloc	(	type(th_), intent(inout)	th,
		integer, intent(in)	sithgrp,
		integer, intent(in)	sithbuf,
		integer, intent(in)	sithgrpa,
		integer, intent(in)	sithbufa,
		integer, intent(in)	sithgrpb,
		integer, intent(in)	sithbufb,
		integer, intent(in)	sithgrpc,
		integer, intent(in)	sithbufc,
		integer, intent(in)	sithgrpd,
		integer, intent(in)	sithbufd,
		integer, intent(in)	sithgrpe,
		integer, intent(in)	sithbufe,
		integer, intent(in)	sithgrpf,
		integer, intent(in)	sithbuff,
		integer, intent(in)	sithgrpg,
		integer, intent(in)	sithbufg,
		integer, intent(in)	sithgrph,
		integer, intent(in)	sithbufh,
		integer, intent(in)	sithgrpi,
		integer, intent(in)	sithbufi )

Definition at line 108 of file time_history_mod.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
          USE message_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
          INTEGER, INTENT(IN) :: SITHGRP,  SITHBUF
          INTEGER, INTENT(IN) :: SITHGRPA, SITHBUFA
          INTEGER, INTENT(IN) :: SITHGRPB, SITHBUFB
          INTEGER, INTENT(IN) :: SITHGRPC, SITHBUFC
          INTEGER, INTENT(IN) :: SITHGRPD, SITHBUFD
          INTEGER, INTENT(IN) :: SITHGRPE, SITHBUFE
          INTEGER, INTENT(IN) :: SITHGRPF, SITHBUFF
          INTEGER, INTENT(IN) :: SITHGRPG, SITHBUFG
          INTEGER, INTENT(IN) :: SITHGRPH, SITHBUFH
          INTEGER, INTENT(IN) :: SITHGRPI, SITHBUFI
C-----------------------------------------------
          ALLOCATE(th%ITHGRP (th%SITHGRP))
          ALLOCATE(th%ITHBUF (th%SITHBUF))
 
          ALLOCATE(th%ITHGRPA(th%SITHGRPA))
          ALLOCATE(th%ITHBUFA(th%SITHBUFA))
 
          ALLOCATE(th%ITHGRPB(th%SITHGRPB))
          ALLOCATE(th%ITHBUFB(th%SITHBUFB))
 
          ALLOCATE(th%ITHGRPC(th%SITHGRPC))
          ALLOCATE(th%ITHBUFC(th%SITHBUFC))
 
          ALLOCATE(th%ITHGRPD(th%SITHGRPD))
          ALLOCATE(th%ITHBUFD(th%SITHBUFD))
 
          ALLOCATE(th%ITHGRPE(th%SITHGRPE))
          ALLOCATE(th%ITHBUFE(th%SITHBUFE))
 
          ALLOCATE(th%ITHGRPF(th%SITHGRPF))
          ALLOCATE(th%ITHBUFF(th%SITHBUFF))
 
          ALLOCATE(th%ITHGRPG(th%SITHGRPG))
          ALLOCATE(th%ITHBUFG(th%SITHBUFG))
 
          ALLOCATE(th%ITHGRPH(th%SITHGRPH))
          ALLOCATE(th%ITHBUFH(th%SITHBUFH))
 
          ALLOCATE(th%ITHGRPI(th%SITHGRPI))
          ALLOCATE(th%ITHBUFI(th%SITHBUFI))
 

th_clean()

subroutine time_history_mod::th_clean

(

type(th_), intent(inout)

th

)

Definition at line 181 of file time_history_mod.F.

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
C-----------------------------------------------
          th%SITHGRP = 0
          th%SITHBUF = 0
 
          th%SITHGRPA = 0
          th%SITHBUFA = 0
 
          th%SITHGRPB = 0
          th%SITHBUFB = 0
 
          th%SITHGRPC = 0
          th%SITHBUFC = 0
 
          th%SITHGRPD = 0
          th%SITHBUFD = 0
 
          th%SITHGRPE = 0
          th%SITHBUFE = 0
 
          th%SITHGRPF = 0
          th%SITHBUFF = 0
 
          th%SITHGRPG = 0
          th%SITHBUFG = 0
 
          th%SITHGRPH = 0
          th%SITHBUFH = 0
 
          th%SITHGRPI = 0
          th%SITHBUFI = 0
 
 
          DEALLOCATE(th%ITHGRP)
          DEALLOCATE(th%ITHBUF)
 
          DEALLOCATE(th%ITHGRPA)
          DEALLOCATE(th%ITHBUFA)
 
          DEALLOCATE(th%ITHGRPB)
          DEALLOCATE(th%ITHBUFB)
 
          DEALLOCATE(th%ITHGRPC)
          DEALLOCATE(th%ITHBUFC)
 
          DEALLOCATE(th%ITHGRPD)
          DEALLOCATE(th%ITHBUFD)
 
          DEALLOCATE(th%ITHGRPE)
          DEALLOCATE(th%ITHBUFE)
 
          DEALLOCATE(th%ITHGRPF)
          DEALLOCATE(th%ITHBUFF)
 
          DEALLOCATE(th%ITHGRPG)
          DEALLOCATE(th%ITHBUFG)
 
          DEALLOCATE(th%ITHGRPH)
          DEALLOCATE(th%ITHBUFH)
 
          DEALLOCATE(th%ITHGRPI)
          DEALLOCATE(th%ITHBUFI)