00001 subroutine allocate_def_quantities_derived_mpt 00002 use phys_constant, only : nmpt 00003 use def_quantities_derived_mpt 00004 use make_array_2d 00005 implicit none 00006 ! -- Other derived quantities 00007 call alloc_array2d(def_quantities_derived_real_ , 1, 50, 1, nmpt) 00008 ! 00009 end subroutine allocate_def_quantities_derived_mpt