00001 subroutine allocate_coordinate_patch_kit_grav_mpt 00002 use weight_midpoint_grav 00003 use weight_midpoint_fluid 00004 use trigonometry_grav_phi 00005 use legendre_fn_grav 00006 use weight_midpoint_fluid_sphcoord 00007 implicit none 00008 ! call subroutines. the order is important. 00009 call allocate_legendre 00010 call allocate_trig_grav_mphi 00011 call allocate_weight_midpoint_grav 00012 call allocate_weight_midpoint_fluid 00013 call allocate_weight_midpoint_fluid_sphcoord 00014 end subroutine allocate_coordinate_patch_kit_grav_mpt