00001 subroutine allocate_BNS_CF
00002 use phys_constant, only : long
00003 use grid_parameter
00004 use def_metric
00005 use def_matter
00006 use def_metric_excurve_grid
00007 use def_vector_x
00008 use def_vector_phi
00009
00010 use def_vector_irg
00011 use make_array_2d
00012 use make_array_3d
00013 use make_array_5d
00014 implicit none
00015
00016 call alloc_array2d(rs, 0, ntf, 0, npf)
00017 call alloc_array3d(emdg, 0, nrg, 0, ntg, 0, npg)
00018 call alloc_array3d(emd, 0, nrf, 0, ntf, 0, npf)
00019 call alloc_array3d(utg, 0, nrg, 0, ntg, 0, npg)
00020 call alloc_array3d(utf, 0, nrf, 0, ntf, 0, npf)
00021 call alloc_array3d(omeg, 0, nrg, 0, ntg, 0, npg)
00022 call alloc_array3d(omef, 0, nrf, 0, ntf, 0, npf)
00023 call alloc_array3d(jomeg, 0, nrg, 0, ntg, 0, npg)
00024 call alloc_array3d(jomef, 0, nrf, 0, ntf, 0, npf)
00025 call alloc_array3d(jomeg_int, 0, nrg, 0, ntg, 0, npg)
00026 call alloc_array3d(jomef_int, 0, nrf, 0, ntf, 0, npf)
00027
00028 call alloc_array3d(psi , 0, nrg, 0, ntg, 0, npg)
00029 call alloc_array3d(alph, 0, nrg, 0, ntg, 0, npg)
00030 call alloc_array3d(alps, 0, nrg, 0, ntg, 0, npg)
00031 call alloc_array3d(bvxd, 0, nrg, 0, ntg, 0, npg)
00032 call alloc_array3d(bvyd, 0, nrg, 0, ntg, 0, npg)
00033 call alloc_array3d(bvzd, 0, nrg, 0, ntg, 0, npg)
00034 call alloc_array3d(bvxu, 0, nrg, 0, ntg, 0, npg)
00035 call alloc_array3d(bvyu, 0, nrg, 0, ntg, 0, npg)
00036 call alloc_array3d(bvzu, 0, nrg, 0, ntg, 0, npg)
00037
00038 call alloc_array3d(tfkijkij,1,nrg,1,ntg,1,npg)
00039 call alloc_array5d(tfkij, 1,nrg,1,ntg,1,npg,1,3,1,3)
00040 call alloc_array3d(tfkijkij_grid, 0, nrg, 0, ntg, 0, npg)
00041 call alloc_array5d(tfkij_grid, 0, nrg, 0, ntg, 0, npg, 1, 3, 1, 3)
00042 call alloc_array3d(trk,1,nrg,1,ntg,1,npg)
00043 call alloc_array3d(trk_grid, 0, nrg, 0, ntg, 0, npg)
00044
00045 call allocate_vector_x
00046 call allocate_vector_phi
00047
00048 call allocate_vector_irg
00049
00050 psi(0:nrg,0:ntg,0:npg) =1.0d0
00051 alph(0:nrg,0:ntg,0:npg)=1.0d0
00052 alps(0:nrg,0:ntg,0:npg)=1.0d0
00053 bvxd(0:nrg,0:ntg,0:npg)=0.0d0
00054 bvyd(0:nrg,0:ntg,0:npg)=0.0d0
00055 bvzd(0:nrg,0:ntg,0:npg)=0.0d0
00056
00057 tfkijkij(1:nrg,1:ntg,1:npg) =0.0d0
00058 tfkij(1:nrg,1:ntg,1:npg,1:3,1:3)=0.0d0
00059 tfkijkij_grid(0:nrg,0:ntg,0:npg) =0.0d0
00060 tfkij_grid(0:nrg,0:ntg,0:npg,1:3,1:3)=0.0d0
00061
00062 end subroutine allocate_BNS_CF
