/home/uryu/Cocal_svn_checkinout/Cocal/code/Main_utility/interpolation_main_qeos.f90
Go to the documentation of this file.00001 !______________________________________________ 00002 include '../Include_file/include_modulefiles_RQS_CF_qeos_plot.f90' 00003 include '../Include_file/include_modulefiles_analysis_RQS_CF_qeos_plot.f90' 00004 include '../Include_file/include_interface_modulefiles_RQS_CF_qeos_plot.f90' 00005 include '../Include_file/include_interface_modulefiles_analysis_RQS_CF_qeos_plot.f90' 00006 include '../Include_file/include_subroutines_RQS_CF_qeos_plot.f90' 00007 include '../Include_file/include_subroutines_analysis_RQS_CF_qeos_plot.f90' 00008 include '../Include_file/include_QEOS_modulefile.f90' 00009 include '../Include_file/include_QEOS_subroutines.f90' 00010 include '../Include_file/include_functions.f90' 00011 !______________________________________________ 00012 ! 00013 ! Interpolation Program 00014 !______________________________________________ 00015 PROGRAM interpolation_main_qeos 00016 ! 00017 use def_matter_parameter, only : rhos_qs 00018 use def_qeos_parameter 00019 implicit none 00020 ! 00021 call qeos_initialize 00022 rhos_qs = rhosurf_gcm1 00023 call coordinate_patch_kit_grav_noGreen 00024 call coordinate_patch_cartesian 00025 call allocate_metric_and_matter_qeos 00026 call allocate_metric_and_matter_cartesian_qeos 00027 call allocate_matter_velocity 00028 call IO_input_initial_3D_qeos 00029 ! 00030 call interpolation_cartesian_qeos 00031 call IO_output_cartesian_contour_qeos 00032 call IO_output_surface 00033 call IO_output_plot_xyz_qeos 00034 call printout_NS_shape_seq(1) 00035 ! 00036 END PROGRAM interpolation_main_qeos
