/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/coordinate_patch_kit_bhex.f90
Go to the documentation of this file.00001 subroutine coordinate_patch_kit_bhex 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 ! radial green's function isn't calculated here. 00015 call read_parameter 00016 call grid_r 00017 ! call grid_r_bhex('eBH') 00018 call grid_theta 00019 call trig_grav_theta 00020 call allocate_legendre 00021 call legendre 00022 call grid_phi 00023 call allocate_trig_grav_mphi 00024 call trig_grav_phi 00025 call allocate_weight_midpoint_grav 00026 call weight_calc_midpoint_grav 00027 ! call weight_calc_midpoint_grav_th4th 00028 call allocate_weight_midpoint_fluid 00029 call weight_calc_midpoint_fluid 00030 call grid_extended 00031 end subroutine coordinate_patch_kit_bhex
