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