Cocal: /home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/update_parameter_WL

00001 subroutine update_parameter_WL_peos(conv_den)
00002   use grid_parameter, only : EQ_point, nrf_deform, nrf
00003   use def_matter_parameter, only : ROT_LAW
00004 !  use interface_update_parameter_axisym_peos
00005 !  use interface_update_parameter_triaxial_peos
00006   implicit none
00007   real(8), intent(in) :: conv_den
00008 !
00009   if (nrf.ne.nrf_deform) then
00010     if (ROT_LAW.eq.'DR'.or.ROT_LAW.eq.'OJ') then
00011       call update_parameter_axisym_WL_peos_drot(conv_den)
00012     else if (EQ_point.eq.'XZ') then
00013       call update_parameter_axisym_WL_peos(conv_den)
00014     else if (EQ_point.eq.'XY') then
00015       call update_parameter_triaxial_WL_peos(conv_den)
00016     end if
00017   else
00018     call update_parameter_spherical_peos(conv_den)
00019   end if
00020 end subroutine update_parameter_WL_peos

/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/update_parameter_WL_peos.f90