2003-01-20 05:58:50 +08:00
|
|
|
!
|
|
|
|
! Copyright (C) 2002 CP90 group
|
|
|
|
! This file is distributed under the terms of the
|
|
|
|
! GNU General Public License. See the file `License'
|
|
|
|
! in the root directory of the present distribution,
|
|
|
|
! or http://www.gnu.org/copyleft/gpl.txt .
|
|
|
|
!
|
|
|
|
|
|
|
|
module stre
|
|
|
|
implicit none
|
|
|
|
save
|
|
|
|
real(kind=8) stress(3,3)
|
|
|
|
end module stre
|
|
|
|
|
|
|
|
module dqrad_mod
|
|
|
|
implicit none
|
|
|
|
save
|
|
|
|
real(kind=8),allocatable:: dqrad(:,:,:,:,:,:,:)
|
2004-02-16 17:53:00 +08:00
|
|
|
contains
|
|
|
|
subroutine deallocate_dqrad_mod
|
|
|
|
IF( ALLOCATED( dqrad ) ) DEALLOCATE( dqrad )
|
|
|
|
end subroutine
|
2003-01-20 05:58:50 +08:00
|
|
|
end module dqrad_mod
|
|
|
|
|
|
|
|
module betax
|
|
|
|
implicit none
|
|
|
|
save
|
|
|
|
integer, parameter:: mmx=5001
|
|
|
|
real(kind=8) :: refg
|
|
|
|
real(kind=8),allocatable:: betagx(:,:,:), dbetagx(:,:,:), &
|
|
|
|
qradx(:,:,:,:,:), dqradx(:,:,:,:,:)
|
2004-02-16 17:53:00 +08:00
|
|
|
contains
|
|
|
|
subroutine deallocate_betax
|
|
|
|
IF( ALLOCATED( betagx ) ) DEALLOCATE( betagx )
|
|
|
|
IF( ALLOCATED( dbetagx ) ) DEALLOCATE( dbetagx )
|
|
|
|
IF( ALLOCATED( qradx ) ) DEALLOCATE( qradx )
|
|
|
|
IF( ALLOCATED( dqradx ) ) DEALLOCATE( dqradx )
|
|
|
|
end subroutine
|
2003-01-20 05:58:50 +08:00
|
|
|
end module betax
|
|
|
|
|
|
|
|
|