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

Go to the documentation of this file.

module def_metric_excurve_grid_mpt
  use phys_constant, only : long
  implicit none
  real(long), pointer  ::  tfkij_grid_(:,:,:,:,:,:), tfkijkij_grid_(:,:,:,:)
end module def_metric_excurve_grid_mpt

---