UPP
V11.0.0
Main Page
Related Pages
Data Types List
Files
File List
Globals
All
Data Structures
Files
Functions
Pages
BOUND.f
Go to the documentation of this file.
1
5
29
SUBROUTINE
bound(FLD,FMIN,FMAX)
30
31
!
32
use
ctlblk_mod
, only
: jsta, jend, spval, im, jm, ista, iend
33
!- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
34
implicit none
35
!
36
! DECLARE VARIABLES.
37
REAL
,
intent(in)
:: fmax, fmin
38
REAL
,
intent(inout)
:: fld(im,jm)
39
integer
i,j
40
!
41
!
42
!**********************************************************************
43
! START BOUND HERE.
44
!
45
! BOUND ARRAY.
46
!$omp parallel do private(i,j)
47
DO
j=jsta,jend
48
DO
i=ista,iend
49
if
(fld(i,j) /= spval)
then
50
fld(i,j) = min(fmax, max(fmin,fld(i,j)))
51
end if
52
ENDDO
53
ENDDO
54
!
55
! END OF ROUTINE.
56
!
57
RETURN
58
END
sorc
ncep_post.fd
BOUND.f
Generated by
1.8.6