module geogrid_t3d ! ! Global geographic grid for TIME3D. ! use shr_kind_mod, only : r8 => shr_kind_r8 ! 8-byte reals implicit none save public integer :: & ! dimensions nlat, & ! number of latitudes nlon, & ! number of longitudes nlev ! number of midpoint levels real(r8),allocatable,dimension(:) :: & ! coordinate vars ylatg, & ! latitudes (radians) ylong ! longitudes (radians) end module geogrid_t3d