segvar_mod Module Reference

Data Types
type	t_segvar

Functions/Subroutines
subroutine	segvar_destroy (this)
subroutine	segvar_create (this, nbmat)

Function/Subroutine Documentation

segvar_create()

subroutine segvar_mod::segvar_create	(	class(t_segvar), intent(inout)	this,
		integer, intent(in)	nbmat )

Definition at line 118 of file segvar_mod.F.

      USE ale_mod      
      IMPLICIT NONE
#include "constant.inc"       
#include "../includes/com04_c.inc" 
      CLASS(T_SEGVAR), INTENT(INOUT) :: this
       INTEGER,INTENT(IN) :: NBMAT
        this%NSEG=nsegflu
        this%NBMAT=nbmat
        IF(this%NSEG > 0)THEN
          IF(ale%GLOBAL%NVCONV >= 1)this%HAS_RHO=.true.
          IF(ale%GLOBAL%NVCONV >= 2)this%HAS_EINT=.true.
          IF(ale%GLOBAL%NVCONV >= 3)this%HAS_RK=.true.
          IF(ale%GLOBAL%NVCONV >= 4)this%HAS_RE=.true.
          IF(ale%GLOBAL%NVCONV >= 5)this%HAS_UVAR=.true.                                
          IF(this%HAS_RHO)THEN
            ALLOCATE(this%RHO(this%NSEG))
            this%RHO(1:this%NSEG)=zero
          ENDIF
          IF(this%HAS_EINT)THEN
            ALLOCATE(this%EINT(this%NSEG))
            this%EINT(1:this%NSEG)=zero
          ENDIF
          IF(this%HAS_RK)THEN
            ALLOCATE(this%RK(this%NSEG))
            this%RK(1:this%NSEG)=zero            
          ENDIF
          IF(this%HAS_RE)THEN
            ALLOCATE(this%RE(this%NSEG))
            this%RE(1:this%NSEG)=zero
          ENDIF
          IF(this%HAS_UVAR)THEN
            ALLOCATE(this%UVAR(this%NSEG))
            this%UVAR(1:this%NSEG)=zero 
          ENDIF
          IF(nbmat > 0)THEN
            this%HAS_PHASE_ALPHA = .true.
            ALLOCATE(this%PHASE_ALPHA(this%NBMAT,this%NSEG))
            this%PHASE_ALPHA(1:this%NBMAT,1:this%NSEG) = zero
            this%HAS_PHASE_RHO = .true.
            ALLOCATE(this%PHASE_RHO(this%NBMAT,this%NSEG))
            this%PHASE_RHO(1:this%NBMAT,1:this%NSEG) = zero
            this%HAS_PHASE_EINT = .true.
            ALLOCATE(this%PHASE_EINT(this%NBMAT,this%NSEG))
            this%PHASE_EINT(1:this%NBMAT,1:this%NSEG) = zero                        
          ENDIF
        ENDIF                               

segvar_destroy()

subroutine segvar_mod::segvar_destroy

(

class(t_segvar), intent(inout)

this

)

Definition at line 100 of file segvar_mod.F.

      IMPLICIT NONE
      CLASS(T_SEGVAR), INTENT(INOUT) :: this
        IF(ALLOCATED(this%RHO)) DEALLOCATE(this%RHO)
        IF(ALLOCATED(this%EINT)) DEALLOCATE(this%EINT)
        IF(ALLOCATED(this%RK)) DEALLOCATE(this%RK)
        IF(ALLOCATED(this%RE)) DEALLOCATE(this%RE)                
        IF(ALLOCATED(this%UVAR)) DEALLOCATE(this%UVAR)
        IF(ALLOCATED(this%PHASE_ALPHA)) DEALLOCATE(this%PHASE_ALPHA) 
        IF(ALLOCATED(this%PHASE_ALPHA)) DEALLOCATE(this%PHASE_RHO) 
        IF(ALLOCATED(this%PHASE_ALPHA)) DEALLOCATE(this%PHASE_EINT)