corfon.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac2d\corfon.f
00002 !
00065                      SUBROUTINE CORFON
00066 !                    *****************
00067 !
00068 !
00069 !***********************************************************************
00070 ! TELEMAC2D   V6P1                                   21/08/2010
00071 !***********************************************************************
00072 !
00073 !
00074 !
00075 !
00076 !
00077 !
00078 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00079 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00080 !
00081       USE BIEF
00082       USE DECLARATIONS_TELEMAC2D
00083 !
00084       IMPLICIT NONE
00085       INTEGER LNG,LU
00086       COMMON/INFO/LNG,LU
00087 !
00088 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00089 !
00090 !
00091 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00092 !
00093       LOGICAL MAS
00094 !
00095 !-----------------------------------------------------------------------
00096 !
00097 !  SMOOTHING(S) OF THE BOTTOM (OPTIONAL)
00098 !
00099       IF(LISFON.GT.0) THEN
00100 !
00101         MAS=.TRUE.
00102         CALL FILTER(ZF,MAS,T1,T2,AM1,'MATMAS          ',
00103      &              1.D0,T1,T1,T1,T1,T1,T1,MESH,MSK,MASKEL,LISFON)
00104 !
00105       ENDIF
00106 !
00107 !-----------------------------------------------------------------------
00108 !
00109       IF(LNG.EQ.1) THEN
00110         IF(LISFON.EQ.0) THEN
00111           WRITE(LU,*)
00112           WRITE(LU,*) 'CORFON (TELEMAC2D) : PAS DE MODIFICATION DU FOND'
00113           WRITE(LU,*)
00114         ELSE
00115           WRITE(LU,*)
00116           WRITE(LU,*) 'CORFON (TELEMAC2D) : ',LISFON,' LISSAGES DU FOND'
00117           WRITE(LU,*)
00118         ENDIF
00119       ENDIF
00120       IF(LNG.EQ.2) THEN
00121         IF(LISFON.EQ.0) THEN
00122           WRITE(LU,*)
00123           WRITE(LU,*) 'CORFON (TELEMAC2D): NO MODIFICATION OF BOTTOM'
00124           WRITE(LU,*)
00125         ELSE
00126           WRITE(LU,*)
00127           WRITE(LU,*) 'CORFON (TELEMAC2D): ',LISFON,' BOTTOM SMOOTHINGS'
00128           WRITE(LU,*)
00129         ENDIF
00130       ENDIF
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