/home/uryu/Cocal_svn_checkinout/Cocal/code/Module/def_velocity_rot.f90
Go to the documentation of this file.00001 module def_velocity_rot 00002 use phys_constant, only : long 00003 implicit none 00004 real(long), pointer :: wxspf(:,:,:), wyspf(:,:,:), wzspf(:,:,:) 00005 real(long), pointer :: wxspg(:,:,:), wyspg(:,:,:), wzspg(:,:,:) 00006 real(long) :: sx, sy, sz 00007 ! real(long), parameter :: confpow = -6.0d0 00008 real(long), parameter :: confpow = 0.0d0 00009 end module def_velocity_rot
