maruti.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\tomawac\maruti.f
00002 !
00077                      SUBROUTINE MARUTI
00078 !                    *****************
00079 !
00080      &(X,Y,NPOIN,NMAR,BINMAR,NBOR,NPTFR,AT,DDC,TV1,TV2,Z1,Z2)
00081 !
00082 !***********************************************************************
00083 ! TOMAWAC   V6P3                                  21/06/2011
00084 !***********************************************************************
00085 !
00086 !
00087 !
00088 !
00089 !
00090 !
00091 !
00092 !
00093 !
00094 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00095 !| AT             |-->| COMPUTATION TIME
00096 !| BINMAR         |-->| TIDAL WATER LEVEL FILE BINARY
00097 !| DDC            |-->| DATE OF COMPUTATION BEGINNING
00098 !| NBOR           |-->| GLOBAL NUMBER OF BOUNDARY POINTS
00099 !| NMAR           |-->| LOGICAL UNIT NUMBER OF TIDAL WATER LEVEL FILE
00100 !| NPOIN          |-->| NUMBER OF POINTS IN 2D MESH
00101 !| NPTFR          |-->| NUMBER OF BOUNDARY POINTS
00102 !| TV1            |-->| TIME T1 IN THE TIDAL WATER LEVEL FILE
00103 !| TV2            |-->| TIME T2 IN THE TIDAL WATER LEVEL FILE
00104 !| X,Y            |-->| COORDONNEES DU MAILLAGE
00105 !| Z1             |<->| TIDAL LEVEL AT TV1 IN TIDAL WATER LEVEL FILE
00106 !| Z2             |<->| TIDAL LEVEL AT TV2 IN TIDAL WATER LEVEL FILE
00107 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00108 !
00109       IMPLICIT NONE
00110 !
00111       INTEGER LNG,LU
00112       COMMON/INFO/ LNG,LU
00113 !
00114 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00115 !
00116       INTEGER, INTENT(IN)             :: NMAR,NPOIN,NPTFR
00117       INTEGER, INTENT(IN)             :: NBOR(NPTFR,2)
00118       DOUBLE PRECISION, INTENT(IN)    :: X(NPOIN),Y(NPOIN)
00119       DOUBLE PRECISION, INTENT(INOUT) :: Z1(NPOIN),Z2(NPOIN)
00120       DOUBLE PRECISION, INTENT(IN)    :: AT,DDC,TV1,TV2
00121       CHARACTER(LEN=3), INTENT(IN)    :: BINMAR
00122 !
00123 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00124 !
00125       WRITE(LU,*) '*********************************************'
00126       WRITE(LU,*) '  VOUS FAITES APPEL A LA PROCEDURE MARUTI    '
00127       WRITE(LU,*) '    (FORMAT DU FICHIER DES MAREES = 4)     '
00128       WRITE(LU,*) '     MAIS VOUS NE L''AVEZ PAS MODIFIEE       '
00129       WRITE(LU,*) '*********************************************'
00130       CALL PLANTE(1)
00131       STOP
00132 !
00133 !-----------------------------------------------------------------------
00134 !
00135       RETURN
00136       END

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