/home/uryu/Cocal_svn_checkinout/Cocal/code/Analysis/Subroutine/coordinate_patch_kit_grav_noGreen.f90
Go to the documentation of this file.00001 subroutine coordinate_patch_kit_grav_noGreen 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 use weight_midpoint_grav 00010 implicit none 00011 ! call subroutines. the order is important. 00012 call read_parameter 00013 call grid_r 00014 ! call grid_r_bhex('eBH') 00015 call grid_theta 00016 call trig_grav_theta 00017 call grid_phi 00018 call allocate_trig_grav_mphi 00019 call trig_grav_phi 00020 call grid_extended 00021 ! 00022 end subroutine coordinate_patch_kit_grav_noGreen
