art_corfon.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\artemis\art_corfon.f
00002 !
00077                      SUBROUTINE ART_CORFON
00078 !                    *****************
00079 !
00080 !
00081 !***********************************************************************
00082 ! ARTEMIS   V6P1                                   21/08/2010
00083 !***********************************************************************
00084 !
00085 !
00086 !
00087 !
00088 !
00089 !
00090 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00091 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00092 !
00093       USE BIEF
00094       USE DECLARATIONS_ARTEMIS
00095 !
00096       IMPLICIT NONE
00097       INTEGER LNG,LU
00098       COMMON/INFO/LNG,LU
00099 !
00100 !     INTEGER I
00101 !
00102 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00103 !
00104 !
00105 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00106 !
00107       LOGICAL MAS
00108 !
00109 !-----------------------------------------------------------------------
00110 !
00111 !  SMOOTHING(S) OF THE BOTTOM (OPTIONAL)
00112 !
00113       IF(LISFON.GT.0) THEN
00114 !
00115         MAS=.TRUE.
00116         CALL FILTER(ZF,MAS,T1,T2,AM1,'MATMAS          ',
00117      &              1.D0,T1,T1,T1,T1,T1,T1,MESH,MSK,MASKEL,LISFON)
00118 !
00119       ENDIF
00120 !
00121 !-----------------------------------------------------------------------
00122 !  EXAMPLE :
00123 !
00124 !      DO I = 1,NPOIN
00125 !        ZF%R(I) = -1.D0 -0.02D0*Y(I)
00126 !        IF (Y(I).GE.700.D0) THEN
00127 !           ZF%R(I) = -15.D0
00128 !        ENDIF
00129 !      ENDDO
00130 !-----------------------------------------------------------------------
00131 !
00132 !-----------------------------------------------------------------------
00133 !
00134       RETURN
00135       END

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