00001 subroutine allocate_matter_mpt
00002 use phys_constant, only : nmpt
00003 use grid_parameter, only : nrf, ntf, npf, nrg, ntg, npg
00004 use def_metric
00005 use def_metric_mpt
00006 use def_matter
00007 use def_matter_mpt
00008 use def_velocity_rot_mpt
00009 use make_array_3d
00010 use make_array_4d
00011 implicit none
00012
00013 call alloc_array3d(rs_ , 0, ntf, 0, npf, 1, nmpt)
00014 call alloc_array4d(emd_ , 0, nrf, 0, ntf, 0, npf, 1, nmpt)
00015 call alloc_array4d(utf_ , 0, nrf, 0, ntf, 0, npf, 1, nmpt)
00016 call alloc_array4d(omef_ , 0, nrf, 0, ntf, 0, npf, 1, nmpt)
00017 call alloc_array4d(jomef_ , 0, nrf, 0, ntf, 0, npf, 1, nmpt)
00018 call alloc_array4d(jomef_int_, 0, nrf, 0, ntf, 0, npf, 1, nmpt)
00019
00020 call alloc_array4d(emdg_ , 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00021 call alloc_array4d(utg_ , 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00022 call alloc_array4d(omeg_ , 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00023 call alloc_array4d(jomeg_ , 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00024 call alloc_array4d(jomeg_int_, 0, nrg, 0, ntg, 0, npg, 1, nmpt)
00025
00026 call alloc_array4d(vep_ , 0, nrf, 0, ntf, 0, npf, 1, nmpt)
00027 call alloc_array4d(wxspf_ , 0, nrf, 0, ntf, 0, npf, 1, nmpt)
00028 call alloc_array4d(wyspf_ , 0, nrf, 0, ntf, 0, npf, 1, nmpt)
00029 call alloc_array4d(wzspf_ , 0, nrf, 0, ntf, 0, npf, 1, nmpt)
00030
00031 end subroutine allocate_matter_mpt
