!!----------------------------------------------------------------------
   !!                  ***  obc_par_EEL_R5.h90  ***
   !!----------------------------------------------------------------------
   !! open boundary parameter : EEL5 configuration
   !!---------------------------------------------------------------------
   !! * EAST open boundary
   LOGICAL, PARAMETER ::     &
      lpeastobc = .TRUE.       ! to active or not the East open boundary
   INTEGER, PARAMETER ::     &
      jpieob  = jpiglo-2,    &  ! i-localization of the East open boundary (must be ocean U-point)
      jpjed   =        2,    &  ! j-starting indice of the East open boundary (must be land T-point)
      jpjef   = jpjglo-1,    &  ! j-ending   indice of the East open boundary (must be land T-point)
      jpjedp1 =  jpjed+1,    &  ! first ocean point         "                 "
      jpjefm1 =  jpjef-1        ! last  ocean point         "                 "

   !! * WEST open boundary
   LOGICAL, PARAMETER ::     &
      lpwestobc = .TRUE.       ! to active or not the West open boundary
   INTEGER, PARAMETER ::     &
      jpiwob  =	       2,    &  ! i-localization of the West open boundary (must be ocean U-point)
      jpjwd   =	       2,    &  ! j-starting indice of the West open boundary (must be land T-point)
      jpjwf   = jpjglo-1,    &  ! j-ending   indice of the West open boundary (must be land T-point)
      jpjwdp1 =  jpjwd+1,    &  ! first ocean point         "                 "
      jpjwfm1 =  jpjwf-1        ! last  ocean point         "                 "

   !! * NORTH open boundary
   LOGICAL, PARAMETER ::    &
      lpnorthobc = .FALSE.     ! to active or not the North open boundary
   INTEGER, PARAMETER ::     &
      jpjnob  = jpjglo-2,    &  ! j-localization of the North open boundary (must be ocean V-point)
      jpind   =        2,    &  ! i-starting indice of the North open boundary (must be land T-point)
      jpinf   = jpiglo-1,    &  ! i-ending   indice of the North open boundary (must be land T-point)
      jpindp1 =  jpind+1,    &  ! first ocean point         "                 "
      jpinfm1 =  jpinf-1        ! last  ocean point         "                 "

   !! * SOUTH open boundary
   LOGICAL, PARAMETER ::     &
      lpsouthobc = .FALSE.     ! to active or not the South open boundary
   INTEGER, PARAMETER ::     &
      jpjsob  =        2,    &  ! j-localization of the South open boundary (must be ocean V-point)
      jpisd   =        2,    &  ! i-starting indice of the South open boundary (must be land T-point)
      jpisf   = jpiglo-1,    &  ! i-ending   indice of the South open boundary (must be land T-point)
      jpisdp1 =  jpisd+1,    &  ! first ocean point         "                 "
      jpisfm1 =  jpisf-1        ! last  ocean point         "                 "
   
   INTEGER, PARAMETER ::     &
      jpnic = 2700              ! maximum number of isolated coastlines points 
   !!---------------------------------------------------------------------------------------------