The TELEMAC-MASCARET system  trunk
maskab_gaia.f
Go to the documentation of this file.
1 ! **********************
2  SUBROUTINE maskab_gaia
3 ! **********************
4 !
5  &(hn , q , qu , qv , npoin)
6 !
7 !***********************************************************************
8 ! GAIA
9 !***********************************************************************
10 !
12 !
14 !
15 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
21 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
22 !
23  IMPLICIT NONE
24 !
25 !!-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
26 !
27  INTEGER, INTENT(IN):: NPOIN
28 !
29  DOUBLE PRECISION, INTENT(IN) :: HN(npoin)
30  DOUBLE PRECISION, INTENT(INOUT) :: Q(npoin),QU(npoin),QV(npoin)
31 !
32 !!-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
33 !
34  INTEGER I
35 !
36 !-----------------------------------------------------------------------
37 !
38 !
39 ! CAPS WATER DEPTHS
40 !
41 !
42  DO i=1,npoin
43 !
44 ! TREATS NEGATIVE VALUES IN THE DOMAIN
45 !
46  IF(hn(i).LE.0.d0) THEN
47  q(i) = 0.d0
48  qu(i) = 0.d0
49  qv(i) = 0.d0
50  ENDIF
51  ENDDO
52 !
53 !-----------------------------------------------------------------------
54 !
55  RETURN
56  END SUBROUTINE maskab_gaia
subroutine maskab_gaia(HN, Q, QU, QV, NPOIN)
Definition: maskab_gaia.f:7
double precision function q(I)
Definition: q.f:7