00001
00002 include '../Include_file/include_modulefiles_peos.f90'
00003 include '../Include_file/include_interface_utilities.f90'
00004 include '../Include_file/include_subroutines_utilities.f90'
00005 include '../Include_file/include_PEOS_modulefile.f90'
00006 include '../Include_file/include_PEOS_subroutines.f90'
00007 include '../Include_file/include_functions.f90'
00008
00009 include '../Module/def_matter_velocity.f90'
00010
00011 include '../Subroutine/allocate_metric_CF.f90'
00012 include '../Subroutine/allocate_matter_emdrsrho.f90'
00013 include '../Subroutine/allocate_matter_3velocity.f90'
00014 include '../Subroutine/allocate_matter_4velocity.f90'
00015 include '../Subroutine/calc_3velocity_corot.f90'
00016 include '../Subroutine/calc_4velocity_corot.f90'
00017 include '../Subroutine/calc_matter_rhof.f90'
00018
00019 include '../Subroutine/interpolation_fl2gr_IDall.f90'
00020 include '../Subroutine/IO_input_converged_solution_3D.f90'
00021 include '../Subroutine/IO_input_converged_solution_fluid_3D.f90'
00022 include '../Subroutine/IO_output_solution_IDall_3D.f90'
00023
00024 include '../Analysis/Subroutine/coordinate_patch_kit_grav_noGreen.f90'
00025
00026
00027
00028
00029 PROGRAM output_ID_all
00030
00031 use def_vector_phi
00032 implicit none
00033
00034 call coordinate_patch_kit_grav_noGreen
00035 call peos_initialize
00036 call allocate_metric_CF
00037 call allocate_matter_emdrsrho
00038 call allocate_matter_3velocity
00039 call allocate_matter_4velocity
00040 call allocate_vector_phi
00041 call IO_input_converged_solution_3D
00042 call IO_input_converged_solution_fluid_3D
00043
00044 call calc_vector_phi_matter(1)
00045 call calc_3velocity_corot
00046 call calc_4velocity_corot
00047 call calc_matter_rhof
00048 call interpolation_fl2gr_IDall
00049
00050 call IO_output_solution_IDall_3D
00051
00052 END PROGRAM output_ID_all
