mod_types Module Reference

Data Types
type	bc
type	comm
type	grid
type	map

Functions/Subroutines
subroutine	kill_grid (G)

Function/Subroutine Documentation

kill_grid()

subroutine mod_types::kill_grid

(

type(grid), pointer

G

)

Definition at line 178 of file mod_types.f90.

      IMPLICIT NONE
      TYPE(GRID), POINTER :: G
      

      IF(.NOT. ASSOCIATED(g)) RETURN

!      IF(ASSOCIATED(G%EL_PID)) DEALLOCATE(G%EL_PID)

      IF(ASSOCIATED(g%egid)) DEALLOCATE(g%egid)
      IF(ASSOCIATED(g%ngid)) DEALLOCATE(g%ngid)
      IF(ASSOCIATED(g%elid)) DEALLOCATE(g%elid)
      IF(ASSOCIATED(g%nlid)) DEALLOCATE(g%nlid)

      IF(ASSOCIATED(g%egid_X)) DEALLOCATE(g%egid_X)
      IF(ASSOCIATED(g%elid_X)) DEALLOCATE(g%elid_X)
      IF(ASSOCIATED(g%ngid_X)) DEALLOCATE(g%ngid_X)
      IF(ASSOCIATED(g%nlid_X)) DEALLOCATE(g%nlid_X)

      IF(ASSOCIATED(g%NV)) DEALLOCATE(g%NV)

      IF(ASSOCIATED(g%XM)) DEALLOCATE(g%XM)
      IF(ASSOCIATED(g%YM)) DEALLOCATE(g%YM)
      IF(ASSOCIATED(g%LON)) DEALLOCATE(g%LON)
      IF(ASSOCIATED(g%LAT)) DEALLOCATE(g%LAT)

      IF(ASSOCIATED(g%XMC)) DEALLOCATE(g%XMC)
      IF(ASSOCIATED(g%YMC)) DEALLOCATE(g%YMC)
      IF(ASSOCIATED(g%LONC)) DEALLOCATE(g%LONC)
      IF(ASSOCIATED(g%LATC)) DEALLOCATE(g%LATC)

!      IF(ASSOCIATED(G%ART)) DEALLOCATE(G%ART)
!      IF(ASSOCIATED(G%ART1)) DEALLOCATE(G%ART1)
!      IF(ASSOCIATED(G%ART2)) DEALLOCATE(G%ART2)

      IF(ASSOCIATED(g%NBE)) DEALLOCATE(g%NBE)
!      IF(ASSOCIATED(G%NTVE)) DEALLOCATE(G%NTVE)
!      IF(ASSOCIATED(G%NTSN)) DEALLOCATE(G%NTSN)
!      IF(ASSOCIATED(G%ISONB)) DEALLOCATE(G%ISONB)
!      IF(ASSOCIATED(G%ISBC)) DEALLOCATE(G%ISBC)
!      IF(ASSOCIATED(G%IEC)) DEALLOCATE(G%IEC)
!      IF(ASSOCIATED(G%IENODE)) DEALLOCATE(G%IENODE)
      IF(ASSOCIATED(g%NBSN)) DEALLOCATE(g%NBSN)
!      IF(ASSOCIATED(G%NIEC)) DEALLOCATE(G%NIEC)
!      IF(ASSOCIATED(G%NTRG)) DEALLOCATE(G%NTRG)
      IF(ASSOCIATED(g%NBVE)) DEALLOCATE(g%NBVE)
!      IF(ASSOCIATED(G%NBVT)) DEALLOCATE(G%NBVT)

!      IF(ASSOCIATED(G%Z)) DEALLOCATE(G%Z)
!      IF(ASSOCIATED(G%ZZ)) DEALLOCATE(G%ZZ)
 
!      IF(ASSOCIATED(G%A1U)) DEALLOCATE(G%A1U)
!      IF(ASSOCIATED(G%A2U)) DEALLOCATE(G%A2U)
!      IF(ASSOCIATED(G%AWX)) DEALLOCATE(G%AWX)
!      IF(ASSOCIATED(G%AWY)) DEALLOCATE(G%AWY)
!      IF(ASSOCIATED(G%AW0)) DEALLOCATE(G%AW0)
!      IF(ASSOCIATED(G%ALPHA)) DEALLOCATE(G%ALPHA)

!      IF(ASSOCIATED(G%I_OBC_N)) DEALLOCATE(G%I_OBC_N)
!      IF(ASSOCIATED(G%TYPE_OBC)) DEALLOCATE(G%TYPE_OBC)

      
      DEALLOCATE(g)