/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/update_parameter_WL_peos.f90
Go to the documentation of this file.00001 subroutine update_parameter_WL_peos(conv_den) 00002 use grid_parameter, only : EQ_point 00003 use interface_update_parameter_axisym_peos 00004 use interface_update_parameter_triaxial_peos 00005 implicit none 00006 real(8), intent(in) :: conv_den 00007 if (EQ_point.eq.'XZ') call update_parameter_axisym_WL_peos(conv_den) 00008 if (EQ_point.eq.'XY') call update_parameter_triaxial_WL_peos(conv_den) 00009 end subroutine update_parameter_WL_peos
