Cocal: /home/uryu/Cocal_svn_checkinout/Cocal/code/Module_mpatch/trigonometry_grav_theta

00001 !  trigonometric functions in theta coordinate
00002 !______________________________________________
00003 MODULE trigonometry_grav_theta_mpt
00004   use phys_constant, only : nntg, long,nnmpt
00005   use grid_parameter, only : ntg 
00006   use coordinate_grav_theta, only : thg, hthg
00007   implicit none
00008   real(long) :: sinthg_(0:nntg,nnmpt),costhg_(0:nntg,nnmpt)
00009   real(long) :: cosecthg_(0:nntg,nnmpt),cotanthg_(0:nntg,nnmpt)
00010   real(long) :: hsinthg_(nntg,nnmpt), hcosthg_(nntg,nnmpt)
00011   real(long) :: hcosecthg_(nntg,nnmpt), hcotanthg_(nntg,nnmpt)
00012 end module trigonometry_grav_theta_mpt

/home/uryu/Cocal_svn_checkinout/Cocal/code/Module_mpatch/trigonometry_grav_theta_mpt.f90