user_condih_particular.f

Go to the documentation of this file.

!                   *********************************
                    SUBROUTINE user_condih_particular
!                   *********************************
!
!
!***********************************************************************
! ARTEMIS
!***********************************************************************
!
!brief    USER INITIALISES THE WATER DEPTH.
!
!history  J-M HERVOUET (LNH)
!+
!+
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE bief
      USE declarations_telemac
      USE declarations_artemis
!
      USE declarations_special
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
!
!-----------------------------------------------------------------------
!
      WRITE(lu,11)
11    FORMAT(1x,'CONDIH : WITH SPECIAL INITIAL CONDITIONS'
     &       ,/,'         YOU HAVE TO MODIFY USER_CONDIH_PARTICULAR')
      CALL plante(1)
      stop
!
!-----------------------------------------------------------------------
!
      RETURN
      END SUBROUTINE