user_corlat.f

Go to the documentation of this file.

!                   **********************
                    SUBROUTINE user_corlat
!                   **********************
!
!
!***********************************************************************
! BIEF
!***********************************************************************
!
!brief    MODIFIES THE LATITUDE OF THE POINTS IN THE MESH.
!+
!+            CASE.
!
!
!history  J-M HERVOUET
!+        01/03/90
!+        V5P1
!+
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        13/07/2010
!+        V6P0
!+   Translation of French comments within the FORTRAN sources into
!+   English comments
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        21/08/2010
!+        V6P0
!+   Creation of DOXYGEN tags for automated documentation and
!+   cross-referencing of the FORTRAN sources
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE bief, ex_user_corlat => user_corlat
!     USE DECLARATIONS_TELEMAC2D
!
      USE declarations_special
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
!     THIS SUBROUTINE MUST BE MODIFIED ACCORDING TO
!     THE CALLING PROGRAM AND THE NEEDED MODIFICATION
!     BY ADDING USE DECLARATIONS_"NAME OF CALLING CODE"
!     ALL THE DATA STRUCTURE OF THIS CODE IS AVAILABLE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
!     INTEGER I
!
!-----------------------------------------------------------------------
!
!  EXAMPLE : MULTIPLIES BY A CONSTANT
!
!     DO I = 1 , NPOIN
!       X(I) = X(I) * 1.D0
!       Y(I) = Y(I) * 1.D0
!     ENDDO
!
!-----------------------------------------------------------------------
!
      WRITE(lu,*) 'CORLAT :NO MODIFICATION OF LATITUDE'
!
!-----------------------------------------------------------------------
!
      RETURN
      END