The TELEMAC-MASCARET system  trunk
corlat.f
Go to the documentation of this file.
1 ! *****************
2  SUBROUTINE corlat
3 ! *****************
4 !
5 !
6 !***********************************************************************
7 ! BIEF V6P1 21/08/2010
8 !***********************************************************************
9 !
10 !brief MODIFIES THE LATITUDE OF THE POINTS IN THE MESH.
11 !+
12 !+ CASE.
13 !
14 !history J-M HERVOUET
15 !+ 01/03/90
16 !+ V5P1
17 !+
18 !
19 !history N.DURAND (HRW), S.E.BOURBAN (HRW)
20 !+ 13/07/2010
21 !+ V6P0
22 !+ Translation of French comments within the FORTRAN sources into
23 !+ English comments
24 !
25 !history N.DURAND (HRW), S.E.BOURBAN (HRW)
26 !+ 21/08/2010
27 !+ V6P0
28 !+ Creation of DOXYGEN tags for automated documentation and
29 !+ cross-referencing of the FORTRAN sources
30 !
31 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
32 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
33 !
34  USE bief, ex_corlat => corlat
35 !
37  IMPLICIT NONE
38 !
39 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
40 !
41 !
42 !-----------------------------------------------------------------------
43 !
44  CALL user_corlat
45 !
46 !-----------------------------------------------------------------------
47 !
48  RETURN
49  END
subroutine user_corlat
Definition: user_corlat.f:4
subroutine corlat
Definition: corlat.f:4
Definition: bief.f:3