The TELEMAC-MASCARET system  trunk
get_tomspec_values.f
Go to the documentation of this file.
1 ! *****************************
2  SUBROUTINE get_tomspec_values
3 ! *****************************
4 !
5  &(chaintwc,spec)
6 !
7 !***********************************************************************
8 ! ARTEMIS V7P3 Aug 2017
9 !***********************************************************************
10 !
11 !brief WRAPPER TO READ IN THE TOMAWAC ENERGY SPECTRA.
12 !
13 !history N.DURAND (HRW)
14 !+ Feb 2017
15 !+ V7P2
16 !+ This is a wrapper for call to GET_TOMSPEC_VALUE1 or GET_TOMSPEC_VALUE2
17 !+ (eventually) depending on choice of nesting: CHAINTWC
18 !
19 !history N.DURAND (HRW)
20 !+ January 2019
21 !+ V8P0
22 !+ Added USE BIEF_DEF since TYPE SPECTRUM is now defined in BIEF_DEF
23 !
24 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
25 !| CHAINTWC |-->| NESTING OPTION (1 OR 2 CURRENTLY ALLOWED)
26 !| SPEC |<->| SPECTRUM STRUCTURE
27 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
28 !
29  USE bief_def, ONLY: spectrum
30 !
32  IMPLICIT NONE
33 !
34 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
35 !
36  INTEGER :: CHAINTWC
37  TYPE(spectrum) , INTENT(INOUT) :: SPEC
38 !
39 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
40 !
41 !-----------------------------------------------------------------------
42 !
43  SELECT CASE (chaintwc)
44  CASE (1)
45  CALL get_tomspec_value1(spec)
46  CASE (2)
47  CALL get_tomspec_value2(spec)
48  CASE DEFAULT
49  WRITE(lu,*) 'GET_TOMSPEC_VALUES: BAD OPTION: ',chaintwc
50  CALL plante(1)
51  stop
52  END SELECT
53 !
54 !-----------------------------------------------------------------------
55 !
56  RETURN
57  END
subroutine get_tomspec_value2(SPEC)
subroutine get_tomspec_value1(SPEC)
subroutine get_tomspec_values(CHAINTWC, SPEC)