user_tom_corfon.f

Go to the documentation of this file.

!                   **************************
                    SUBROUTINE user_tom_corfon
!                   **************************
!
!
!***********************************************************************
! TOMAWAC
!***********************************************************************
!
!brief    USER MODIFIES THE BOTTOM TOPOGRAPHY.
!
!history  F. MARCOS
!+
!+
!+
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE bief
      USE declarations_tomawac
!
      USE declarations_special
      USE interface_tomawac, ex_user_tom_corfon => user_tom_corfon
      IMPLICIT NONE
!
!-----------------------------------------------------------------------
!
!
!-----------------------------------------------------------------------
!
!
!-----------------------------------------------------------------------
!
      RETURN
      END