!-------------------------------------- LICENCE BEGIN ------------------------------------
!Environment Canada - Atmospheric Science and Technology License/Disclaimer, 
!                     version 3; Last Modified: May 7, 2008.
!This is free but copyrighted software; you can use/redistribute/modify it under the terms 
!of the Environment Canada - Atmospheric Science and Technology License/Disclaimer 
!version 3 or (at your option) any later version that should be found at: 
!http://collaboration.cmc.ec.gc.ca/science/rpn.comm/license.html 
!
!This software is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; 
!without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 
!See the above mentioned License/Disclaimer for more details.
!You should have received a copy of the License/Disclaimer along with this software; 
!if not, you can write to: EC-RPN COMM Group, 2121 TransCanada, suite 500, Dorval (Quebec), 
!CANADA, H9P 1J3; or send e-mail to service.rpn@ec.gc.ca
!-------------------------------------- LICENCE END --------------------------------------

module v4dzone 9
!
!author M.Tanguay
!
!revision
! v0_06 - Tanguay M.        - initial MPI version
!
!
!______________________________________________________________________
!                                                                      |
! VARIABLES ASSOCIATED to 4D-Var: ZONES in EZSCINT                     |
!______________________________________________________________________|
! izon               | Indice of px,py near poles (1=north,2=south)    |
! xzon               | Px near poles                                   |
! yzon               | Py near poles                                   |
! nzon               | Dimension of izon                               |
! linepoln           | Scalar field  on  last latitude circle          |
! linepols           | Scalar field  on first latitude circle          |
! linepol u-v n      | Wind   fields on  last latitude circle          |
! linepol u-v s      | Wind   fields on first latitude circle          |
!______________________________________________________________________|
!
 save
!
!     ----------------
!     ZONES in EZSCINT
!     ----------------
      integer V4dz_nzon(2)
      integer, pointer,     dimension(:)   :: V4dz_izon1,V4dz_izon2 
      real,    pointer,     dimension(:)   :: V4dz_xzon1,V4dz_xzon2,V4dz_yzon1,V4dz_yzon2
      real,    allocatable, dimension(:,:) :: V4dz_linepoln, V4dz_linepols,  &
                                              V4dz_linepolun,V4dz_linepolus, &
                                              V4dz_linepolvn,V4dz_linepolvs 
!
end module v4dzone