/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/calc_physical_quantities_WL_MHD.f90
Go to the documentation of this file.00001 subroutine calc_physical_quantities_WL_MHD 00002 implicit none 00003 ! 00004 call interpo_gr2fl_metric_WL 00005 call SEM_tensor 00006 call SEM_tensor_EMF 00007 ! 00008 call calc_rest_mass_peos 00009 call calc_mass_WL_MHD 00010 call calc_proper_mass_peos 00011 call calc_ang_mom_WL_MHD 00012 call calc_charge_MHD 00013 call calc_ToverW_WL_MHD ! to compute I_inertia 00014 call calc_virial_WL_MHD 00015 call calc_EMenergy_axisym_WL 00016 call calc_radius_WL 00017 call calc_redblue_shift_WL 00018 ! 00019 call excurve_WL_gridpoint 00020 call calc_mass_asympto('ns') 00021 call calc_angmom_asympto('ns') 00022 call calc_charge_asympto('ns') 00023 ! 00024 call calc_quad_pole_peos 00025 call calc_physq_center_peos 00026 call calc_physq_cgs_peos 00027 call calc_enthalpy_xyzaxis 00028 end subroutine calc_physical_quantities_WL_MHD
