couuti.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\tomawac\couuti.f
00002 !
00085                      SUBROUTINE COUUTI
00086 !                    *****************
00087 !
00088      &(X,Y,NPOIN,NCOU,BINCOU,NBOR,NPTFR,AT,DDC,TC1,TC2,UC1,VC1,UC2,VC2)
00089 !
00090 !***********************************************************************
00091 ! TOMAWAC   V6P1                                   14/06/2011
00092 !***********************************************************************
00093 !
00094 !
00095 !
00096 !
00097 !
00098 !
00099 !
00100 !
00101 !
00102 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00103 !| AT             |-->| COMPUTATION TIME
00104 !| BINCOU         |-->| CURRENTS FILE BINARY
00105 !| DDC            |-->| DATE OF COMPUTATION BEGINNING
00106 !| NBOR           |-->| GLOBAL NUMBER OF BOUNDARY POINTS
00107 !| NCOU           |-->| LOGICAL UNIT NUMBER OF THE CURRENTS FILE
00108 !| NPMAX          |-->| MAXIMUM NUMBER OF POINTS THAT CAN BE READ
00109 !| NPOIN          |-->| NUMBER OF POINTS IN 2D MESH
00110 !| NPTFR          |-->| NUMBER OF BOUNDARY POINTS
00111 !| TC1            |-->| TIME T1 IN THE CURRENT FILE
00112 !| TC2            |-->| TIME T2 IN THE CURRENT FILE
00113 !| UC1,VC1        |<->| CURRENTS VALUES AT TIME T1 IN THE MESH
00114 !| UC2,VC2        |<->| CURRENTS VALUES AT TIME T2 IN THE MESH
00115 !| X              |-->| ABSCISSAE OF POINTS IN THE MESH
00116 !| Y              |-->| ORDINATES OF POINTS IN THE MESH
00117 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00118 !
00119       USE INTERFACE_TOMAWAC, EX_COUUTI => COUUTI
00120 !
00121       IMPLICIT NONE
00122 !
00123       INTEGER LNG,LU
00124       COMMON/INFO/ LNG,LU
00125 !
00126 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00127 !
00128       INTEGER, INTENT(IN)             :: NCOU,NPOIN,NPTFR
00129       INTEGER, INTENT(IN)             :: NBOR(NPTFR,2)
00130       DOUBLE PRECISION, INTENT(IN)    :: X(NPOIN),Y(NPOIN)
00131       DOUBLE PRECISION, INTENT(INOUT) :: UC1(NPOIN),VC1(NPOIN)
00132       DOUBLE PRECISION, INTENT(INOUT) :: UC2(NPOIN),VC2(NPOIN)
00133       DOUBLE PRECISION, INTENT(IN)    :: AT,DDC,TC1,TC2
00134       CHARACTER(LEN=3), INTENT(IN)    :: BINCOU
00135 !
00136 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00137 !
00138       IF(LNG.EQ.1) THEN
00139         WRITE(LU,*) '*********************************************'
00140         WRITE(LU,*) '  VOUS FAITES APPEL A LA PROCEDURE COUUTI    '
00141         WRITE(LU,*) '    (FORMAT DU FICHIER DES COURANTS = 3)     '
00142         WRITE(LU,*) '     MAIS VOUS NE L''AVEZ PAS MODIFIEE       '
00143         WRITE(LU,*) '*********************************************'
00144       ELSEIF(LNG.EQ.2) THEN
00145         WRITE(LU,*) '*********************************************'
00146         WRITE(LU,*) '       YOU CALL THE SUBROUTINE COUUTI        '
00147         WRITE(LU,*) '        (CURRENTS FILE FORMAT = 3)           '
00148         WRITE(LU,*) '       BUT YOU DID NOT MODIFIED IT           '
00149         WRITE(LU,*) '*********************************************'
00150       ENDIF
00151       CALL PLANTE(1)
00152       STOP
00153 !
00154 !-----------------------------------------------------------------------
00155 !
00156       RETURN
00157       END

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