def_zones.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\telemac2d\def_zones.f
00002 !
00048                      SUBROUTINE DEF_ZONES
00049 !                    ********************
00050 !
00051 !
00052 !***********************************************************************
00053 ! TELEMAC2D   V6P1                                   21/08/2010
00054 !***********************************************************************
00055 !
00056 !
00057 !
00058 !
00059 !
00060 !
00061 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00062 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00063 !
00064       USE BIEF
00065       USE DECLARATIONS_TELEMAC2D
00066 !
00067       IMPLICIT NONE
00068       INTEGER LNG,LU
00069       COMMON/INFO/LNG,LU
00070 !
00071 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00072 !
00073 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00074 !
00075 !-----------------------------------------------------------------------
00076 !
00077 !     NZONE = ???
00078 !     ZONE%I(I) = ???
00079 !
00080 !-----------------------------------------------------------------------
00081 !
00082       RETURN
00083       END

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