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