lagran.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac2d\lagran.f
00002 !
00060                      SUBROUTINE LAGRAN
00061 !                    *****************
00062 !
00063      &(NLAG,DEBLAG,FINLAG)
00064 !
00065 !***********************************************************************
00066 ! TELEMAC2D   V6P1                                   21/08/2010
00067 !***********************************************************************
00068 !
00069 !
00070 !
00071 !
00072 !
00073 !
00074 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00075 !| DEBLAG         |<--| TIME STEP AT THE BEGINNING
00076 !| FINLAG         |<--| TIME STEP AT THE END
00077 !| NLAG           |-->| NUMBER OF LAGRANGIAN DRIFTS
00078 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00079 !
00080       IMPLICIT NONE
00081       INTEGER LNG,LU
00082       COMMON/INFO/LNG,LU
00083 !
00084 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00085 !
00086       INTEGER, INTENT(IN)    :: NLAG
00087       INTEGER, INTENT(INOUT) :: DEBLAG(NLAG) , FINLAG(NLAG)
00088 !
00089 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00090 !
00091 !     INTEGER ILAG
00092 !
00093 !-----------------------------------------------------------------------
00094 !
00095 !   INITIALISES THE FIRST AND FINAL TIMESTEPS FOR THE COMPUTATION OF
00096 !   LAGRANGIAN DRIFT - BY DEFAULT NOTHING IS DONE
00097 !
00098 !-----------------------------------------------------------------------
00099 !
00100 !     THIS WARNING AND THE CALL TO PLANTE MUST BE REMOVED IF
00101 !     SOMETHING IS IMPLEMENTED BY THE USER BELOW
00102 !
00103       IF(LNG.EQ.1) WRITE(LU,20)
00104       IF(LNG.EQ.2) WRITE(LU,21)
00105 20    FORMAT(1X,'ATTENTION, VOUS APPELEZ LE SOUS-PROGRAMME LAGRAN',/,1X,
00106      &          'DE LA BIBLIOTHEQUE.   COMME VOUS CALCULEZ UN OU',/,1X,
00107      &          'PLUSIEURS CHAMPS DE DERIVES LAGRANGIENNES, VOUS',/,1X,
00108      &          'DEVEZ RAPATRIER "LAGRAN" DANS VOTRE FORTRAN, ET',/,1X,
00109      &          'LE COMPLETER',/////)
00110 21    FORMAT(1X,'ATTENTION, YOU CALL SUBROUTINE LAGRAN OF THE LIBRARY.',
00111      &     /,1X,'AS YOU COMPUTE ONE OR MORE FIELDS OF LAGRANGIAN',/,1X,
00112      &          'DRIFTS, YOU NEED TO COPY THIS SUBROUTINE IN YOUR',/,1X,
00113      &          'OWN FORTRAN FILE AND COMPLETE IT.',/////)
00114 !
00115       CALL PLANTE(1)
00116 !
00117 !-----------------------------------------------------------------------
00118 !
00119 !  EXAMPLE :
00120 !
00121 !      DO ILAG=1,NLAG
00122 !         DEBLAG(ILAG) = 1
00123 !         FINLAG(ILAG) = 299
00124 !      ENDDO ! ILAG
00125 !
00126 !-----------------------------------------------------------------------
00127 !
00128       RETURN
00129       END

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