module slgshr
        implicit none
c       ^^^^^
      save
      REAL RA                  ! RECIPROCAL OF RADIUS OF EARTH METERS
      REAL, allocatable ::
     &     LAMMP(:,:,:),! TRAJECTORY MID-POINT LONG. COORDINATE
     &     PHIMP(:,:,:),! TRAJECTORY MID-POINT LAT   COORDINATE
     &     SIGMP(:,:,:),! TRAJECTORY MID-POINT SIGMA COORDINATE
     &     PHI(:),            ! LATITUDE  COORDINATES OF MODEL GRID
     &     DPHI(:),           ! LATITUDINAL GRID INCREMENTS
     &     LBASDY(:,:,:),     ! BASIS FUNCTIONS FOR LAT DERIV EST.
     &     LBASIY(:,:,:),     ! BASIS FUNCTIONS FOR LAGRANGE INTERP
     &     dlam(:), rdlam(:), rdlam6(:), lam(:,:), dphii(:)
      integer, allocatable :: nlonex(:)
      end module slgshr