/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine_mpatch/coordinate_patch_kit_grav_mpt.f90
Go to the documentation of this file.00001 subroutine coordinate_patch_kit_grav_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 weight_midpoint_grav 00008 use weight_midpoint_fluid 00009 use trigonometry_grav_theta 00010 use trigonometry_grav_phi 00011 use legendre_fn_grav 00012 implicit none 00013 ! call subroutines. the order is important. 00014 call grid_r 00015 ! call grid_r_bhex('eBH') 00016 call grid_theta 00017 call trig_grav_theta 00018 call legendre 00019 call grid_phi 00020 call trig_grav_phi 00021 call weight_calc_midpoint_grav 00022 ! call weight_calc_midpoint_grav_th4th 00023 call weight_calc_midpoint_fluid 00024 call grid_extended 00025 end subroutine coordinate_patch_kit_grav_mpt 00026
