module modstag 31
  implicit none
  save
  ! -----------------------------------------------------------------
#if defined (DOC) 
  !
  ! Module MODSTAG_GRID:  Description of staggered grid related parameters
  !
  ! NJ_S   : number of latitudes circles on staggered grid
  ! NLATH_S: number of latitude circles on one hemisphere
  ! -------------------
  ! RMU_S   : mu    =    sin(RLAT_S)
  ! RWT_S   : weights of the quadrature used for the Legendre transform
  ! RWOCS_S : weight/(1 - mu**2)
  ! R1MU2_S : 1.- MU**2         
  ! RSQM2_S : SQRT(1 - MU**2)   
  ! RCOLAT_S: colatitude          
  ! R1QM2_S : 1./SQRT(R1MU2)      
  ! R1MUI_S : 1./(1 - MU**2)      
  ! R1MUA_S : 1./(A*(1 - MU**2))  
  ! RLATI_S : latitude : arcsin(mu)
  ! --------------------------------------------------------
#endif
  !
  REAL*8, pointer:: RMU_S(:),  RWT_S(:),  RWOCS_S(:) &
       ,R1MU2_S(:),RSQM2_S(:),RCOLAT_S(:)&
       ,R1QM2_S(:),R1MUI_S(:),R1MUA_S(:)&
       ,RLATI_S(:)
  integer :: nj_s, njlath_s
  logical :: level2_staggrid
  logical :: lstagwinds ! true : exchanges of staggered winds with tlm ; namstag
  !
end module modstag