The TELEMAC-MASCARET system
trunk
sources
utils
bief
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
!
36
USE
declarations_special
37
IMPLICIT NONE
38
!
39
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
40
!
41
!
42
!-----------------------------------------------------------------------
43
!
44
CALL
user_corlat
45
!
46
!-----------------------------------------------------------------------
47
!
48
RETURN
49
END
declarations_special
Definition:
declarations_special.F:3
user_corlat
subroutine user_corlat
Definition:
user_corlat.f:4
corlat
subroutine corlat
Definition:
corlat.f:4
bief
Definition:
bief.f:3