diff options
Diffstat (limited to 'Dragon/src/SALEND.f90')
| -rw-r--r-- | Dragon/src/SALEND.f90 | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/Dragon/src/SALEND.f90 b/Dragon/src/SALEND.f90 new file mode 100644 index 0000000..f1a6ffc --- /dev/null +++ b/Dragon/src/SALEND.f90 @@ -0,0 +1,47 @@ +! +!--------------------------------------------------------------------- +! +!Purpose: +! To release allocated T_G_BASIC in SALT: module. +! +!Copyright: +! Copyright (C) 2014 Ecole Polytechnique de Montreal. +! This library is free software; you can redistribute it and/or +! modify it under the terms of the GNU Lesser General Public +! License as published by the Free Software Foundation; either +! version 2.1 of the License, or (at your option) any later version +! +!Author(s): +! A. Hebert +! +!--------------------------------------------------------------------- +! +SUBROUTINE SALEND(GG) + USE SAL_GEOMETRY_TYPES, ONLY : T_G_BASIC + TYPE(T_G_BASIC) :: GG + INTEGER :: OK,ELEM + !---- + ! Release geometry allocated memory + !---- + DEALLOCATE(GG%IPAR,GG%RPAR,GG%IBC2_ELEM,GG%ISURF2_ELEM,GG%VOL_NODE,GG%PPERIM_NODE, & + GG%TYPE_BC2,GG%IDATA_BC2,GG%PERIM_MAC2,GG%MED,GG%PERIM_NODE,STAT =OK) + IF(OK /= 0) CALL XABORT('SALEND: failure to deallocate GG members(1)') + IF(GG%NB_SURF2>0) THEN + DEALLOCATE(GG%IBC2_SURF2,GG%IELEM_SURF2,GG%SURF2,STAT =OK) + IF(OK /= 0) CALL XABORT('SALEND: failure to deallocate GG surf members') + ENDIF + DEALLOCATE(GG%NUM_MERGE,STAT =OK) + IF(OK /= 0) CALL XABORT('SALEND: failure to deallocate GG%NUM_MERGE') + DEALLOCATE(GG%NAME_MACRO,STAT =OK) + IF(OK /= 0) CALL XABORT('SALEND: failure to deallocate GG%NAME_MACRO') + DEALLOCATE(GG%NUM_MACRO,STAT =OK) + IF(OK /= 0) CALL XABORT('SALEND: failure to deallocate GG%NUM_MACRO') + IF(GG%NBBCDA>0) THEN + DO ELEM=1,GG%NBBCDA + DEALLOCATE(GG%BCDATAREAD(ELEM)%ELEMNB,STAT =OK) + IF(OK /= 0) CALL XABORT('SALEND: failure to deallocate GG%BCDATAREAD(ELEM)%ELEMNB') + ENDDO + DEALLOCATE(GG%BCDATAREAD,STAT =OK) + IF(OK /= 0) CALL XABORT('SALEND: FAILURE TO DEALLOCATE GG%BCDATAREAD') + ENDIF +END SUBROUTINE SALEND |