/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/coordinate_patch_kit_grav.f90
Go to the documentation of this file.00001 subroutine coordinate_patch_kit_grav 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 radial_green_fn_grav 00012 use legendre_fn_grav 00013 implicit none 00014 ! call subroutines. the order is important. 00015 call read_parameter 00016 call grid_r 00017 call allocate_hgfn 00018 call calc_hgfn 00019 call grid_theta 00020 call trig_grav_theta 00021 call allocate_legendre 00022 call legendre 00023 call grid_phi 00024 call allocate_trig_grav_mphi 00025 call trig_grav_phi 00026 call allocate_weight_midpoint_grav 00027 call weight_calc_midpoint_grav 00028 ! call weight_calc_midpoint_grav_th4th 00029 call allocate_weight_midpoint_fluid 00030 call weight_calc_midpoint_fluid 00031 call grid_extended 00032 end subroutine coordinate_patch_kit_grav 00033
