00001 subroutine allocate_grid_parameter_mpt
00002 use phys_constant, only : nmpt
00003 use grid_parameter_mpt
00004 use make_int_array_2d
00005 use make_char2_array_2d
00006 use make_char1_array_2d
00007 use make_array_2d
00008 implicit none
00009
00010 call alloc_int_array2d(grid_param_int_ , 1, 39, 1, nmpt)
00011 call alloc_char2_array2d(grid_param_char2_ , 1, 10, 1, nmpt)
00012 call alloc_char1_array2d(grid_param_char1_ , 1, 10, 1, nmpt)
00013 call alloc_array2d(grid_param_real_ , 1, 20, 1, nmpt)
00014
00015 call alloc_int_array2d(surf_param_int_ , 1, 10, 1, nmpt)
00016 call alloc_array2d(surf_param_real_ , 1, 10, 1, nmpt)
00017
00018 end subroutine allocate_grid_parameter_mpt
