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

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_plot_MRNS.f90'
00010 include '../Include_file/include_modulefiles_analysis_plot_MRNS.f90'
00011 include '../Include_file/include_interface_modulefiles_plot_MRNS.f90'
00012 include '../Include_file/include_interface_modulefiles_analysis_plot_MRNS.f90'
00013 include '../Include_file/include_subroutines_plot_MRNS.f90'
00014 include '../Include_file/include_subroutines_analysis_plot_MRNS.f90'
00015 include '../Include_file/include_functions.f90'
00016 !
00017 !______________________________________________
00018 !
00019 !              Interpolation Program
00020 !______________________________________________
00021 PROGRAM interpolation_contour_potential_MRNS
00022 !
00023   use weight_midpoint_grav
00024   implicit none
00025 !
00026   call coordinate_patch_kit_grav_noGreen
00027   call coordinate_patch_cartesian
00028   call allocate_metric_and_matter_WL_MHD
00029   call allocate_metric_and_matter_WL_cartesian
00030   call allocate_matter_velocity
00031   call allocate_emfield
00032   call allocate_emfield_cartesian
00033   call allocate_weight_midpoint_grav
00034   call weight_calc_midpoint_grav
00035 !
00036   call IO_input_initial_3D
00037   call IO_input_initial_3D_WL
00038   call IO_input_initial_3D_4ve
00039   call IO_input_initial_3D_EMF
00040 !
00041   call interpolation_cartesian_MRNS
00042   call IO_output_cartesian_contour_CF
00043   call IO_output_cartesian_contour_WL
00044   call IO_output_cartesian_contour_FLU
00045   call IO_output_cartesian_contour_EMF
00046   call IO_output_surface
00047   call printout_NS_shape_seq(1)
00048 !
00049 END PROGRAM interpolation_contour_potential_MRNS
/home/uryu/Cocal_svn_checkinout/Cocal/code/Main_utility/interpolation_contour_potential_MRNS.f90
