anacos.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\tomawac\anacos.f
00002 !
00062                      SUBROUTINE ANACOS
00063 !                    *****************
00064 !
00065      &( UC    , VC    , X     , Y     , NPOIN2 )
00066 !
00067 !***********************************************************************
00068 ! TOMAWAC   V6P1                                   09/06/2011
00069 !***********************************************************************
00070 !
00071 !
00072 !
00073 !
00074 !
00075 !
00076 !
00077 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00078 !| NPOIN2         |-->| NUMBER OF POINTS IN 2D
00079 !| UC             |<--| CURRENT VELOCITY ALONG X AT THE MESH POINTS
00080 !| VC             |<--| CURRENT VELOCITY ALONG Y AT THE MESH POINTS
00081 !| X              |-->| ABSCISSAE OF POINTS IN THE MESH
00082 !| Y              |-->| ORDINATES OF POINTS IN THE MESH
00083 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00084 !
00085       IMPLICIT NONE
00086 !
00087       INTEGER LNG,LU
00088       COMMON/INFO/ LNG,LU
00089 !
00090 !.....VARIABLES IN ARGUMENT
00091 !     """"""""""""""""""""
00092       INTEGER  NPOIN2
00093       DOUBLE PRECISION X (NPOIN2) , Y (NPOIN2)
00094       DOUBLE PRECISION UC(NPOIN2) , VC(NPOIN2)
00095 !
00096 !.....LOCAL VARIABLES
00097 !     """""""""""""""""
00098       INTEGER  IP
00099       DOUBLE PRECISION UCONST, VCONST
00100 !
00101 !
00102       UCONST=0.D0
00103       VCONST=0.D0
00104 !
00105       DO IP=1,NPOIN2
00106         UC(IP)=UCONST
00107         VC(IP)=VCONST
00108       ENDDO ! IP
00109 !
00110       RETURN
00111       END

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