/home/uryu/Cocal_svn_checkinout/Cocal/code/Main_utility/interpolation_contour_potential_RNS_WL.f90
Go to the documentation of this file.00001 !______________________________________________ 00002 !include '../Include_file/include_modulefiles_MRNS.f90' 00003 !include '../Include_file/include_interface_modulefiles_MRNS.f90' 00004 !include '../Include_file/include_PEOS_modulefile.f90' 00005 !include '../Include_file/include_PEOS_subroutines.f90' 00006 !include '../Include_file/include_subroutines_MRNS.f90' 00007 !include '../Include_file/include_functions.f90' 00008 ! 00009 include '../Include_file/include_modulefiles_RNS_WL_peos_plot.f90' 00010 include '../Include_file/include_modulefiles_analysis_RNS_WL_peos_plot.f90' 00011 include '../Include_file/include_interface_modulefiles_RNS_WL_peos_plot.f90' 00012 include '../Include_file/include_interface_modulefiles_analysis_RNS_WL_peos_plot.f90' 00013 include '../Include_file/include_subroutines_RNS_WL_peos_plot.f90' 00014 include '../Include_file/include_subroutines_analysis_RNS_WL_peos_plot.f90' 00015 include '../Include_file/include_functions.f90' 00016 !______________________________________________ 00017 ! 00018 ! Interpolation Program 00019 !______________________________________________ 00020 PROGRAM interpolation_contour_potential_RNS_WL 00021 ! 00022 use weight_midpoint_grav 00023 implicit none 00024 ! 00025 call coordinate_patch_kit_grav_noGreen 00026 call coordinate_patch_cartesian 00027 ! call allocate_metric_and_matter_WL 00028 call allocate_metric_and_matter_WL_MHD 00029 call allocate_metric_and_matter_WL_cartesian 00030 call allocate_matter_velocity 00031 call allocate_weight_midpoint_grav 00032 call weight_calc_midpoint_grav 00033 ! 00034 call IO_input_initial_3D 00035 call IO_input_initial_3D_WL 00036 ! 00037 call interpolation_cartesian_RNS_WL 00038 call IO_output_cartesian_contour_CF 00039 call IO_output_cartesian_contour_WL 00040 call IO_output_cartesian_contour_FLU 00041 call IO_output_surface 00042 call printout_NS_shape_seq(1) 00043 ! 00044 END PROGRAM interpolation_contour_potential_RNS_WL
