The TELEMAC-MASCARET system  trunk
user_dump2d.f
Go to the documentation of this file.
1 ! **********************
2  SUBROUTINE user_dump2d
3 ! **********************
4 !
5  &(xf1, np1)
6 !
7 !***********************************************************************
8 ! TOMAWAC V6P3 15/06/2011
9 !***********************************************************************
10 !
11 !brief USER WRITES OUT WAVE, WIND, CURRENT, BATHYMETRY, ...
12 !+ VARIABLES AT EACH NODE OF THE MESH.
13 !+ VARIES SPATIALLY IN 2D (BINARY SELAFIN FORMAT).
14 !
15 !
16 !history F. MARCOS
17 !+ 01/02/95
18 !+ V1P0
19 !+ CREATED
20 !
21 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
22 !| NP1 |-->| NPOIN2.NDIRE.NF
23 !| XF1 |-->| VARIANCE DENSITY DIRECTIONAL SPECTRUM
24 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
25 !
27  USE interface_tomawac, ex_user_dump2d => user_dump2d
28 !
29  IMPLICIT NONE
30 !
31 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
32 !
33  INTEGER, INTENT(IN) :: NP1
34  DOUBLE PRECISION, INTENT(IN) :: XF1(np1)
35 !
36 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
37 !
38 !
39 !-----------------------------------------------------------------------
40 !
41 !
42 !-----------------------------------------------------------------------
43 !
44  RETURN
45  END
subroutine user_dump2d(XF1, NP1)
Definition: user_dump2d.f:7