6 SUBROUTINE write_cover_tex_water
57 USE yomhook
,ONLY : lhook, dr_hook
58 USE parkind1
,ONLY : jprb
73 CHARACTER(LEN=6) :: ystring6
75 CHARACTER(LEN=200):: yfmt
79 CHARACTER(LEN=6),
DIMENSION(6) :: ydata_water
80 REAL,
DIMENSION(1) :: zzenith
81 REAL,
DIMENSION(1) :: zalbedo
82 REAL(KIND=JPRB) :: zhook_handle
85 IF (lhook) CALL dr_hook(
'WRITE_COVER_TEX_WATER',0,zhook_handle)
86 IF (ntex==0 .AND. lhook) CALL dr_hook(
'WRITE_COVER_TEX_WATER',1,zhook_handle)
93 WRITE(ntex,*)
'{\bf water parameters}\\'
95 WRITE(ntex,*)
'{\bf param\`etres aquatiques}\\'
97 WRITE(ntex,*)
'\medskip\'
98 WRITE(NTEX,*) '\begin{tabular}{||r|l||c|c|c|c||}
'
99 WRITE(NTEX,*) '\
hline'
100 WRITE(NTEX,*) '\
hline'
101 WRITE(NTEX,*) '&&$\alpha$&$\alpha_{dir}$&$\alpha_{sca}$&$\epsilon$
'
102 WRITE(NTEX,*) '\
hline'
103 WRITE(NTEX,*) '\
hline'
108 IF (XDATA_SEA(I) + XDATA_WATER(I)>0.) THEN
110 WRITE(YSTRING6, FMT='(f3.2)
') XALBWAT
111 YDATA_WATER(1) = YSTRING6
114 ZALBEDO(:) = ALBEDO_TA96(ZZENITH)
115 WRITE(YFMT,'(a2,i1,a1,i1,a1)
') '(f
',NB(ZALBEDO(1)),'.
',DEC(ZALBEDO(1)),')
'
116 WRITE(YSTRING6, FMT=YFMT) ZALBEDO(1)
117 YDATA_WATER(2) = YSTRING6
120 ZALBEDO(:) = ALBEDO_TA96(ZZENITH)
121 WRITE(YFMT,'(a2,i1,a1,i1,a1)
') '(f
',NB(ZALBEDO(1)),'.
',DEC(ZALBEDO(1)),')
'
122 WRITE(YSTRING6, FMT=YFMT) ZALBEDO(1)
123 YDATA_WATER(3) = YSTRING6
125 WRITE(YSTRING6, FMT='(f3.2)
') XALBSCA_WAT
126 YDATA_WATER(4) = YSTRING6
127 WRITE(YSTRING6, FMT='(f4.2)
') XEMISWAT
128 YDATA_WATER(5) = YSTRING6
131 I,' &
',CNAME(I),' &
',YDATA_WATER(1),' &
', &
132 YDATA_WATER(2),'-
',YDATA_WATER(3),' &
', &
133 YDATA_WATER(4),' &
', &
135 WRITE(NTEX,*) '\
hline'
138 CALL HLINE(NTEX,GLINE,I)
141 WRITE(NTEX,*) '\end{tabular}
'
142 !-------------------------------------------------------------------------------
144 WRITE(NTEX,*) '\clearpage
'
147 IF (LHOOK) CALL DR_HOOK('write_cover_tex_water
',1,ZHOOK_HANDLE)
148 !-------------------------------------------------------------------------------
150 END SUBROUTINE WRITE_COVER_TEX_WATER
subroutine hline(KTEX, GLINE, I)