allocate_BBH_CF_AH_mpt.f90

Go to the documentation of this file.
00001 subroutine allocate_BBH_CF_AH_mpt
00002   use phys_constant, only : nmpt
00003   use grid_parameter, only : nrg, ntg, npg
00004   use def_metric_mpt
00005   use def_metric_excurve_grid_mpt
00006   use def_vector_x
00007   use def_vector_phi
00008   use def_vector_bh
00009   use make_array_4d
00010   use make_array_6d
00011   implicit none
00012 !
00013   call alloc_array4d(psi_ , 0,nrg, 0,ntg, 0,npg, 1,nmpt)
00014   call alloc_array4d(alph_, 0,nrg, 0,ntg, 0,npg, 1,nmpt)
00015   call alloc_array4d(alps_, 0,nrg, 0,ntg, 0,npg, 1,nmpt)
00016   call alloc_array4d(bvxd_, 0,nrg, 0,ntg, 0,npg, 1,nmpt)
00017   call alloc_array4d(bvyd_, 0,nrg, 0,ntg, 0,npg, 1,nmpt)
00018   call alloc_array4d(bvzd_, 0,nrg, 0,ntg, 0,npg, 1,nmpt)
00019   call alloc_array4d(bvxu_, 0,nrg, 0,ntg, 0,npg, 1,nmpt)
00020   call alloc_array4d(bvyu_, 0,nrg, 0,ntg, 0,npg, 1,nmpt)
00021   call alloc_array4d(bvzu_, 0,nrg, 0,ntg, 0,npg, 1,nmpt)
00022 !
00023 !!!  call alloc_array4d(tfkijkij_, 1,nrg, 1,ntg, 1,npg, 1,nmpt)
00024 !!!  call alloc_array6d(tfkij_,    1,nrg, 1,ntg, 1,npg, 1,3, 1,3, 1,nmpt)
00025 !!!  call alloc_array4d(tfkijkij_grid_, 0,nrg, 0,ntg, 0,npg, 1,nmpt)
00026 !!!  call alloc_array6d(tfkij_grid_, 0,nrg, 0,ntg, 0,npg, 1,3, 1,3, 1,nmpt)
00027 !
00028 end subroutine allocate_BBH_CF_AH_mpt