user_anamar.f

Go to the documentation of this file.

!                   **********************
                    SUBROUTINE user_anamar
!                   **********************
!***********************************************************************
! TOMAWAC
!***********************************************************************
!
!brief    USER SPECIFIES AN ANALYTICAL TIDE :
!+                WATER LEVEL AND CURRENT SPEED ARE VARIABLE IN TIME.
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| AT             |-->| COMPUTATION TIME
!| DDC            |-->| DATE OF COMPUTATION BEGINNING
!| DZHDT          |<--| VARIATION TEMPORELLE DE LA HAUTEUR DE MAREE
!| LT             |<--| NUMBER OF THE TIME STEP CURRENTLY SOLVED
!| NPOIN2         |-->| NUMBER OF POINTS IN 2D
!| UC             |-->| CURRENT VELOCITY ALONG X AT THE MESH POINTS
!| VC             |-->| CURRENT VELOCITY ALONG Y AT THE MESH POINTS
!| X              |-->| ABSCISSAE OF POINTS IN THE MESH
!| Y              |-->| ORDINATES OF POINTS IN THE MESH
!| ZM             |<--| DEPTH AT TIME AT, AT THE MESH POINTS
!| ZM1            |-->| DEPTH AT TIME TM1, AT THE MESH POINTS
!| ZM2            |-->| DEPTH AT TIME TM2, AT THE MESH POINTS
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE declarations_special
      USE interface_tomawac, ex_user_anamar => user_anamar
!     USE DECLARATIONS_TOMAWAC, ONLY : UC  , VC  , DEPTH  , ZM1 , ZM2 ,
!    &  DZHDT , X  , Y  , NPOIN2 ,  AT  , DDC , LT
      IMPLICIT NONE
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
!
!     COMMENT THE 5 LINES

      WRITE(lu,*) 'CALL TO USER_ANAMAR'
      WRITE(lu,*) 'IF YOU WANT AN ANALYTICAL TIDAL MODIFY ANAMAR'
      WRITE(lu,*) 'OR MAY BE IT MEANS YOU DID NOT SPECIFY YOUR FILE'
      WRITE(lu,*)'BINARY TIDAL WATER LEVEL FILE OR BINARY CURRENTS FILE'
      CALL plante(1)
!-----------------------------------------------------------------------
!     EXAMPLE 1
!-----------------------------------------------------------------------
!
!      UCONST=0.D0
!      VCONST=0.D0
!
!      DO IP=1,NPOIN2
!        UC(IP)   = UCONST
!        VC(IP)   = VCONST
!        ZM(IP)   = 3.D0
!        DZHDT(IP)= 0.D0
!     ENDDO ! IP
!
!-----------------------------------------------------------------------
!
      RETURN
      END