SCLFLD.f

Go to the documentation of this file.

!-------------------------------------------------------------
      SUBROUTINE sclfld(FLD,SCALE,IMO,JMO)
!

!
      use params_mod, only: small
      use ctlblk_mod, only: jsta, jend, spval, ista, iend
!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
       implicit none
!     
!     DECLARE VARIABLES.
!     
      integer,intent(in) :: imo,jmo
      REAL,intent(in) ::  scale
      REAL,dimension(ista:iend,jsta:jend),intent(inout) :: fld
      integer i,j
!     
!     
!***********************************************************************
!     START SCLFLD HERE
!     
!     MULTIPLY EACH ELEMENT OF FLD BY SCALE.
!     
!$omp  parallel do
      DO j=jsta,jend
      DO i=ista,iend
        IF(abs(fld(i,j)-spval)>small) fld(i,j)=scale*fld(i,j)
      ENDDO
      ENDDO
!     
!     END OF ROUTINE.
!     
      RETURN
      END