00001 subroutine coordinate_patch_kit_grav_noGreen_mpt 00002 use grid_parameter 00003 use coordinate_grav_r 00004 use coordinate_grav_phi 00005 use coordinate_grav_theta 00006 use coordinate_grav_extended 00007 use trigonometry_grav_theta 00008 use trigonometry_grav_phi 00009 implicit none 00010 ! call subroutines. the order is important. 00011 call grid_r 00012 ! call grid_r_bhex('eBH') 00013 call grid_theta 00014 call trig_grav_theta 00015 call grid_phi 00016 call trig_grav_phi 00017 call grid_extended 00018 end subroutine coordinate_patch_kit_grav_noGreen_mpt 00019