00001 module grid_temporary
00002 use phys_constant, only : long, nnrg, nntg, nnpg
00003 implicit none
00004 integer :: nrgtmp, ntgtmp, npgtmp, nrftmp, ntftmp, npftmp
00005 real(long) :: rgtmp(0:nnrg), thgtmp(0:nntg), phigtmp(0:nnpg)
00006 end module grid_temporary