00001 subroutine allocate_pBH_CF
00002 use phys_constant, only : long
00003 use grid_parameter
00004 use def_metric_pBH
00005 use make_array_3d
00006 use make_array_5d
00007 implicit none
00008
00009 call alloc_array3d(wme , 0, nrg, 0, ntg, 0, npg)
00010 call alloc_array3d(log_wme, 0, nrg, 0, ntg, 0, npg)
00011 call alloc_array3d(log_N, 0, nrg, 0, ntg, 0, npg)
00012 call alloc_array5d(aij_trpBH,1,nrg,1,ntg,1,npg,1,3,1,3)
00013 call alloc_array3d(aijaij_trpBH,1,nrg,1,ntg,1,npg)
00014 call alloc_array5d(aij_trpBH_grid,0,nrg,0,ntg,0,npg,1,3,1,3)
00015 call alloc_array3d(aijaij_trpBH_grid,0,nrg,0,ntg,0,npg)
00016
00017 call allocate_horizon
00018
00019 end subroutine allocate_pBH_CF
