setprob.f.html | |
Source file: setprob.f | |
Directory: /Users/rjl/git/rjleveque/clawpack-4.6.3/apps/advection/2d/sphere/rotation | |
Converted: Mon Jan 21 2013 at 20:15:21 using clawcode2html | |
This documentation file will not reflect any later changes in the source file. |
subroutine setprob implicit double precision (a-h,o-z) common /comaxis/ xaxis,yaxis,zaxis c # axis of rotation and speed: xaxis = 0.d0 yaxis = 0.d0 zaxis = 6.2832d0 close(unit=7) return end