00001 subroutine allocate_BNS_CF_mpt
00002 use phys_constant, only : nmpt
00003 use grid_parameter, only : nrf, ntf, npf, nrg, ntg, npg
00004 use def_metric_mpt
00005 use def_matter_mpt
00006 use def_metric_excurve_grid_mpt
00007 use make_array_3d
00008 use make_array_4d
00009 use make_array_6d
00010 implicit none
00011
00012 call alloc_array3d(rs_ , 0, ntf, 0, npf, 1, nmpt)
00013 call alloc_array4d(emdg_ , 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00014 call alloc_array4d(emd_ , 0, nrf, 0, ntf, 0, npf, 1, nmpt)
00015 call alloc_array4d(utg_ , 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00016 call alloc_array4d(utf_ , 0, nrf, 0, ntf, 0, npf, 1, nmpt)
00017 call alloc_array4d(omeg_ , 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00018 call alloc_array4d(omef_ , 0, nrf, 0, ntf, 0, npf, 1, nmpt)
00019 call alloc_array4d(jomeg_ , 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00020 call alloc_array4d(jomef_ , 0, nrf, 0, ntf, 0, npf, 1, nmpt)
00021 call alloc_array4d(jomeg_int_, 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00022 call alloc_array4d(jomef_int_, 0, nrf, 0, ntf, 0, npf, 1, nmpt)
00023
00024 call alloc_array4d(psi_ , 0,nrg, 0,ntg, 0,npg, 1,nmpt)
00025 call alloc_array4d(alph_, 0,nrg, 0,ntg, 0,npg, 1,nmpt)
00026 call alloc_array4d(alps_, 0,nrg, 0,ntg, 0,npg, 1,nmpt)
00027 call alloc_array4d(bvxd_, 0,nrg, 0,ntg, 0,npg, 1,nmpt)
00028 call alloc_array4d(bvyd_, 0,nrg, 0,ntg, 0,npg, 1,nmpt)
00029 call alloc_array4d(bvzd_, 0,nrg, 0,ntg, 0,npg, 1,nmpt)
00030
00031
00032
00033
00034
00035
00036 end subroutine allocate_BNS_CF_mpt
