anamar.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\tomawac\anamar.f
00002 !
00070                      SUBROUTINE ANAMAR
00071 !                    *****************
00072 !
00073      &( UC  , VC  , ZM  , ZM1 , ZM2 , DZHDT , X  , Y  , NPOIN2 ,
00074      &  AT  , DDC , LT  )
00075 !
00076 !***********************************************************************
00077 ! TOMAWAC   V6P3                                   08/06/2011
00078 !***********************************************************************
00079 !
00080 !
00081 !
00082 !
00083 !
00084 !
00085 !
00086 !
00087 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00088 !| AT             |-->| COMPUTATION TIME
00089 !| DDC            |-->| DATE OF COMPUTATION BEGINNING
00090 !| DZHDT          |<--| VARIATION TEMPORELLE DE LA HAUTEUR DE MAREE
00091 !| LT             |<--| NUMBER OF THE TIME STEP CURRENTLY SOLVED
00092 !| NPOIN2         |-->| NUMBER OF POINTS IN 2D
00093 !| UC             |-->| CURRENT VELOCITY ALONG X AT THE MESH POINTS
00094 !| VC             |-->| CURRENT VELOCITY ALONG Y AT THE MESH POINTS
00095 !| X              |-->| ABSCISSAE OF POINTS IN THE MESH
00096 !| Y              |-->| ORDINATES OF POINTS IN THE MESH
00097 !| ZM             |<--| DEPTH AT TIME AT, AT THE MESH POINTS
00098 !| ZM1            |-->| DEPTH AT TIME TM1, AT THE MESH POINTS
00099 !| ZM2            |-->| DEPTH AT TIME TM2, AT THE MESH POINTS
00100 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00101 !
00102       IMPLICIT NONE
00103 !
00104       INTEGER LNG,LU
00105       COMMON/INFO/ LNG,LU
00106 !
00107 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00108 !
00109       INTEGER, INTENT(IN)             :: NPOIN2,LT
00110       DOUBLE PRECISION, INTENT(IN)    :: AT,DDC
00111       DOUBLE PRECISION, INTENT(IN)    :: X(NPOIN2),Y(NPOIN2)
00112       DOUBLE PRECISION, INTENT(INOUT) :: ZM1(NPOIN2),ZM2(NPOIN2)
00113       DOUBLE PRECISION, INTENT(INOUT) :: UC(NPOIN2),VC(NPOIN2)
00114       DOUBLE PRECISION, INTENT(INOUT) :: DZHDT(NPOIN2),ZM(NPOIN2)
00115 !
00116 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00117 !
00118       INTEGER          IP
00119       DOUBLE PRECISION UCONST, VCONST
00120 !
00121 !-----------------------------------------------------------------------
00122 !     EXAMPLE 1
00123 !-----------------------------------------------------------------------
00124 !
00125       UCONST=0.D0
00126       VCONST=0.D0
00127 !
00128       DO IP=1,NPOIN2
00129         UC(IP)   = UCONST
00130         VC(IP)   = VCONST
00131         ZM(IP)   = 3.D0
00132         DZHDT(IP)= 0.D0
00133       ENDDO ! IP
00134 !
00135 !-----------------------------------------------------------------------
00136 !
00137       RETURN
00138       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0