/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/coordinate_update_binary.f90
Go to the documentation of this file.00001 subroutine coordinate_update_binary 00002 use grid_parameter_binary_excision 00003 use grid_points_binary_excision 00004 use weight_midpoint_binary_excision 00005 use def_vector_phi 00006 implicit none 00007 ! update ex_nrg 00008 ex_nrg = 00009 call calc_parameter_binary_excision 00010 call calc_grid_points_binary_excision 00011 call calc_weight_midpoint_binary_excision 00012 ! 00013 call calc_vector_phi_grav 00014 call calc_vector_phi_matter 00015 end subroutine coordinate_update_binary
