00001 subroutine allocate_BBH_CF
00002 use phys_constant, only : long
00003 use grid_parameter
00004 use def_metric
00005 use def_vector_x
00006 use def_vector_phi
00007 use make_array_2d
00008 use make_array_3d
00009 use make_array_5d
00010 implicit none
00011
00012 call alloc_array3d(psi , 0, nrg, 0, ntg, 0, npg)
00013 call alloc_array3d(alph, 0, nrg, 0, ntg, 0, npg)
00014 call alloc_array3d(alps, 0, nrg, 0, ntg, 0, npg)
00015 call alloc_array3d(bvxd, 0, nrg, 0, ntg, 0, npg)
00016 call alloc_array3d(bvyd, 0, nrg, 0, ntg, 0, npg)
00017 call alloc_array3d(bvzd, 0, nrg, 0, ntg, 0, npg)
00018 call alloc_array3d(bvxu, 0, nrg, 0, ntg, 0, npg)
00019 call alloc_array3d(bvyu, 0, nrg, 0, ntg, 0, npg)
00020 call alloc_array3d(bvzu, 0, nrg, 0, ntg, 0, npg)
00021
00022 call alloc_array3d(tfkijkij,1,nrg,1,ntg,1,npg)
00023
00024 call alloc_array5d(tfkij,1,nrg,1,ntg,1,npg,1,3,1,3)
00025
00026 call allocate_vector_x
00027 call allocate_vector_phi
00028
00029 end subroutine allocate_BBH_CF
