The TELEMAC-MASCARET system  trunk
cvsp_check_anything_gaia.f
Go to the documentation of this file.
1 ! ***********************************
2  SUBROUTINE cvsp_check_anything_gaia
3 ! ***********************************
4 !
5 !
6 !***********************************************************************
7 ! GAIA V8P1 12/02/2015
8 !***********************************************************************
9 !
11 !is expensive and it partially checks things that are already beeing
12 !checked before.
13 !
17 
18  USE bief_def
19  USE bief
22  USE cvsp_outputfiles_gaia, ONLY: cp
23 
24 
25  IMPLICIT NONE
26 !
27 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
28 !
29  LOGICAL RET,CVSP_CHECK_L_GAIA,CVSP_CHECK_F_GAIA
30  INTEGER J,K
31 
32 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
33 !
34 !-----------------------------------------------------------------------
35 ! Over all Points
36 !-----------------------------------------------------------------------
37 
38  IF(cp) THEN
39  WRITE(lu,*) "----------------------------------------------"
40  WRITE(lu,*) "CVSP Checking Anything.... EXPENSIVE DEBUGGING"
41  ENDIF
42 
43  DO j=1,npoin
44 
45  DO k=1,nomblay
46  ret = cvsp_check_l_gaia(j,k,'Anything Hirano: ')
47  ENDDO
48 
49  DO k=1,pro_max(j)
50  ret = cvsp_check_f_gaia(j,k,'Anything CVSM: ')
51  ENDDO
52 
54 
55  ENDDO
56  IF(cp) WRITE(lu,*) "---------------------------------------------"
57 
58 !-----------------------------------------------------------------------
59 
60  RETURN
61  END SUBROUTINE cvsp_check_anything_gaia
62 
subroutine cvsp_check_anything_gaia
integer, target nomblay
Number of bed load model layers = NUMSTRAT+1 to take the active layer into account.
subroutine cvsp_check_steady_gaia(J)
logical cp
Logical for debug printouts.
integer, dimension(:), allocatable pro_max
Maximum layer number in a vertical sorting profile for each point.
integer, pointer npoin
Number of 2d points in the mesh.
Definition: bief.f:3