tom_corfon.f

Go to the documentation of this file.

!                   *********************
                    SUBROUTINE tom_corfon
!                   *********************
!
!
!***********************************************************************
! TOMAWAC   V6P1                                   14/06/2011
!***********************************************************************
!
!brief    MODIFIES THE BOTTOM TOPOGRAPHY.
!
!history  F. MARCOS
!+
!+
!+
!
!history  OPTIMER (    )
!+        12/01/2001
!+
!+   TOMAWAC/COWADIS MERGE
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        13/07/2010
!+        V6P0
!+   Translation of French comments within the FORTRAN sources into
!+   English comments
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        21/08/2010
!+        V6P0
!+   Creation of DOXYGEN tags for automated documentation and
!+   cross-referencing of the FORTRAN sources
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE bief
      USE declarations_tomawac
!
      USE declarations_special
      USE interface_tomawac, ex_tom_corfon => tom_corfon
      IMPLICIT NONE
!
!
!
!-----------------------------------------------------------------------
!
!  SMOOTHING(S) OF THE BOTTOM (OPTIONAL)
!
      IF(lisfon.GT.0) THEN
!
        CALL filter(szf,.true.,st1,st2,am1,'MATMAS          ',
     &          1.d0,st1,st1,st1,st1,st1,st1,mesh,.false.,st1,lisfon)
!
      ENDIF
!
!-----------------------------------------------------------------------
!
      IF(lisfon.EQ.0) THEN
        WRITE(lu,*)
        WRITE(lu,*) 'TOM_CORFON : NO MODIFICATION OF BOTTOM'
        WRITE(lu,*)
      ELSE
        WRITE(lu,*)
        WRITE(lu,*) 'TOM_CORFON : ',lisfon,' BOTTOM SMOOTHINGS'
        WRITE(lu,*)
      ENDIF
      ! USER FUNCTION
      CALL user_tom_corfon
!
!-----------------------------------------------------------------------
!
      RETURN
      END