tile.h

Go to the documentation of this file.

/*
** git $id$
************************************************************************
** copyright(c) 2002-2025 the roms group                             **
**   licensed under a mit/x style license                             **
**   see license_roms.md                                              **
************************************************************************
*/
      integer :: IminS, ImaxS, JminS, JmaxS
      integer :: LBi, UBi, LBj, UBj, LBij, UBij
!
!  Set horizontal starting and ending indices for automatic private
!  storage arrays.
!
#ifdef NESTING
      imins=bounds(ng)%Istr(tile)-4
      imaxs=bounds(ng)%Iend(tile)+3
      jmins=bounds(ng)%Jstr(tile)-4
      jmaxs=bounds(ng)%Jend(tile)+3
#else
      imins=bounds(ng)%Istr(tile)-3
      imaxs=bounds(ng)%Iend(tile)+3
      jmins=bounds(ng)%Jstr(tile)-3
      jmaxs=bounds(ng)%Jend(tile)+3
#endif
!
!  Determine array lower and upper bounds in the I- and J-directions.
!
      lbi=bounds(ng)%LBi(tile)
      ubi=bounds(ng)%UBi(tile)
      lbj=bounds(ng)%LBj(tile)
      ubj=bounds(ng)%UBj(tile)
!
!  Set array lower and upper bounds for MIN(I,J) directions and
!  MAX(I,J) directions.
!
      lbij=bounds(ng)%LBij
      ubij=bounds(ng)%UBij