/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine_mpatch/allocate_matter_emdrsrhof_mpt.f90
Go to the documentation of this file.00001 subroutine allocate_matter_emdrsrhof_mpt 00002 use grid_parameter , only : nrf, ntf, npf 00003 use matter_emdrsrhof_mpt 00004 use phys_constant, only : nmpt 00005 use make_array_3d 00006 use make_array_4d 00007 implicit none 00008 ! 00009 call alloc_array3d(rs_, 0, ntf, 0, npf, 1, nmpt) 00010 call alloc_array4d(emd_, 0, nrf, 0, ntf, 0, npf, 1, nmpt) 00011 call alloc_array4d(rhof_, 0, nrf, 0, ntf, 0, npf, 1, nmpt) 00012 ! 00013 end subroutine allocate_matter_emdrsrhof_mpt
