The TELEMAC-MASCARET system  trunk
entete_gaia.f
Go to the documentation of this file.
1 ! *************************
2  SUBROUTINE entete_gaia
3 ! *************************
4 !
5  &(ietape,at,lt)
6 !
7 !***********************************************************************
8 ! GAIA
9 !***********************************************************************
10 !
12 !
13 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
15 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
16 !
18  IMPLICIT NONE
19 !
20 !!-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
21 !
22  DOUBLE PRECISION, INTENT(IN) :: AT
23 !
24  INTEGER, INTENT(IN):: LT,IETAPE
25 !
26 !!-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
27 !
28  INTEGER J,H,M
29  DOUBLE PRECISION S
30  INTRINSIC int
31  CHARACTER(LEN=32) :: FR(15),GB(15)
32 !
33 !-----------------------------------------------------------------------
34 !
35  parameter( fr = (/
36  & ' ' ,
37  & ' ' ,
38  & ' ETAPE DE CONVECTION ' ,
39  & ' MODELE K-EPSILON ' ,
40  & ' ETAPE DE DIFFUSION DU TRACEUR ' ,
41  & ' ETAPE DE DIFFUSION-PROPAGATION ' ,
42  & ' BILAN DE VOLUME D''EAU ' ,
43  & ' BILAN FINAL DE VOLUME D''EAU ' ,
44  & ' TEMPS : ' ,
45  & ' SECONDES ' ,
46  & 'ITERATION ' ,
47  & ' DERIVE DE FLOTTEUR(S) ' ,
48  & ' DERIVE(S) LAGRANGIENNE(S) ' ,
49  & ' GLISSEMENT DU SEDIMENT ' ,
50  & ' TASSEMENT DU SEDIMENT ' /) )
51  parameter( gb = (/
52  & ' ' ,
53  & ' ' ,
54  & ' ADVECTION STEP ' ,
55  & ' K-EPSILON MODEL ' ,
56  & ' DIFFUSION OF TRACER STEP ' ,
57  & ' DIFFUSION-PROPAGATION STEP ' ,
58  & ' BALANCE OF WATER VOLUME ' ,
59  & ' FINAL BALANCE OF WATER VOLUME ' ,
60  & ' TIME: ' ,
61  & ' SECONDS ' ,
62  & 'ITERATION ' ,
63  & ' DRIFT OF DROGUE(S) ' ,
64  & ' LAGRANGIAN DRIFT(S) ' ,
65  & ' SEDIMENT SLIDE ' ,
66  & ' CONSOLIDATION ' /) )
67 !
68 !-----------------------------------------------------------------------
69 !
70 ! DECOMPOSITION OF TIME IN DAYS, HOURS, MINUTES AND SECONDS
71 !
72  s = at
73  j = int(at/86400.d0)
74  s = s - 86400.d0 * j
75  h = int(s/3600.d0)
76  s = s - 3600.d0 * h
77  m = int(s/60.d0)
78  s = s - 60.d0 * m
79 !
80 !-----------------------------------------------------------------------
81 !
82 ! WRITES OUT: TIME AND ITERATIONS
83 !
84  IF (ietape.EQ.1.OR.ietape.EQ.2) THEN
85 !
86  IF(j.NE.0) THEN
87  WRITE(lu,11) gb(11),lt,gb(9),j,h,m,s,at
88  ELSEIF(h.NE.0) THEN
89  WRITE(lu,20) gb(11),lt,gb(9),h,m,s,at
90  ELSEIF(m.NE.0) THEN
91  WRITE(lu,30) gb(11),lt,gb(9),m,s,at
92  ELSE
93  WRITE(lu,40) gb(11),lt,gb(9),s
94  ENDIF
95 ! AN EMPTY LINE
96  WRITE(lu,*)
97 !
98 ! WRITES OUT: TITLES OF THE STAGES
99 !
100  ELSE
101 !
102  WRITE(lu,200) gb(ietape)
103 !
104  ENDIF
105 !
106 !-----------------------------------------------------------------------
107 !
108 11 FORMAT(/,80('='),/,1x,a10,i8,a10,
109  & 1i4,' D ',1i2,' H ',1i2,' MN ',f8.4,' S',5x,'(',f15.4,' S)')
110 20 FORMAT(/,80('='),/,1x,a10,i8,a10,1i2,' H ',1i2,' MIN ',f8.4,' S',
111  & 5x,'(',f12.4,' S)')
112 30 FORMAT(/,80('='),/,1x,a10,i8,a10,1i2,' MN ',f8.4,' S',
113  & 5x,'(',f12.4,' S)')
114 40 FORMAT(/,80('='),/,1x,a10,i8,a10,f8.4,' S')
115 200 FORMAT(80('-'),/,18x,a32)
116 !
117 !-----------------------------------------------------------------------
118 !
119  RETURN
120  END
subroutine entete_gaia(IETAPE, AT, LT)
Definition: entete_gaia.f:7