BOUND.f

Go to the documentation of this file.

      SUBROUTINE bound(FLD,FMIN,FMAX)

!     
     use ctlblk_mod, only: jsta, jend, spval, im, jm
!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
     implicit none
!     
!     DECLARE VARIABLES.
      REAL,intent(in) :: fmax, fmin
      REAL,intent(inout) :: fld(im,jm)
      integer i,j
!     
!     
!**********************************************************************
!     START BOUND HERE.
!     
!     BOUND ARRAY.
!$omp  parallel do private(i,j)
      DO j=jsta,jend
        DO i=1,im
          if(fld(i,j) /= spval) then
            fld(i,j) = min(fmax, max(fmin,fld(i,j)))
          end if
        ENDDO
      ENDDO
!     
!     END OF ROUTINE.
!     
      RETURN
      END