The TELEMAC-MASCARET system  trunk
cvsp_db_gaia.f
Go to the documentation of this file.
1 ! *****************************
2  LOGICAL FUNCTION cvsp_db_gaia
3 ! *****************************
4 !
5  &(j_global, timestamp)
6 !
7 !***********************************************************************
8 ! GAIA V8P1 16/05/2017
9 !***********************************************************************
10 !
13 !
16 !
17 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
20 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
21 !
22 ! USE DECLARATIONS_GAIA, ONLY: MESH, CVSM_OUT, LT, ENTET
23 !
24  IMPLICIT NONE
25 !
26 !
27 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
28 !
29  INTEGER, INTENT(IN) :: J_GLOBAL
30  INTEGER, INTENT(IN) :: TIMESTAMP
31 !
32 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
33 !
34 !
35  cvsp_db_gaia = .false.
36 
37  !CALL USER_CVSP_DB_GAIA(CVSP_DB,J_GLOBAL, TIMESTAMP)
38 !
39  END FUNCTION cvsp_db_gaia
logical function cvsp_db_gaia(J_GLOBAL, TIMESTAMP)
Definition: cvsp_db_gaia.f:7