BOUND.f

Go to the documentation of this file.

 
!---------------------------------------------------------------------------------------
      SUBROUTINE bound(FLD,FMIN,FMAX)
 
!     
     use ctlblk_mod, only: jsta, jend, spval, im, jm, ista, iend
!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
     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=ista,iend
          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