/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/initial_AHfinder.f90
Go to the documentation of this file.00001 subroutine initial_AHfinder 00002 use phys_constant, only : long, pi 00003 use grid_parameter, only : ntg, npg 00004 use def_horizon, only : ahz 00005 integer :: itg, ipg 00006 ! 00007 ahz(0:ntg,0:npg) = 0.4d0 00008 ! 00009 end subroutine initial_AHfinder
