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

00001 !  trigonometric functions in phi coordinate
00002 !______________________________________________
00003 MODULE trigonometry_grav_phi_mpt
00004   use phys_constant, only  : nnpg, long, nnmpt
00005   use grid_parameter, only : npg, nlg
00006   use make_array_2d
00007   implicit none
00008   real(long) ::  sinphig_(0:nnpg,nnmpt), cosphig_(0:nnpg,nnmpt)
00009   real(long) :: hsinphig_(nnpg,nnmpt),  hcosphig_(nnpg,nnmpt)
00010   real(long), pointer :: sinmpg_(:,:,:), cosmpg_(:,:,:)
00011   real(long), pointer :: hsinmpg_(:,:,:), hcosmpg_(:,:,:)
00012 end module trigonometry_grav_phi_mpt

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