|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ########################## 00002 SUBROUTINE WRITE_COVER_TEX_TEB 00003 ! ########################## 00004 ! 00005 !!**** *WRITE_COVER_TEX* writes the TEB data arrays into a tex file 00006 !! 00007 !! PURPOSE 00008 !! ------- 00009 !! 00010 !! METHOD 00011 !! ------ 00012 !! 00013 !! 00014 !! EXTERNAL 00015 !! -------- 00016 !! 00017 !! IMPLICIT ARGUMENTS 00018 !! ------------------ 00019 !! 00020 !! REFERENCE 00021 !! --------- 00022 !! 00023 !! AUTHOR 00024 !! ------ 00025 !! 00026 !! V. Masson Meteo-France 00027 !! 00028 !! MODIFICATION 00029 !! ------------ 00030 !! 00031 !! Original 08/01/98 00032 !! 00033 !---------------------------------------------------------------------------- 00034 ! 00035 !* 0. DECLARATION 00036 ! ----------- 00037 ! 00038 ! 00039 ! 00040 USE MODE_WRITE_COVER_TEX 00041 00042 USE MODD_WRITE_COVER_TEX,ONLY : NTEX, CNAME, CLANG, NLINES 00043 USE MODD_SURF_PAR, ONLY : XUNDEF 00044 USE MODD_DATA_COVER, ONLY : XDATA_TOWN, XDATA_WALL_O_HOR, & 00045 XDATA_ALB_ROOF, XDATA_EMIS_ROOF, & 00046 XDATA_ALB_ROAD, XDATA_EMIS_ROAD, & 00047 XDATA_ALB_WALL, XDATA_EMIS_WALL, & 00048 XDATA_HC_ROOF, XDATA_TC_ROOF, & 00049 XDATA_D_ROOF, XDATA_HC_ROAD, & 00050 XDATA_TC_ROAD, XDATA_D_ROAD, & 00051 XDATA_HC_WALL, XDATA_TC_WALL, & 00052 XDATA_D_WALL, XDATA_CAN_HW_RATIO, & 00053 XDATA_Z0_TOWN, XDATA_BLD, & 00054 XDATA_BLD_HEIGHT 00055 00056 00057 USE MODD_DATA_COVER_PAR, ONLY : JPCOVER 00058 ! 00059 ! 00060 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00061 USE PARKIND1 ,ONLY : JPRB 00062 ! 00063 IMPLICIT NONE 00064 ! 00065 !* 0.1 Declaration of arguments 00066 ! ------------------------ 00067 ! 00068 ! 00069 !* 0.2 Declaration of local variables 00070 ! ------------------------------ 00071 ! 00072 ! 00073 ! 00074 INTEGER :: I,IP 00075 ! 00076 CHARACTER(LEN=6), DIMENSION(8) :: YDATA_TOWN ! town parameters 00077 CHARACTER(LEN=6), DIMENSION(9) :: YDATA_MATE ! materials parameters 00078 CHARACTER(LEN=6) :: YSTRING6 00079 ! 00080 CHARACTER(LEN=200):: YFMT ! fortran format 00081 LOGICAL :: GLINE ! flag to write an additional horizontal line 00082 ! 00083 REAL, DIMENSION(JPCOVER) :: ZDATA_SVF_ROAD,ZDATA_SVF_WALL 00084 REAL, DIMENSION(SIZE(XDATA_HC_ROOF,1),SIZE(XDATA_HC_ROOF,2)) :: ZDATA_HC_ROOF,ZDATA_HC_ROAD,ZDATA_HC_WALL 00085 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00086 !------------------------------------------------------------------------------- 00087 ! 00088 IF (LHOOK) CALL DR_HOOK('WRITE_COVER_TEX_TEB',0,ZHOOK_HANDLE) 00089 IF (NTEX==0 .AND. LHOOK) CALL DR_HOOK('WRITE_COVER_TEX_TEB',1,ZHOOK_HANDLE) 00090 IF (NTEX==0) RETURN 00091 GLINE=.FALSE. 00092 ! 00093 ZDATA_SVF_ROAD=XUNDEF 00094 ZDATA_SVF_WALL=XUNDEF 00095 WHERE (XDATA_CAN_HW_RATIO.NE.XUNDEF) 00096 ZDATA_SVF_ROAD = SQRT(XDATA_CAN_HW_RATIO**2+1.) - XDATA_CAN_HW_RATIO 00097 WHERE (XDATA_CAN_HW_RATIO>0.) 00098 ZDATA_SVF_WALL = 0.5 * (XDATA_CAN_HW_RATIO + 1. - SQRT(XDATA_CAN_HW_RATIO**2+1.) ) & 00099 / XDATA_CAN_HW_RATIO 00100 ELSEWHERE 00101 ZDATA_SVF_WALL = 0.5 00102 END WHERE 00103 END WHERE 00104 00105 ZDATA_HC_ROOF=XDATA_HC_ROOF 00106 ZDATA_HC_ROAD=XDATA_HC_ROAD 00107 ZDATA_HC_WALL=XDATA_HC_WALL 00108 WHERE (ZDATA_HC_ROOF.EQ.XUNDEF) 00109 ZDATA_HC_ROOF=XUNDEF*1.E+6 00110 END WHERE 00111 WHERE (ZDATA_HC_ROAD.EQ.XUNDEF) 00112 ZDATA_HC_ROAD=XUNDEF*1.E+6 00113 END WHERE 00114 WHERE (ZDATA_HC_WALL.EQ.XUNDEF) 00115 ZDATA_HC_WALL=XUNDEF*1.E+6 00116 END WHERE 00117 ! 00118 !------------------------------------------------------------------------------- 00119 ! 00120 I=0 00121 DO 00122 IF (I==JPCOVER) EXIT 00123 00124 IF (CLANG=='EN') THEN 00125 WRITE(NTEX,*) 00126 00127 '{\bf town parameters (1)}\' ELSE WRITE(NTEX,*) '{\bf param\`etres de ville (1)} 00128 END IF 00129 WRITE(NTEX,*) 00130 '\medskip\' WRITE(NTEX,*) '\begin{tabular}{||r|l||c|c|c|c|c|c|c||} 00131 ' WRITE(NTEX,*) '\hline 00132 ' WRITE(NTEX,*) '\hline 00133 ' WRITE(NTEX,*) '&&$z_{0_{town}}$&bld frac.&$h$&h/L&{h/W} $^\star$& 00134 ' WRITE(NTEX,*) '$\alpha_{_{roof}}$& 00135 ' WRITE(NTEX,*) '$\epsilon_{_{roof}}$ 00136 ' WRITE(NTEX,*) '\hline 00137 ' WRITE(NTEX,*) '\hline 00138 00139 00140 00141 00142 .AND..NE. 00143 00144 ' IP=0 DO IF (I==JPCOVER) EXIT I=I+1 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)),') 00145 00146 00147 ' 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)),') 00148 00149 00150 ' 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)),') 00151 00152 00153 ' 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)),') 00154 00155 00156 ' 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)),') 00157 00158 00159 ' WRITE(YSTRING6, FMT=YFMT) XDATA_CAN_HW_RATIO(I) YDATA_TOWN(5) = YSTRING6 WRITE(YSTRING6, FMT='(F3.2) 00160 00161 ') XDATA_ALB_ROOF(I) YDATA_TOWN(6) = YSTRING6 WRITE(YSTRING6, FMT='(F3.2) 00162 00163 00164 00165 ') XDATA_EMIS_ROOF(I) YDATA_TOWN(7) = YSTRING6 WRITE(NTEX, FMT=*) & I,' &',CNAME(I),' &', YDATA_TOWN(1),' &',YDATA_TOWN(2),' & 00166 ', & YDATA_TOWN(3),' &', YDATA_TOWN(4),' & 00167 ', & YDATA_TOWN(5),' &', YDATA_TOWN(6),' & 00168 ', & YDATA_TOWN(7),' 00169 00170 ' GLINE=.TRUE. WRITE(NTEX,*) '\hline 00171 00172 00173 00174 00175 ' END IF CALL HLINE(NTEX,GLINE,I) IF (IP==NLINES) EXIT END DO WRITE(NTEX,*) '\end{tabular} 00176 ' WRITE(NTEX,*) ' 00177 ' WRITE(NTEX,*) '\bigskip 00178 00179 00180 00181 00182 00183 00184 00185 00186 'ENDDO! I=0DO IF (I==JPCOVER) EXIT IF (CLANG=='EN 00187 ') THEN WRITE(NTEX,*) '{\bf town parameters (2)} 00188 ELSE 00189 WRITE(NTEX,*) 00190 00191 '{\bf param\`etres de ville (2)}\' END IF WRITE(NTEX,*) '\begin{tabular}{||r|l||c|c|c|c|c|c||} 00192 ' WRITE(NTEX,*) '\hline 00193 ' WRITE(NTEX,*) '\hline 00194 ' WRITE(NTEX,*) '&&$\alpha_{_{road}}$& 00195 ' WRITE(NTEX,*) '$\epsilon_{_{road}}$&$\psi_{s_{road}}$ $^\dagger$& 00196 ' WRITE(NTEX,*) '$\alpha_{_{wall}}$& 00197 ' WRITE(NTEX,*) '$\epsilon_{_{wall}}$&$\psi_{s_{wall}}$ $^\ddagger$ 00198 ' WRITE(NTEX,*) '\hline 00199 ' WRITE(NTEX,*) '\hline 00200 00201 00202 00203 00204 .AND..NE. 00205 00206 ' IP=0 DO IF (I==JPCOVER) EXIT I=I+1 IF (XDATA_TOWN(I)>0. XDATA_Z0_TOWN(I)XUNDEF) THEN IP=IP+1 WRITE(YSTRING6, FMT='(F3.2) 00207 00208 ') XDATA_ALB_ROAD(I) YDATA_TOWN(1) = YSTRING6 WRITE(YSTRING6, FMT='(F3.2) 00209 00210 ') 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)),') 00211 00212 00213 ' WRITE(YSTRING6, FMT=YFMT) ZDATA_SVF_ROAD(I) YDATA_TOWN(3) = YSTRING6 WRITE(YSTRING6, FMT='(F3.2) 00214 00215 ') XDATA_ALB_WALL(I) YDATA_TOWN(4) = YSTRING6 WRITE(YSTRING6, FMT='(F3.2) 00216 00217 ') 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)),') 00218 ' WRITE(YSTRING6, FMT='(F3.2) 00219 00220 00221 00222 ') ZDATA_SVF_WALL(I) YDATA_TOWN(6) = YSTRING6 WRITE(NTEX, FMT=*) & I,' &',CNAME(I),' &', YDATA_TOWN(1),' &',YDATA_TOWN(2),' & 00223 ', & YDATA_TOWN(3),' &', YDATA_TOWN(4),' & 00224 ', & YDATA_TOWN(5),' &', YDATA_TOWN(6),' 00225 00226 ' GLINE=.TRUE. WRITE(NTEX,*) '\hline 00227 00228 00229 00230 00231 ' END IF CALL HLINE(NTEX,GLINE,I) IF (IP==NLINES) EXIT END DO WRITE(NTEX,*) '\end{tabular} 00232 ' WRITE(NTEX,*) ' 00233 ' WRITE(NTEX,*) '\bigskip 00234 ' WRITE(NTEX,*) ' 00235 ' WRITE(NTEX,*) '\bigskip 00236 ' WRITE(NTEX,*) ' 00237 00238 00239 00240 00241 00242 00243 00244 00245 00246 'ENDDO!!!-------------------------------------------------------------------------------!I=0DO IF (I==JPCOVER) EXIT IF (CLANG=='EN 00247 ') THEN WRITE(NTEX,*) '$^\star$ {h/W} is computed from the vegetation fraction, the building 00248 ' WRITE(NTEX,*) 'fraction of artificial area, and h/L 00249 00250 00251 ' 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 00252 00253 ' END IF WRITE(NTEX,*) ' 00254 ' WRITE(NTEX,*) '$^\dagger$ $\psi_{s_{road}} = \sqrt{\frac{h^2}{W^2}+1}-\frac{h}{W}$ 00255 ' WRITE(NTEX,*) ' 00256 ' 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)$ 00257 00258 00259 ' WRITE(NTEX,*) ' 00260 ' WRITE(NTEX,*) '\bigskip 00261 ' IF (CLANG=='EN 00262 ') THEN WRITE(NTEX,*) '{\bf roof thermal parameters } 00263 00264 ' ELSE WRITE(NTEX,*) '{\bf param\`etres thermiques des toits} 00265 00266 ' END IF WRITE(NTEX,*) '\medskip 00267 WRITE(NTEX,*) '\begin{tabular}{||r|l||c|c|c|c|c|c|c|c|c||}' 00268 WRITE(NTEX,*) '\hline' 00269 WRITE(NTEX,*) '\hline' 00270 WRITE(NTEX,*) '&&$C_{_{roof}}^{(1)}$&$C_{_{roof}}^{(2)}$&$C_{_{roof}}^{(3)}$&' 00271 WRITE(NTEX,*) '$\lambda_{_{roof}}^{(1)}$&$\lambda_{_{roof}}^{(2)}$&$\lambda_{_{roof}}^{(3)}$&' 00272 WRITE(NTEX,*) '$D_{_{roof}}^{(1)}$&$D_{_{roof}}^{(2)}$&$D_{_{roof}}^{(3)}$\\' 00273 WRITE(NTEX,*) '\hline' 00274 WRITE(NTEX,*) '\hline' 00275 IP=0 00276 DO 00277 IF (I==JPCOVER) EXIT 00278 I=I+1 00279 00280 IF (XDATA_TOWN(I)>0. .AND. XDATA_Z0_TOWN(I).NE.XUNDEF) THEN 00281 IP=IP+1 00282 00283 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),')' 00284 WRITE(YSTRING6, FMT=YFMT) ZDATA_HC_ROOF(I,1)*1.E-6 00285 YDATA_MATE(1) = YSTRING6 00286 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),')' 00287 WRITE(YSTRING6, FMT=YFMT) ZDATA_HC_ROOF(I,2)*1.E-6 00288 YDATA_MATE(2) = YSTRING6 00289 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),')' 00290 WRITE(YSTRING6, FMT=YFMT) ZDATA_HC_ROOF(I,3)*1.E-6 00291 YDATA_MATE(3) = YSTRING6 00292 WRITE(YFMT,'(A2,I1,A1,I1,A1)') '(F',NB(XDATA_TC_ROOF(I,1)),'.',DEC(XDATA_TC_ROOF(I,1)),')' 00293 WRITE(YSTRING6, FMT=YFMT) XDATA_TC_ROOF(I,1) 00294 YDATA_MATE(4) = YSTRING6 00295 WRITE(YFMT,'(A2,I1,A1,I1,A1)') '(F',NB(XDATA_TC_ROOF(I,2)),'.',DEC(XDATA_TC_ROOF(I,2)),')' 00296 WRITE(YSTRING6, FMT=YFMT) XDATA_TC_ROOF(I,2) 00297 YDATA_MATE(5) = YSTRING6 00298 WRITE(YFMT,'(A2,I1,A1,I1,A1)') '(F',NB(XDATA_TC_ROOF(I,3)),'.',DEC(XDATA_TC_ROOF(I,3)),')' 00299 WRITE(YSTRING6, FMT=YFMT) XDATA_TC_ROOF(I,3) 00300 YDATA_MATE(6) = YSTRING6 00301 WRITE(YFMT,'(A2,I1,A1,I1,A1)') '(F',NB(XDATA_D_ROOF(I,1)),'.',DEC(XDATA_D_ROOF(I,1)),')' 00302 WRITE(YSTRING6, FMT=YFMT) XDATA_D_ROOF(I,1) 00303 YDATA_MATE(7) = YSTRING6 00304 WRITE(YFMT,'(A2,I1,A1,I1,A1)') '(F',NB(XDATA_D_ROOF(I,2)),'.',DEC(XDATA_D_ROOF(I,2)),')' 00305 WRITE(YSTRING6, FMT=YFMT) XDATA_D_ROOF(I,2) 00306 YDATA_MATE(8) = YSTRING6 00307 WRITE(YFMT,'(A2,I1,A1,I1,A1)') '(F',NB(XDATA_D_ROOF(I,3)),'.',DEC(XDATA_D_ROOF(I,3)),')' 00308 WRITE(YSTRING6, FMT=YFMT) XDATA_D_ROOF(I,3) 00309 YDATA_MATE(9) = YSTRING6 00310 00311 00312 WRITE(NTEX, FMT=*) & 00313 I,' &',CNAME(I),' &', YDATA_MATE(1),' &',YDATA_MATE(2),' &', & 00314 YDATA_MATE(3),' &', YDATA_MATE(4),' &', & 00315 YDATA_MATE(5),' &', YDATA_MATE(6),' &', & 00316 YDATA_MATE(7),' &', YDATA_MATE(8),' &',YDATA_MATE(9),' \\' 00317 WRITE(NTEX,*) '\hline' 00318 GLINE=.TRUE. 00319 END IF 00320 CALL HLINE(NTEX,GLINE,I) 00321 IF (IP==NLINES) EXIT 00322 END DO 00323 WRITE(NTEX,*) '\end{tabular}' 00324 ! 00325 ! 00326 WRITE(NTEX,*) ' ' 00327 WRITE(NTEX,*) '\bigskip' 00328 ENDDO 00329 00330 I=0 00331 DO 00332 IF (I==JPCOVER) EXIT 00333 IF (CLANG=='EN') THEN 00334 WRITE(NTEX,*) '{\bf road thermal parameters}\\' 00335 ELSE 00336 WRITE(NTEX,*) '{\bf param\`etres thermiques des rues}\\' 00337 END IF 00338 WRITE(NTEX,*) 00339 '\medskip\' WRITE(NTEX,*) '\begin{tabular}{||r|l||c|c|c|c|c|c|c|c|c||} 00340 ' WRITE(NTEX,*) '\hline 00341 ' WRITE(NTEX,*) '\hline 00342 ' WRITE(NTEX,*) '&&$C_{_{road}}^{(1)}$&$C_{_{road}}^{(2)}$&$C_{_{road}}^{(3)}$& 00343 ' WRITE(NTEX,*) '$\lambda_{_{road}}^{(1)}$&$\lambda_{_{road}}^{(2)}$&$\lambda_{_{road}}^{(3)}$& 00344 ' WRITE(NTEX,*) '$D_{_{road}}^{(1)}$&$D_{_{road}}^{(2)}$&$D_{_{road}}^{(3)}$ 00345 ' WRITE(NTEX,*) '\hline 00346 ' WRITE(NTEX,*) '\hline 00347 00348 00349 00350 00351 .AND..NE. 00352 00353 ' IP=0 DO IF (I==JPCOVER) EXIT I=I+1 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),') 00354 00355 00356 ' 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),') 00357 00358 00359 ' 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),') 00360 00361 00362 ' 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)),') 00363 00364 00365 ' 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)),') 00366 00367 00368 ' 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)),') 00369 00370 00371 ' 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)),') 00372 00373 00374 ' 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)),') 00375 00376 00377 ' 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)),') 00378 00379 00380 00381 00382 00383 ' 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),' & 00384 ', & YDATA_MATE(3),' &', YDATA_MATE(4),' & 00385 ', & YDATA_MATE(5),' &', YDATA_MATE(6),' & 00386 ', & YDATA_MATE(7),' &', YDATA_MATE(8),' &',YDATA_MATE(9),' 00387 ' WRITE(NTEX,*) '\hline 00388 00389 00390 00391 00392 00393 ' GLINE=.TRUE. END IF CALL HLINE(NTEX,GLINE,I) IF (IP==NLINES) EXIT END DO WRITE(NTEX,*) '\end{tabular} 00394 00395 00396 '!! WRITE(NTEX,*) ' 00397 ' WRITE(NTEX,*) '\bigskip 00398 00399 00400 00401 00402 00403 'ENDDOI=0DO IF (I==JPCOVER) EXIT IF (CLANG=='EN 00404 ') THEN WRITE(NTEX,*) '{\bf wall thermal parameters} 00405 00406 ' ELSE WRITE(NTEX,*) '{\bf param\`etres thermiques des murs} 00407 00408 ' END IF WRITE(NTEX,*) '\medskip 00409 WRITE(NTEX,*) '\begin{tabular}{||r|l||c|c|c|c|c|c|c|c|c||}' 00410 WRITE(NTEX,*) '\hline' 00411 WRITE(NTEX,*) '\hline' 00412 WRITE(NTEX,*) '&&$C_{_{wall}}^{(1)}$&$C_{_{wall}}^{(2)}$&$C_{_{wall}}^{(3)}$&' 00413 WRITE(NTEX,*) '$\lambda_{_{wall}}^{(1)}$&$\lambda_{_{wall}}^{(2)}$&$\lambda_{_{wall}}^{(3)}$&' 00414 WRITE(NTEX,*) '$D_{_{wall}}^{(1)}$&$D_{_{wall}}^{(2)}$&$D_{_{wall}}^{(3)}$\\' 00415 WRITE(NTEX,*) '\hline' 00416 WRITE(NTEX,*) '\hline' 00417 IP=0 00418 DO 00419 IF (I==JPCOVER) EXIT 00420 I=I+1 00421 IF (XDATA_TOWN(I)>0. .AND. XDATA_Z0_TOWN(I).NE.XUNDEF) THEN 00422 IP=IP+1 00423 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),')' 00424 WRITE(YSTRING6, FMT=YFMT) ZDATA_HC_WALL(I,1)*1.E-6 00425 YDATA_MATE(1) = YSTRING6 00426 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),')' 00427 WRITE(YSTRING6, FMT=YFMT) ZDATA_HC_WALL(I,2)*1.E-6 00428 YDATA_MATE(2) = YSTRING6 00429 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),')' 00430 WRITE(YSTRING6, FMT=YFMT) ZDATA_HC_WALL(I,3)*1.E-6 00431 YDATA_MATE(3) = YSTRING6 00432 WRITE(YFMT,'(A2,I1,A1,I1,A1)') '(F',NB(XDATA_TC_WALL(I,1)),'.',DEC(XDATA_TC_WALL(I,1)),')' 00433 WRITE(YSTRING6, FMT=YFMT) XDATA_TC_WALL(I,1) 00434 YDATA_MATE(4) = YSTRING6 00435 WRITE(YFMT,'(A2,I1,A1,I1,A1)') '(F',NB(XDATA_TC_WALL(I,2)),'.',DEC(XDATA_TC_WALL(I,2)),')' 00436 WRITE(YSTRING6, FMT=YFMT) XDATA_TC_WALL(I,2) 00437 YDATA_MATE(5) = YSTRING6 00438 WRITE(YFMT,'(A2,I1,A1,I1,A1)') '(F',NB(XDATA_TC_WALL(I,3)),'.',DEC(XDATA_TC_WALL(I,3)),')' 00439 WRITE(YSTRING6, FMT=YFMT) XDATA_TC_WALL(I,3) 00440 YDATA_MATE(6) = YSTRING6 00441 WRITE(YFMT,'(A2,I1,A1,I1,A1)') '(F',NB(XDATA_D_WALL(I,1)),'.',DEC(XDATA_D_WALL(I,1)),')' 00442 WRITE(YSTRING6, FMT=YFMT) XDATA_D_WALL(I,1) 00443 YDATA_MATE(7) = YSTRING6 00444 WRITE(YFMT,'(A2,I1,A1,I1,A1)') '(F',NB(XDATA_D_WALL(I,2)),'.',DEC(XDATA_D_WALL(I,2)),')' 00445 WRITE(YSTRING6, FMT=YFMT) XDATA_D_WALL(I,2) 00446 YDATA_MATE(8) = YSTRING6 00447 WRITE(YFMT,'(A2,I1,A1,I1,A1)') '(F',NB(XDATA_D_WALL(I,3)),'.',DEC(XDATA_D_WALL(I,3)),')' 00448 WRITE(YSTRING6, FMT=YFMT) XDATA_D_WALL(I,3) 00449 YDATA_MATE(9) = YSTRING6 00450 00451 00452 WRITE(NTEX, FMT=*) & 00453 I,' &',CNAME(I),' &', YDATA_MATE(1),' &',YDATA_MATE(2),' &', & 00454 YDATA_MATE(3),' &', YDATA_MATE(4),' &', & 00455 YDATA_MATE(5),' &', YDATA_MATE(6),' &', & 00456 YDATA_MATE(7),' &', YDATA_MATE(8),' &',YDATA_MATE(9),' \\' 00457 WRITE(NTEX,*) '\hline' 00458 GLINE=.TRUE. 00459 END IF 00460 CALL HLINE(NTEX,GLINE,I) 00461 IF (IP==NLINES) EXIT 00462 END DO 00463 WRITE(NTEX,*) '\end{tabular}' 00464 ! 00465 !------------------------------------------------------------------------------- 00466 ! 00467 WRITE(NTEX,*) '\clearpage' 00468 ! 00469 ENDDO 00470 IF (LHOOK) CALL DR_HOOK('WRITE_COVER_TEX_TEB',1,ZHOOK_HANDLE) 00471 !------------------------------------------------------------------------------- 00472 ! 00473 ! 00474 END SUBROUTINE WRITE_COVER_TEX_TEB
1.8.0
