write_cover_tex_teb.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
!     ##########################
      SUBROUTINE write_cover_tex_teb
!     ##########################
!
!!**** *WRITE_COVER_TEX* writes the TEB data arrays into a tex file
!!
!!    PURPOSE
!!    -------
!!
!!    METHOD
!!    ------
!!
!!
!!    EXTERNAL
!!    --------
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!
!!    V. Masson        Meteo-France
!!
!!    MODIFICATION
!!    ------------
!!
!!    Original    08/01/98
!!
!----------------------------------------------------------------------------
!
!*    0.     DECLARATION
!            -----------
!
!
!
USE mode_write_cover_tex

USE modd_write_cover_tex,ONLY : ntex, cname, clang, nlines
USE modd_surf_par,       ONLY : xundef
USE modd_data_cover,     ONLY : xdata_town, xdata_wall_o_hor,           &
                                  xdata_alb_roof, xdata_emis_roof,        &
                                  xdata_alb_road, xdata_emis_road,        &
                                  xdata_alb_wall, xdata_emis_wall,        &
                                  xdata_hc_roof, xdata_tc_roof,           &
                                  xdata_d_roof, xdata_hc_road,            &
                                  xdata_tc_road, xdata_d_road,            &
                                  xdata_hc_wall, xdata_tc_wall,           &
                                  xdata_d_wall, xdata_can_hw_ratio,       &
                                  xdata_z0_town, xdata_bld,               &
                                  xdata_bld_height  


USE modd_data_cover_par, ONLY : jpcover
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!*    0.1    Declaration of arguments
!            ------------------------
!
!
!*    0.2    Declaration of local variables
!            ------------------------------
!
!
!
INTEGER :: I,IP
!
 CHARACTER(LEN=6), DIMENSION(8) :: YDATA_TOWN    ! town parameters
 CHARACTER(LEN=6), DIMENSION(9) :: YDATA_MATE    ! materials parameters
 CHARACTER(LEN=6)               :: YSTRING6
!
 CHARACTER(LEN=200):: YFMT  ! fortran format
LOGICAL           :: GLINE ! flag to write an additional horizontal line
!
REAL, DIMENSION(JPCOVER) :: ZDATA_SVF_ROAD,ZDATA_SVF_WALL
REAL, DIMENSION(SIZE(XDATA_HC_ROOF,1),SIZE(XDATA_HC_ROOF,2)) :: ZDATA_HC_ROOF,ZDATA_HC_ROAD,ZDATA_HC_WALL
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!-------------------------------------------------------------------------------
!
IF (lhook) CALL dr_hook('WRITE_COVER_TEX_TEB',0,zhook_handle)
IF (ntex==0 .AND. lhook) CALL dr_hook('WRITE_COVER_TEX_TEB',1,zhook_handle)
IF (ntex==0) RETURN
gline=.false.
!
zdata_svf_road=xundef
zdata_svf_wall=xundef
WHERE (xdata_can_hw_ratio.NE.xundef)
  zdata_svf_road = sqrt(xdata_can_hw_ratio**2+1.) - xdata_can_hw_ratio
  WHERE (xdata_can_hw_ratio>0.)
    zdata_svf_wall = 0.5 * (xdata_can_hw_ratio + 1. - sqrt(xdata_can_hw_ratio**2+1.) ) &
                         / xdata_can_hw_ratio  
  ELSEWHERE
    zdata_svf_wall = 0.5
  END WHERE
END WHERE

zdata_hc_roof=xdata_hc_roof
zdata_hc_road=xdata_hc_road
zdata_hc_wall=xdata_hc_wall
WHERE (zdata_hc_roof.EQ.xundef)
  zdata_hc_roof=xundef*1.e+6
END WHERE
WHERE (zdata_hc_road.EQ.xundef)
  zdata_hc_road=xundef*1.e+6
END WHERE
WHERE (zdata_hc_wall.EQ.xundef)
  zdata_hc_wall=xundef*1.e+6
END WHERE
!
!-------------------------------------------------------------------------------
!
i=0
DO 
  IF (i==jpcover) EXIT

  IF (clang=='EN') THEN
    WRITE(ntex,*) '{\bf town parameters (1)}\'
  ELSE
    WRITE(NTEX,*) '{\bf param\`etres de ville(1)}
  END IF
  WRITE(ntex,*) '\medskip\'
  WRITE(NTEX,*) '\begin{tabular}{||r|l||c|c|c|c|c|c|c||}'
  WRITE(NTEX,*) '\hline'
  WRITE(NTEX,*) '\hline'
  WRITE(NTEX,*) '&&$z_{0_{town}}$&bld frac.&$h$&h/l&{h/w} $^\star$&'
  WRITE(NTEX,*) '$\alpha_{_{roof}}$&'
  WRITE(NTEX,*) '$\epsilon_{_{roof}}$'
  WRITE(NTEX,*) '\hline'
  WRITE(NTEX,*) '\hline'
  IP=0
  DO 
    IF (I==JPCOVER) EXIT
    I=I+1
.AND..NE.    IF (XDATA_TOWN(I)>0.  XDATA_Z0_TOWN(I)XUNDEF) THEN
      IP=IP+1
      WRITE(YFMT,'(a2,i1,a1,i1,a1)') '(f',NB(XDATA_Z0_TOWN(I)),'.',DEC(XDATA_Z0_TOWN(I)),')'
      WRITE(YSTRING6, FMT=YFMT) XDATA_Z0_TOWN(I)
      YDATA_TOWN(1) = YSTRING6
      WRITE(YFMT,'(a2,i1,a1,i1,a1)') '(f',NB(XDATA_BLD(I)),'.',DEC(XDATA_BLD(I)),')'
      WRITE(YSTRING6, FMT=YFMT) XDATA_BLD(I)
      YDATA_TOWN(2) = YSTRING6
      WRITE(YFMT,'(a2,i1,a1,i1,a1)') '(f',NB(XDATA_BLD_HEIGHT(I)),'.',DEC(XDATA_BLD_HEIGHT(I)),')'
      WRITE(YSTRING6, FMT=YFMT) XDATA_BLD_HEIGHT(I)
      YDATA_TOWN(3) = YSTRING6
      WRITE(YFMT,'(a2,i1,a1,i1,a1)') '(f',NB(XDATA_WALL_O_HOR(I)),'.',DEC(XDATA_WALL_O_HOR(I)),')'
      WRITE(YSTRING6, FMT=YFMT) XDATA_WALL_O_HOR(I)
      YDATA_TOWN(4) = YSTRING6
      WRITE(YFMT,'(a2,i1,a1,i1,a1)') '(f',NB(XDATA_CAN_HW_RATIO(I)),'.',DEC(XDATA_CAN_HW_RATIO(I)),')'
      WRITE(YSTRING6, FMT=YFMT) XDATA_CAN_HW_RATIO(I)
      YDATA_TOWN(5) = YSTRING6
      WRITE(YSTRING6, FMT='(f3.2)') XDATA_ALB_ROOF(I)
      YDATA_TOWN(6) = YSTRING6
      WRITE(YSTRING6, FMT='(f3.2)') XDATA_EMIS_ROOF(I)
      YDATA_TOWN(7) = YSTRING6

      WRITE(NTEX, FMT=*)                                             &
          I,' &',CNAME(I),' &', YDATA_TOWN(1),' &',YDATA_TOWN(2),' &', &
            YDATA_TOWN(3),' &', YDATA_TOWN(4),' &',                    &
            YDATA_TOWN(5),' &', YDATA_TOWN(6),' &',                    &
            YDATA_TOWN(7),' '  
      GLINE=.TRUE.
      WRITE(NTEX,*) '\hline'
    END IF
    CALL HLINE(NTEX,GLINE,I)
    IF (IP==NLINES) EXIT
    END DO
    WRITE(NTEX,*) '\end{tabular}'
   WRITE(NTEX,*) ' '
  WRITE(NTEX,*) '\bigskip'

ENDDO
!
 
I=0
DO 
  IF (I==JPCOVER) EXIT

  IF (CLANG=='en') THEN
    WRITE(NTEX,*) '{\bf town parameters(2)}
  ELSE
    WRITE(ntex,*) '{\bf param\`etres de ville (2)}\'
  END IF
  WRITE(NTEX,*) '\begin{tabular}{||r|l||c|c|c|c|c|c||}'
  WRITE(NTEX,*) '\hline'
  WRITE(NTEX,*) '\hline'
  WRITE(NTEX,*) '&&$\alpha_{_{road}}$&'
  WRITE(NTEX,*) '$\epsilon_{_{road}}$&$\psi_{s_{road}}$ $^\dagger$&'
  WRITE(NTEX,*) '$\alpha_{_{wall}}$&'
  WRITE(NTEX,*) '$\epsilon_{_{wall}}$&$\psi_{s_{wall}}$ $^\ddagger$'
  WRITE(NTEX,*) '\hline'
  WRITE(NTEX,*) '\hline'
  IP=0
  DO
    IF (I==JPCOVER) EXIT
    I=I+1
.AND..NE.    IF (XDATA_TOWN(I)>0.  XDATA_Z0_TOWN(I)XUNDEF) THEN
      IP=IP+1
      WRITE(YSTRING6, FMT='(f3.2)') XDATA_ALB_ROAD(I)
      YDATA_TOWN(1) = YSTRING6
      WRITE(YSTRING6, FMT='(f3.2)') XDATA_EMIS_ROAD(I)
      YDATA_TOWN(2) = YSTRING6
      WRITE(YFMT,'(a2,i1,a1,i1,a1)') '(f',NB(ZDATA_SVF_ROAD(I)),'.',DEC(ZDATA_SVF_ROAD(I)),')'
      WRITE(YSTRING6, FMT=YFMT) ZDATA_SVF_ROAD(I)
      YDATA_TOWN(3) = YSTRING6
      WRITE(YSTRING6, FMT='(f3.2)') XDATA_ALB_WALL(I)
      YDATA_TOWN(4) = YSTRING6
      WRITE(YSTRING6, FMT='(f3.2)') XDATA_EMIS_WALL(I)
      YDATA_TOWN(5) = YSTRING6
      WRITE(YFMT,'(a2,i1,a1,i1,a1)') '(f',NB(ZDATA_SVF_WALL(I)),'.',DEC(ZDATA_SVF_WALL(I)),')'
      WRITE(YSTRING6, FMT='(f3.2)') ZDATA_SVF_WALL(I)
      YDATA_TOWN(6) = YSTRING6

      WRITE(NTEX, FMT=*)                                             &
          I,' &',CNAME(I),' &', YDATA_TOWN(1),' &',YDATA_TOWN(2),' &', &
            YDATA_TOWN(3),' &', YDATA_TOWN(4),' &',                    &
            YDATA_TOWN(5),' &', YDATA_TOWN(6),' '  
      GLINE=.TRUE.
      WRITE(NTEX,*) '\hline'
    END IF
    CALL HLINE(NTEX,GLINE,I)
    IF (IP==NLINES) EXIT
  END DO
  WRITE(NTEX,*) '\end{tabular}'
  WRITE(NTEX,*) ' '
  WRITE(NTEX,*) '\bigskip'
  WRITE(NTEX,*) ' '
  WRITE(NTEX,*) '\bigskip'
  WRITE(NTEX,*) ' '
ENDDO
!
!
!-------------------------------------------------------------------------------
!
I=0
DO 
  IF (I==JPCOVER) EXIT

  IF (CLANG=='en') THEN
    WRITE(NTEX,*) '$^\star$ {h/w} is computed from the vegetation fraction, the building '
    WRITE(NTEX,*) 'fraction of artificial area, and h/l'
  ELSE
    WRITE(NTEX,*) "$^\star$ {h/W} est calcul\'e \`a partir de la fraction de v\'eg\'etation,"
    WRITE(NTEX,*) 'de la fraction de batiments dans la surface construite, et de h/l'
  END IF
  WRITE(NTEX,*) ' '
  WRITE(NTEX,*) '$^\dagger$ $\psi_{s_{road}} = \sqrt{\frac{h^2}{w^2}+1}-\frac{h}{w}$ '
  WRITE(NTEX,*) ' '
  WRITE(NTEX,*) '$^\ddagger$ $\psi_{s_{wall}} = \frac{1}{2}\frac{w}{h}\left(\frac{h}{w}+1-\sqrt{\frac{h^2}{w^2}+1}\right)$'


  WRITE(NTEX,*) ' '
  WRITE(NTEX,*) '\bigskip'
  IF (CLANG=='en') THEN
    WRITE(NTEX,*) '{\bf roof thermal parameters }'
  ELSE
    WRITE(NTEX,*) '{\bf param\`etres thermiques des toits}'
  END IF
  WRITE(NTEX,*) '\medskip
  WRITE(ntex,*) '\begin{tabular}{||r|l||c|c|c|c|c|c|c|c|c||}'
  WRITE(ntex,*) '\hline'
  WRITE(ntex,*) '\hline'
  WRITE(ntex,*) '&&$C_{_{roof}}^{(1)}$&$C_{_{roof}}^{(2)}$&$C_{_{roof}}^{(3)}$&'
  WRITE(ntex,*) '$\lambda_{_{roof}}^{(1)}$&$\lambda_{_{roof}}^{(2)}$&$\lambda_{_{roof}}^{(3)}$&'
  WRITE(ntex,*) '$D_{_{roof}}^{(1)}$&$D_{_{roof}}^{(2)}$&$D_{_{roof}}^{(3)}$\\'
  WRITE(ntex,*) '\hline'
  WRITE(ntex,*) '\hline'
  ip=0
  DO
    IF (i==jpcover) EXIT
    i=i+1

    IF (xdata_town(i)>0. .AND. xdata_z0_town(i).NE.xundef) THEN
      ip=ip+1

      WRITE(yfmt,'(A2,I1,A1,I1,A1)') '(F',nb(zdata_hc_roof(i,1)*1.e-6),'.',dec(zdata_hc_roof(i,1)*1.e-6),')'
      WRITE(ystring6, fmt=yfmt) zdata_hc_roof(i,1)*1.e-6
      ydata_mate(1) = ystring6
      WRITE(yfmt,'(A2,I1,A1,I1,A1)') '(F',nb(zdata_hc_roof(i,2)*1.e-6),'.',dec(zdata_hc_roof(i,2)*1.e-6),')'
      WRITE(ystring6, fmt=yfmt) zdata_hc_roof(i,2)*1.e-6
      ydata_mate(2) = ystring6
      WRITE(yfmt,'(A2,I1,A1,I1,A1)') '(F',nb(zdata_hc_roof(i,3)*1.e-6),'.',dec(zdata_hc_roof(i,3)*1.e-6),')'
      WRITE(ystring6, fmt=yfmt) zdata_hc_roof(i,3)*1.e-6
      ydata_mate(3) = ystring6
      WRITE(yfmt,'(A2,I1,A1,I1,A1)') '(F',nb(xdata_tc_roof(i,1)),'.',dec(xdata_tc_roof(i,1)),')'
      WRITE(ystring6, fmt=yfmt) xdata_tc_roof(i,1)
      ydata_mate(4) = ystring6
      WRITE(yfmt,'(A2,I1,A1,I1,A1)') '(F',nb(xdata_tc_roof(i,2)),'.',dec(xdata_tc_roof(i,2)),')'
      WRITE(ystring6, fmt=yfmt) xdata_tc_roof(i,2)
      ydata_mate(5) = ystring6
      WRITE(yfmt,'(A2,I1,A1,I1,A1)') '(F',nb(xdata_tc_roof(i,3)),'.',dec(xdata_tc_roof(i,3)),')'
      WRITE(ystring6, fmt=yfmt) xdata_tc_roof(i,3)
      ydata_mate(6) = ystring6
      WRITE(yfmt,'(A2,I1,A1,I1,A1)') '(F',nb(xdata_d_roof(i,1)),'.',dec(xdata_d_roof(i,1)),')'
      WRITE(ystring6, fmt=yfmt) xdata_d_roof(i,1)
      ydata_mate(7) = ystring6
      WRITE(yfmt,'(A2,I1,A1,I1,A1)') '(F',nb(xdata_d_roof(i,2)),'.',dec(xdata_d_roof(i,2)),')'
      WRITE(ystring6, fmt=yfmt) xdata_d_roof(i,2)
      ydata_mate(8) = ystring6
      WRITE(yfmt,'(A2,I1,A1,I1,A1)') '(F',nb(xdata_d_roof(i,3)),'.',dec(xdata_d_roof(i,3)),')'
      WRITE(ystring6, fmt=yfmt) xdata_d_roof(i,3)
      ydata_mate(9) = ystring6


      WRITE(ntex, fmt=*)                                             &
          i,' &',cname(i),' &', ydata_mate(1),' &',ydata_mate(2),' &', &
            ydata_mate(3),' &', ydata_mate(4),' &',                    &
            ydata_mate(5),' &', ydata_mate(6),' &',                    &
            ydata_mate(7),' &', ydata_mate(8),' &',ydata_mate(9),' \\'  
      WRITE(ntex,*) '\hline'
      gline=.true.
    END IF
    CALL hline(ntex,gline,i)
    IF (ip==nlines) EXIT
  END DO
  WRITE(ntex,*) '\end{tabular}'
!
!
  WRITE(ntex,*) ' '
  WRITE(ntex,*) '\bigskip'
ENDDO

i=0
DO 
  IF (i==jpcover) EXIT
  IF (clang=='EN') THEN
    WRITE(ntex,*) '{\bf road thermal parameters}\\'
  ELSE
    WRITE(ntex,*) '{\bf param\`etres thermiques des rues}\\'
  END IF
  WRITE(ntex,*) '\medskip\'
  WRITE(NTEX,*) '\begin{tabular}{||r|l||c|c|c|c|c|c|c|c|c||}'
  WRITE(NTEX,*) '\hline'
  WRITE(NTEX,*) '\hline'
  WRITE(NTEX,*) '&&$c_{_{road}}^{(1)}$&$c_{_{road}}^{(2)}$&$c_{_{road}}^{(3)}$&'
  WRITE(NTEX,*) '$\lambda_{_{road}}^{(1)}$&$\lambda_{_{road}}^{(2)}$&$\lambda_{_{road}}^{(3)}$&'
  WRITE(NTEX,*) '$d_{_{road}}^{(1)}$&$d_{_{road}}^{(2)}$&$d_{_{road}}^{(3)}$'
  WRITE(NTEX,*) '\hline'
  WRITE(NTEX,*) '\hline'
  IP=0
  DO
    IF (I==JPCOVER) EXIT
    I=I+1
.AND..NE.    IF (XDATA_TOWN(I)>0.  XDATA_Z0_TOWN(I)XUNDEF) THEN
      IP=IP+1
      WRITE(YFMT,'(a2,i1,a1,i1,a1)') '(f',NB(ZDATA_HC_ROAD(I,1)*1.E-6),'.',DEC(ZDATA_HC_ROAD(I,1)*1.E-6),')'
      WRITE(YSTRING6, FMT=YFMT) ZDATA_HC_ROAD(I,1)*1.E-6
      YDATA_MATE(1) = YSTRING6
      WRITE(YFMT,'(a2,i1,a1,i1,a1)') '(f',NB(ZDATA_HC_ROAD(I,2)*1.E-6),'.',DEC(ZDATA_HC_ROAD(I,2)*1.E-6),')'
      WRITE(YSTRING6, FMT=YFMT) ZDATA_HC_ROAD(I,2)*1.E-6
      YDATA_MATE(2) = YSTRING6
      WRITE(YFMT,'(a2,i1,a1,i1,a1)') '(f',NB(ZDATA_HC_ROAD(I,3)*1.E-6),'.',DEC(ZDATA_HC_ROAD(I,3)*1.E-6),')'
      WRITE(YSTRING6, FMT=YFMT) ZDATA_HC_ROAD(I,3)*1.E-6
      YDATA_MATE(3) = YSTRING6
      WRITE(YFMT,'(a2,i1,a1,i1,a1)') '(f',NB(XDATA_TC_ROAD(I,1)),'.',DEC(XDATA_TC_ROAD(I,1)),')'
      WRITE(YSTRING6, FMT=YFMT) XDATA_TC_ROAD(I,1)
      YDATA_MATE(4) = YSTRING6
      WRITE(YFMT,'(a2,i1,a1,i1,a1)') '(f',NB(XDATA_TC_ROAD(I,2)),'.',DEC(XDATA_TC_ROAD(I,2)),')'
      WRITE(YSTRING6, FMT=YFMT) XDATA_TC_ROAD(I,2)
      YDATA_MATE(5) = YSTRING6
      WRITE(YFMT,'(a2,i1,a1,i1,a1)') '(f',NB(XDATA_TC_ROAD(I,3)),'.',DEC(XDATA_TC_ROAD(I,3)),')'
      WRITE(YSTRING6, FMT=YFMT) XDATA_TC_ROAD(I,3)
      YDATA_MATE(6) = YSTRING6
      WRITE(YFMT,'(a2,i1,a1,i1,a1)') '(f',NB(XDATA_D_ROAD(I,1)),'.',DEC(XDATA_D_ROAD(I,1)),')'
      WRITE(YSTRING6, FMT=YFMT) XDATA_D_ROAD(I,1)
      YDATA_MATE(7) = YSTRING6
      WRITE(YFMT,'(a2,i1,a1,i1,a1)') '(f',NB(XDATA_D_ROAD(I,2)),'.',DEC(XDATA_D_ROAD(I,2)),')'
      WRITE(YSTRING6, FMT=YFMT) XDATA_D_ROAD(I,2)
      YDATA_MATE(8) = YSTRING6
      WRITE(YFMT,'(a2,i1,a1,i1,a1)') '(f',NB(XDATA_D_ROAD(I,3)),'.',DEC(XDATA_D_ROAD(I,3)),')'
      WRITE(YSTRING6, FMT=YFMT) XDATA_D_ROAD(I,3)
      YDATA_MATE(9) = YSTRING6


      WRITE(NTEX, FMT=*)                                             &
          I,' &',CNAME(I),' &', YDATA_MATE(1),' &',YDATA_MATE(2),' &', &
            YDATA_MATE(3),' &', YDATA_MATE(4),' &',                    &
            YDATA_MATE(5),' &', YDATA_MATE(6),' &',                    &
            YDATA_MATE(7),' &', YDATA_MATE(8),' &',YDATA_MATE(9),' '  
      WRITE(NTEX,*) '\hline'
      GLINE=.TRUE.
    END IF
    CALL HLINE(NTEX,GLINE,I)
    IF (IP==NLINES) EXIT
  END DO
  WRITE(NTEX,*) '\end{tabular}'
!
!
  WRITE(NTEX,*) ' '
  WRITE(NTEX,*) '\bigskip'
ENDDO

I=0
DO 
  IF (I==JPCOVER) EXIT
  IF (CLANG=='en') THEN
    WRITE(NTEX,*) '{\bf wall thermal parameters}'
  ELSE
    WRITE(NTEX,*) '{\bf param\`etres thermiques des murs}'
  END IF
  WRITE(NTEX,*) '\medskip
  WRITE(ntex,*) '\begin{tabular}{||r|l||c|c|c|c|c|c|c|c|c||}'
  WRITE(ntex,*) '\hline'
  WRITE(ntex,*) '\hline'
  WRITE(ntex,*) '&&$C_{_{wall}}^{(1)}$&$C_{_{wall}}^{(2)}$&$C_{_{wall}}^{(3)}$&'
  WRITE(ntex,*) '$\lambda_{_{wall}}^{(1)}$&$\lambda_{_{wall}}^{(2)}$&$\lambda_{_{wall}}^{(3)}$&'
  WRITE(ntex,*) '$D_{_{wall}}^{(1)}$&$D_{_{wall}}^{(2)}$&$D_{_{wall}}^{(3)}$\\'
  WRITE(ntex,*) '\hline'
  WRITE(ntex,*) '\hline'
  ip=0
  DO
    IF (i==jpcover) EXIT
    i=i+1
    IF (xdata_town(i)>0. .AND. xdata_z0_town(i).NE.xundef) THEN
      ip=ip+1
      WRITE(yfmt,'(A2,I1,A1,I1,A1)') '(F',nb(zdata_hc_wall(i,1)*1.e-6),'.',dec(zdata_hc_wall(i,1)*1.e-6),')'
      WRITE(ystring6, fmt=yfmt) zdata_hc_wall(i,1)*1.e-6
      ydata_mate(1) = ystring6
      WRITE(yfmt,'(A2,I1,A1,I1,A1)') '(F',nb(zdata_hc_wall(i,2)*1.e-6),'.',dec(zdata_hc_wall(i,2)*1.e-6),')'
      WRITE(ystring6, fmt=yfmt) zdata_hc_wall(i,2)*1.e-6
      ydata_mate(2) = ystring6
      WRITE(yfmt,'(A2,I1,A1,I1,A1)') '(F',nb(zdata_hc_wall(i,3)*1.e-6),'.',dec(zdata_hc_wall(i,3)*1.e-6),')'
      WRITE(ystring6, fmt=yfmt) zdata_hc_wall(i,3)*1.e-6
      ydata_mate(3) = ystring6
      WRITE(yfmt,'(A2,I1,A1,I1,A1)') '(F',nb(xdata_tc_wall(i,1)),'.',dec(xdata_tc_wall(i,1)),')'
      WRITE(ystring6, fmt=yfmt) xdata_tc_wall(i,1)
      ydata_mate(4) = ystring6
      WRITE(yfmt,'(A2,I1,A1,I1,A1)') '(F',nb(xdata_tc_wall(i,2)),'.',dec(xdata_tc_wall(i,2)),')'
      WRITE(ystring6, fmt=yfmt) xdata_tc_wall(i,2)
      ydata_mate(5) = ystring6
      WRITE(yfmt,'(A2,I1,A1,I1,A1)') '(F',nb(xdata_tc_wall(i,3)),'.',dec(xdata_tc_wall(i,3)),')'
      WRITE(ystring6, fmt=yfmt) xdata_tc_wall(i,3)
      ydata_mate(6) = ystring6
      WRITE(yfmt,'(A2,I1,A1,I1,A1)') '(F',nb(xdata_d_wall(i,1)),'.',dec(xdata_d_wall(i,1)),')'
      WRITE(ystring6, fmt=yfmt) xdata_d_wall(i,1)
      ydata_mate(7) = ystring6
      WRITE(yfmt,'(A2,I1,A1,I1,A1)') '(F',nb(xdata_d_wall(i,2)),'.',dec(xdata_d_wall(i,2)),')'
      WRITE(ystring6, fmt=yfmt) xdata_d_wall(i,2)
      ydata_mate(8) = ystring6
      WRITE(yfmt,'(A2,I1,A1,I1,A1)') '(F',nb(xdata_d_wall(i,3)),'.',dec(xdata_d_wall(i,3)),')'
      WRITE(ystring6, fmt=yfmt) xdata_d_wall(i,3)
      ydata_mate(9) = ystring6


      WRITE(ntex, fmt=*)                                             &
          i,' &',cname(i),' &', ydata_mate(1),' &',ydata_mate(2),' &', &
            ydata_mate(3),' &', ydata_mate(4),' &',                    &
            ydata_mate(5),' &', ydata_mate(6),' &',                    &
            ydata_mate(7),' &', ydata_mate(8),' &',ydata_mate(9),' \\'  
      WRITE(ntex,*) '\hline'
      gline=.true.
    END IF
    CALL hline(ntex,gline,i)
    IF (ip==nlines) EXIT
  END DO
  WRITE(ntex,*) '\end{tabular}'
!
!-------------------------------------------------------------------------------
!
  WRITE(ntex,*) '\clearpage'
!
ENDDO
IF (lhook) CALL dr_hook('WRITE_COVER_TEX_TEB',1,zhook_handle)
!-------------------------------------------------------------------------------
!
!
END SUBROUTINE write_cover_tex_teb