Cocal: /home/uryu/Cocal_svn_checkinout/Cocal/code/Main_utility/interpolation_contour_wave

00001 !______________________________________________
00002 include '../Include_file/include_modulefiles_peos.f90'
00003 include '../Include_file/include_interface_modulefiles_peos.f90'
00004 include '../Include_file/include_subroutines_peos.f90'
00005 !
00006 include '../Module/def_matter_velocity.f90'
00007 include '../Subroutine/interpo_lag4th_2Dsurf.f90'
00008 !
00009 include '../Analysis/Module/grid_parameter_cartesian.f90'
00010 include '../Analysis/Module/coordinate_grav_xyz.f90'
00011 include '../Analysis/Module/def_metric_cartesian.f90'
00012 include '../Analysis/Module/def_matter_cartesian.f90'
00013 include '../Analysis/Module/interface_modules_cartesian.f90'
00014 !
00015 include '../Analysis/Subroutine/coordinate_patch_kit_grav_noGreen.f90'
00016 include '../Analysis/Subroutine/coordinate_patch_cartesian.f90'
00017 include '../Analysis/Subroutine/allocate_metric_and_matter_cartesian.f90'
00018 include '../Analysis/Subroutine/IO_output_cartesian_contour_potential_test.f90'
00019 include '../Analysis/Subroutine/IO_output_surface.f90'
00020 include '../Analysis/Subroutine/interpo_gr2cgr_4th.f90'
00021 include '../Analysis/Subroutine/interpo_fl2cgr_4th.f90'
00022 include '../Analysis/Subroutine/interpolation_metric.f90'
00023 include '../Analysis/Subroutine/interpolation_matter.f90'
00024 include '../Analysis/Subroutine/calc_potential_minus_rinv.f90'
00025 include '../Analysis/Subroutine/IO_output.f90'
00026 include '../Subroutine/allocate_poisson_solver_test.f90'
00027 include '../Subroutine/IO_input_potential_test_3D.f90'
00028 !include '../Analysis/Subroutine/interpolation_cartesian.f90'
00029 !______________________________________________
00030 !
00031 !              Interpolation Program
00032 !______________________________________________
00033 PROGRAM interpolation_contour_wave_test
00034 !
00035   use interface_modules_cartesian
00036   use def_metric, only : psi
00037   use def_metric_cartesian, only : psica
00038   implicit none
00039 !
00040   call coordinate_patch_kit_grav_noGreen
00041   call coordinate_patch_cartesian
00042   call allocate_poisson_solver_test
00043   call allocate_metric_and_matter_cartesian
00044   call IO_input_potential_test_3D
00045   call IO_output
00046   call calc_potential_minus_rinv
00047   call interpolation_metric(psi,psica)
00048 !
00049   call IO_output_cartesian_contour_potential_test
00050 !
00051 END PROGRAM interpolation_contour_wave_test
/home/uryu/Cocal_svn_checkinout/Cocal/code/Main_utility/interpolation_contour_wave_test.f90
