ecrete.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\tomawac\ecrete.f
00002 !
00053                      SUBROUTINE ECRETE
00054 !                    *****************
00055 !
00056      &( F     , DEPTH , NPOIN2, NPLAN , NF    , PROMIN)
00057 !
00058 !***********************************************************************
00059 ! TOMAWAC   V6P1                                   15/06/2011
00060 !***********************************************************************
00061 !
00062 !
00063 !
00064 !
00065 !
00066 !
00067 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00068 !| DEPTH          |-->| WATER DEPTH
00069 !| F              |<->| VARIANCE DENSITY DIRECTIONAL SPECTRUM
00070 !| NF             |-->| NUMBER OF FREQUENCIES
00071 !| NPLAN          |-->| NUMBER OF DIRECTIONS
00072 !| NPOIN2         |-->| NUMBER OF POINTS IN 2D MESH
00073 !| PROMIN         |-->| MINIMUM VALUE OF WATER DEPTH
00074 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00075 !
00076       IMPLICIT NONE
00077 !
00078       INTEGER LNG,LU
00079       COMMON/INFO/ LNG,LU
00080 !
00081       INTEGER          NPOIN2 , NPLAN, NF
00082       DOUBLE PRECISION F(NPOIN2,NPLAN,NF), DEPTH(NPOIN2)
00083       DOUBLE PRECISION PROMIN
00084       INTEGER          IP    , JP    , JF
00085 !
00086       DO IP=1,NPOIN2
00087         IF (DEPTH(IP).LT.PROMIN) THEN
00088           DO JF=1,NF
00089             DO JP=1,NPLAN
00090               F(IP,JP,JF)=0.0D0
00091             ENDDO
00092           ENDDO
00093         ENDIF
00094       ENDDO
00095 !
00096       RETURN
00097       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0