alemuscl_deallocate.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	alemuscl_deallocate ()

Function/Subroutine Documentation

alemuscl_deallocate()

subroutine alemuscl_deallocate

Definition at line 30 of file alemuscl_deallocate.F.

C-----------------------------------------------
C   M o d u l e s 
C-----------------------------------------------
      USE alemuscl_mod , only:alemuscl_buffer
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include "implicit_f.inc"
C-----------------------------------------------
C   S o u r c e   L i n e s 
C-----------------------------------------------
      IF (ALLOCATED(alemuscl_buffer%VOLUME_FRACTION)) DEALLOCATE(alemuscl_buffer%VOLUME_FRACTION)
      IF (ALLOCATED(alemuscl_buffer%NODE_MAX_VALUE)) DEALLOCATE(alemuscl_buffer%NODE_MAX_VALUE)
      IF (ALLOCATED(alemuscl_buffer%NODE_MIN_VALUE)) DEALLOCATE(alemuscl_buffer%NODE_MIN_VALUE)
      IF (ALLOCATED(alemuscl_buffer%GRAD)) DEALLOCATE(alemuscl_buffer%GRAD)
      IF (ALLOCATED(alemuscl_buffer%ELCENTER)) DEALLOCATE(alemuscl_buffer%ELCENTER)
C-----------------------------------------------