/home/dasprezs/EXPORT_v7_3/src/SURFEX/write_cover_tex_isba.F90

Go to the documentation of this file.

!     #########
      SUBROUTINE WRITE_COVER_TEX_ISBA(KPATCH,KLAYER,HISBA)
!     ##########################
!
!!**** *WRITE_COVER_TEX* writes the ISBA 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_NATURE,                            &
                                  XDATA_VEGTYPE, XDATA_H_TREE, XDATA_LAI,  &
                                  XDATA_ROOT_DEPTH, XDATA_GROUND_DEPTH  

USE MODD_DATA_COVER_PAR, ONLY : JPCOVER, NVEGTYPE, NVT_ROCK, NVT_SNOW, &
                                  NVT_NO, NVT_GRAS, NVT_TROG, NVT_PARK,  &
                                  NVT_C3, NVT_C4, NVT_IRR, NVT_TREE,     &
                                  NVT_CONI, NVT_EVER  

!
!
USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
USE PARKIND1  ,ONLY : JPRB
!
IMPLICIT NONE
!
!*    0.1    Declaration of arguments
!            ------------------------
!
INTEGER,          INTENT(IN) :: KPATCH! number of patch
INTEGER,          INTENT(IN) :: KLAYER! number of soil layers
 CHARACTER(LEN=*), INTENT(IN) :: HISBA ! type of soil (Force-Restore OR Diffusion)
!
!*    0.2    Declaration of local variables
!            ------------------------------
!
!
INTEGER :: I,J
!
 CHARACTER(LEN=5), DIMENSION(NVEGTYPE) :: YDATA_VEGTYPE ! vegetation type
 CHARACTER(LEN=6), DIMENSION(12      ) :: YDATA_VEGPARAM! vegetation parameters
 CHARACTER(LEN=6)                      :: YSTRING6
 CHARACTER(LEN=6), DIMENSION(12      ) :: YDATA_MONTH   ! monthly veg. parameters
!
 CHARACTER(LEN=40),DIMENSION(2)        :: YPATCH        ! titles for each vegtype
!
 CHARACTER(LEN=20) :: YFMT  ! fortran format
!
INTEGER           :: JPAGE ! current page when the number of classes
                           ! is too long to stand on one page only
INTEGER           :: IP    ! number of cover types on the current page
INTEGER           :: JVEGTYPE ! loop counter
!
!
LOGICAL           :: GLINE ! flag to write an additional horizontal line
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!-------------------------------------------------------------------------------
!
IF (LHOOK) CALL DR_HOOK('WRITE_COVER_TEX_ISBA',0,ZHOOK_HANDLE)
IF (NTEX==0 .AND. LHOOK) CALL DR_HOOK('WRITE_COVER_TEX_ISBA',1,ZHOOK_HANDLE)
IF (NTEX==0) RETURN
GLINE=.FALSE.
!
!
I=0

DO 

  IF (I==JPCOVER) EXIT

  IF (CLANG=='EN') THEN
    WRITE(NTEX,*) '{\bf vegetation type and main ISBA parameters$^\star$}\\'
  ELSE
    WRITE(NTEX,*) "{\bf type de v\'eg\'etation et param\`etres principaux d'ISBA $^\star$}\\"
  END IF
  WRITE(NTEX,*) 
'\medskip\'  WRITE(NTEX,*) '\begin{tabular}{||r|l||c|c|c|c|c|c|c|c|c|c|c|c||}
'  WRITE(NTEX,*) '\hline
'  WRITE(NTEX,*) '\hline



'!!* WARNING: check the cover type order in ini_data_cover routine!  IF (CLANG=='EN
') THEN    WRITE(NTEX,*) '&&bare&rocks&snow&broad-&conif.&ever-&C3&C4&irr.&grass&trop.&irr.
'    WRITE(NTEX,*) '&&land&&&leaf&&green&&&crops&&grass&grass




'  ELSE    WRITE(NTEX,*) "&&sol&roc&neige&feuillus&coni-&persis-&C3&C4&cult.&prairie&prairie&pelouse\\"    WRITE(NTEX,*) "&&nu&&&&f\`eres&tants&&&irr.&&tropicale&\\"  END IF  WRITE(NTEX,*) '\hline
'  WRITE(NTEX,*) '\hline









'  IP=0  DO     IF (I==JPCOVER) EXIT     I=I+1    IF (XDATA_NATURE(I)>0.) THEN      IP=IP+1      DO J=1,NVEGTYPE        IF (XDATA_VEGTYPE(I,J)==0.) THEN          YDATA_VEGTYPE(J) = '    

'        ELSE          WRITE(YFMT,FMT='(A2,I1,A1,I1,A1)') '(F',NB(XDATA_VEGTYPE(I,J)),'.',DEC(XDATA_VEGTYPE(I,J)),')






'          WRITE(YSTRING6, FMT=YFMT) XDATA_VEGTYPE(I,J)          YDATA_VEGTYPE(J) = YSTRING6        END IF      END DO      WRITE(NTEX, FMT=*) &          I,' & ',CNAME(I),' & ',YDATA_VEGTYPE(1),' & ',YDATA_VEGTYPE(2),' & 
', &          YDATA_VEGTYPE(3),' & ',YDATA_VEGTYPE(4),' & ',YDATA_VEGTYPE(5),' & 
', &          YDATA_VEGTYPE(6),' & ',YDATA_VEGTYPE(7),' & ',YDATA_VEGTYPE(8),' & 
', &          YDATA_VEGTYPE(9),' & ',YDATA_VEGTYPE(10),' & ',YDATA_VEGTYPE(11),' & 
',&          YDATA_VEGTYPE(12),' 
'        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





'!END DO!!-------------------------------------------------------------------------------!  IF (CLANG=='EN
') THEN    WRITE(NTEX,*) '{\bf computation of other ISBA parameters}
    WRITE(NTEX,*) 


'\medskip\'    WRITE(NTEX,*) "Vegetation type, Leaf area index and height of vegetation (for trees)"    WRITE(NTEX,*) "are used in these computations.\"    WRITE(NTEX,*) '\bigskip
    WRITE(NTEX,*) 
'\underline{vegetation fraction}\'    WRITE(NTEX,*) '\medskip
    WRITE(NTEX,*) '\begin{tabular}{rll}'
    WRITE(NTEX,*) 'veg = & $1-e^{-0.6 lai}$ & for C3, C4 and irrigated crops\\'
    WRITE(NTEX,*) 'veg = & 0.95 & for grassland, tropical grassland and irrigated grass\\'
    WRITE(NTEX,*) 'veg = & 0.95 & for broadleaf and coniferous trees\\'
    WRITE(NTEX,*) 'veg = & 0.99 & for evergreen broadleaf trees\\'
    WRITE(NTEX,*) 'veg = & 0.   & for bare soil, snow and rocks'
    WRITE(NTEX,*) '\end{tabular}'
    WRITE(NTEX,*) 
'\smallskip\'    WRITE(NTEX,*) 'When averaging is needed, it is performed arithmetically

'    WRITE(NTEX,*) "\bigskip\"    WRITE(NTEX,*) '\underline{roughness length for momentum}
    WRITE(NTEX,*) 
'\medskip\'    WRITE(NTEX,*) 'The height of the vegetation (or obstacles over bare soils) is computed as:
    WRITE(NTEX,*) '\begin{tabular}{rll}'
    WRITE(NTEX,*) '$h_{veg}$ = & min $(1. , h_{allen})$ & for C3 crops\\'
    WRITE(NTEX,*) '$h_{veg}$ = & min $(2.5, h_{allen})$ & for C4 and irrigated crops\\'
    WRITE(NTEX,*) '$h_{veg}$ = & $h$ & for broadleaf, coniferous and evergreen  trees\\'
    WRITE(NTEX,*) '$h_{veg}$ = & $lai/6$ & for grassland, tropical grassland and irrigated grass\\'
    WRITE(NTEX,*) '$h_{veg}$ = & 0.1  m   & for bare soil\\'
    WRITE(NTEX,*) '$h_{veg}$ = & 1.   m   & for rocks\\'
    WRITE(NTEX,*) '$h_{veg}$ = & 0.01 m   & for permanent snow and ice'
    WRITE(NTEX,*) '\end{tabular}'
    WRITE(NTEX,*) 
'\smallskip\'    WRITE(NTEX,*) 'where $h_{allen} = e^{(lai-3.5)/1.3}$
    WRITE(NTEX,*) 
'The roughness length is deduced: $z_{0} = 0.13 h_{veg}$\'     WRITE(NTEX,*) 'When averaging is needed, it is performed according to the
'    WRITE(NTEX,*) '$1/{\rm ln}^2(\frac{z_{0}}{10})$ quantities.

'    WRITE(NTEX,*) "\bigskip\"    WRITE(NTEX,*) '\underline{emissivity}
    WRITE(NTEX,*) 
"\medskip\"    WRITE(NTEX,*) "Emissivity is equal to 0.97 on the vegetated part (veg), 
"    WRITE(NTEX,*) "to 0.94 on bare soil and rocks, and to 1. on snow.
"    WRITE(NTEX,*) "Averaging is linear.
"    WRITE(NTEX,*) "\bigskip
    WRITE(NTEX,*) 











'\underline{cumulative root fraction}\'    WRITE(NTEX,*) "\smallskip\"    WRITE(NTEX,*) "\begin{displaymath}"    WRITE(NTEX,*) "F_{root} =(1-\delta) \left[ \frac{1-A^{100\times z}}"    WRITE(NTEX,*) "{1 - A^{100\times d_2}} \right] + \delta \frac{z}{d_2}"    WRITE(NTEX,*) "\end{displaymath}"    WRITE(NTEX,*) "where $d_2$ is root depth, given for each 215 ecosystem (meters),"    WRITE(NTEX,*) "$z$ is depth (meters, "    WRITE(NTEX,*) "positive downwards), $\delta=0.05$ and $A$ is the extinction"    WRITE(NTEX,*) "coefficient after Jackson (1996) (see below).\"    WRITE(NTEX,*) "Averaging is linear."    WRITE(NTEX,*) "\bigskip\"    WRITE(NTEX,*) '\underline{other vegetation parameters}
    WRITE(NTEX,*) 

"\medskip\"    WRITE(NTEX,*) 'Other vegetation parameters are computed from the vegetation types.'    WRITE(NTEX,*) "The 'bare soil', 'rocks' and 'snow' vegetation types are not pertinent.



















"    WRITE(NTEX,*) 'When averaging is needed,'    WRITE(NTEX,*) 'it is performed linearly, except for the $C_v$ parameter, where it is harmonic.'    WRITE(NTEX,*) '\medskip\'    WRITE(NTEX,*) '\begin{tabular}{||l||c|c|c|c|c|c|c|c|c|c||}'    WRITE(NTEX,*) '\hline'    WRITE(NTEX,*) '&$\alpha_{nir}$&$\alpha_{vis}$&$r_{s_{min}}$&$\gamma$&$rgl$&$gm$&$B/lai$&$e_{_{fold}}$&$C_v$&$A$\\'    WRITE(NTEX,*) '\hline'    WRITE(NTEX,*) 'brodleaf trees      & .25 & .05 & 150 & .04 & 30 & .001 & .25 & 365. & 1. $10^{-5}$ & 0.966 \\'    WRITE(NTEX,*) 'coniferous trees    & .15 & .05 & 150 & .04 & 30 & .001 & .25 & 365. & 1. $10^{-5}$ & 0.943 \\'    WRITE(NTEX,*) 'evergreen broadleaf trees & .21 & .05 & 250 & .04 & 30 & .001 & .25 & 365. & 1. $10^{-5}$ & 0.962 \\'    WRITE(NTEX,*) 'C3 crops   & .30 & .10 &  40 & 0. & 100 & .003 & .06 &  60. & 2. $10^{-5}$& 0.961 \\'    WRITE(NTEX,*) 'C4 crops   & .30 & .10 &  120 & 0. & 100 & .003 & .06 &  60. & 2. $10^{-5}$ & 0.972 \\'    WRITE(NTEX,*) 'irr. crops & .30 & .10 &  120 & 0. & 100 & .003 & .06 &  60. & 2. $10^{-5}$ & 0.961 \\'    WRITE(NTEX,*) 'grassland  & .30 & .10 &  40 & 0. & 100 & .020 & .36 &  90. & 2. $10^{-5}$& 0.943 \\'    WRITE(NTEX,*) 'trop. grass & .30 & .10 &  120 & 0. & 100 & .020 & .36 &  90. & 2. $10^{-5}$ & 0.972 \\'    WRITE(NTEX,*) 'irr. grass & .30 & .10 &  40 & 0. & 100 & .020 & .36 &  90. & 2. $10^{-5}$& 0.943 \\'    WRITE(NTEX,*) '\hline'    WRITE(NTEX,*) '\end{tabular}'  ELSE    WRITE(NTEX,*) "{\bf calcul des autres param\`etres d
'ISBA}\"    WRITE(NTEX,*) '\medskip
    WRITE(NTEX,*) "Les types de v\'eg\'etation, l'indice foliaire et la hauteur de la v\'eg\'etation (pour les arbres)"
    WRITE(NTEX,*) 

"sont utilis\'es dans ces calculs.\"    WRITE(NTEX,*) '\bigskip\'    WRITE(NTEX,*) "\underline{fraction de vegetation}
    WRITE(NTEX,*) 











'\medskip\'    WRITE(NTEX,*) "\begin{tabular}{rll}"    WRITE(NTEX,*) "veg = & $1-e^{-0.6 lai}$ & pour les cultures (C3, C4 et irrigu\'ees)\\"    WRITE(NTEX,*) "veg = & 0.95 & pour les arbres (feuillus, conif\`eres)\\"    WRITE(NTEX,*) "veg = & 0.99 & pour les feuillus persistants\\"    WRITE(NTEX,*) "veg = & 0.95 & pour la prairie, la prairie tropicale et la pelouse irrigu\'ee\\"    WRITE(NTEX,*) "veg = & 0.   & pour les sols nus, la neige \'eternelle et les rochers"    WRITE(NTEX,*) "\end{tabular}"    WRITE(NTEX,*) "\smallskip\"   WRITE(NTEX,*) "Quand une moyenne est n\'ecessaire, elle est arithm\'etique."    WRITE(NTEX,*) "\bigskip\"    WRITE(NTEX,*) "\underline{longueur de rugosit\'e pour la quantit\'e de mouvement}\"    WRITE(NTEX,*) '\medskip
    WRITE(NTEX,*) 
"La hauteur de la v\'eg\'etation (ou des obstacles sur les sols nus) est calcul\'ee ainsi:\"    WRITE(NTEX,*) "\begin{tabular}{rll}
"    WRITE(NTEX,*) "$h_{veg}$ = & min $(1. , h_{allen})$ & pour les cultures (C3)
"    WRITE(NTEX,*) "$h_{veg}$ = & min $(2.5, h_{allen})$ & pour les cultures (C4 et irriguees)
"    WRITE(NTEX,*) "$h_{veg}$ = & $h$ & pour les arbres (feuillus, conif\`eres et persistants)
"    WRITE(NTEX,*) "$h_{veg}$ = & $lai/6$ & pour la prairie, la prairie tropicale et la pelouse irriguee
"    WRITE(NTEX,*) "$h_{veg}$ = & 0.1  m   & pour le sol nu
"    WRITE(NTEX,*) "$h_{veg}$ = & 1.   m   & pour les rochers
"    WRITE(NTEX,*) "$h_{veg}$ = & 0.01 m   & pour les neiges eternelles et glaciers
"    WRITE(NTEX,*) "\end{tabular}
"    WRITE(NTEX,*) "\smallskip
    WRITE(NTEX,*) 
"avec $h_{allen} = e^{(lai-3.5)/1.3}$\"    WRITE(NTEX,*) "La longueur de rugosite de la surface en est deduite:
"    WRITE(NTEX,*) "$z_{0} = 0.13 h_{veg}$
    WRITE(NTEX,*) "Quand une moyenne est n\'ecessaire, elle s'effectue sur les"
    WRITE(NTEX,*) "$1/{\rm ln}^2(\frac{z_{0}}{10})$."
    WRITE(NTEX,*) 
"\bigskip\"    WRITE(NTEX,*) "\underline{emissivite}
    WRITE(NTEX,*) 
'\medskip\'    WRITE(NTEX,*) "L'emissivite est egale a 0.97 sur la partie vegetale (veg), 
"    WRITE(NTEX,*) "0.94 sur la partie sol nu et rochers, et 1 sur la neige.
"    WRITE(NTEX,*) "Les moyennes sont lineaires.
"    WRITE(NTEX,*) "\bigskip
    WRITE(NTEX,*) 
"\underline{fraction cumul\'ee de racines}\"    WRITE(NTEX,*) "\medskip
    WRITE(NTEX,*) "\begin{displaymath}"
    WRITE(NTEX,*) "F_{root} =(1-\delta) \left[ \frac{1-A^{100\times z}}"
    WRITE(NTEX,*) "{1 - A^{100\times d}} \right] + \delta \frac{z}{d_2}"
    WRITE(NTEX,*) "\end{displaymath}"
    WRITE(NTEX,*) "o\`u $d_2$ est la profondeur racinaire, "
    WRITE(NTEX,*) "donn\'ee pour chacun des 215 ecosyst\`emes (m\`etres),"
    WRITE(NTEX,*) "$z$ est la profondeur (m\`etres, "
    WRITE(NTEX,*) "positive vers le bas), $\delta=0.05$ et $A$ est le"
    WRITE(NTEX,*) 
"coefficient d'extinction d'apr\`es Jackson (1996) (voir ci-dessous).\"    WRITE(NTEX,*) "Les moyennes sont lineaires.
"    WRITE(NTEX,*) "\bigskip
    WRITE(NTEX,*) 

"\underline{autres param\`etres de v\'eg\'etation}\"    WRITE(NTEX,*) '\medskip\'    WRITE(NTEX,*) "Les autres param\`etres de vegetation sont deduits des types de vegetation.
"    WRITE(NTEX,*) "Les types 'sol nu', 'rochers' et 'neige' ne sont pas pertinents.
"    WRITE(NTEX,*) "Quand une moyenne est necessaire, elle est lineaire, sauf sur le param\`etre
"    WRITE(NTEX,*) "$C_v$, o\`u elle est harmonique.





































"    WRITE(NTEX,*) '\medskip\'    WRITE(NTEX,*) '\begin{tabular}{||l||c|c|c|c|c|c|c|c|c|c||}'    WRITE(NTEX,*) '\hline'    WRITE(NTEX,*) '&$\alpha_{nir}$&$\alpha_{vis}$&$r_{s_{min}}$&$\gamma$&$rgl$&$gm$&$B/lai$&$e_{_{fold}}$&$C_v$&$A$\\'    WRITE(NTEX,*) '\hline'    WRITE(NTEX,*) 'feuillus     & .25 & .05 & 150 & .04 & 30 & .001 & .25 & 365. & 1. $10^{-5}$& 0.966 \\'    WRITE(NTEX,*) 'conif\`eres & .15 & .05 & 150 & .04 & 30 & .001 & .25 & 365. & 1. $10^{-5}$& 0.943 \\'    WRITE(NTEX,*) 'feuillus persistans & .21 & .05 & 250 & .04 & 30 & .001 & .25 & 365. & 1. $10^{-5}$& 0.962 \\'    WRITE(NTEX,*) 'cultures C3  & .30 & .10 &  40 & 0. & 100 & .003 & .06 &  60. & 2. $10^{-5}$& 0.961 \\'    WRITE(NTEX,*) 'cultures C4  & .30 & .10 &  120 & 0. & 100 & .003 & .06 &  60. & 2. $10^{-5}$& 0.972 \\'    WRITE(NTEX,*) 'cultures irr.  & .30 & .10 & 120 & 0. & 100 & .003 & .06 &  60. & 2. $10^{-5}$& 0.961 \\'    WRITE(NTEX,*) 'prairies     & .30 & .10 &  40 & 0. & 100 & .020 & .36 &  90. & 2. $10^{-5}$&0.943 \\'    WRITE(NTEX,*) 'prairies trop. & .30 & .10 &  120 & 0. & 100 & .020 & .36 &  90. & 2. $10^{-5}$& 0.972 \\'    WRITE(NTEX,*) 'pelouse      & .30 & .10 &  40 & 0. & 100 & .020 & .36 &  90. & 2. $10^{-5}$& 0.943 \\'    WRITE(NTEX,*) '\hline'    WRITE(NTEX,*) '\end{tabular}'  END IF!!-------------------------------------------------------------------------------!  WRITE(NTEX,*) '\clearpage'!!-------------------------------------------------------------------------------!-------------------------------------------------------------------------------!DO JVEGTYPE=1,NVEGTYPE ! I=0 ! DO  !  IF (I==JPCOVER) EXIT  !  IF (JVEGTYPE==NVT_ROCK) YPATCH = (/ 'rocks                        ',   &                                        'les rochers                  ' /)    IF (JVEGTYPE==NVT_SNOW) THEN     YPATCH(1) = 'permanent snow and ice       '     YPATCH(2) = "les neiges eternelles     









"  END IF  IF (JVEGTYPE==NVT_NO  ) YPATCH = (/ 'bare soil                    ',   &                                        'le sol nu                    ' /)    IF (JVEGTYPE==NVT_GRAS) YPATCH = (/ 'grasslands                   ',   &                                        'les prairies                 ' /)    IF (JVEGTYPE==NVT_TROG) YPATCH = (/ 'tropical grasslands          ',   &                                        'les prairies tropicales      ' /)    IF (JVEGTYPE==NVT_PARK) THEN     YPATCH(1) = 'irrigated grass              '     YPATCH(2) = "les pelouses irriguees    







"  END IF  IF (JVEGTYPE==NVT_C3)   YPATCH = (/ 'C3 crops                     ',   &                                        'les cultures C3              ' /)    IF (JVEGTYPE==NVT_C4)   YPATCH = (/ 'C4 crops                     ',   &                                        'les cultures C4              ' /)    IF (JVEGTYPE==NVT_IRR ) THEN    YPATCH(1) = 'irrigated crops              '    YPATCH(2) = "les cultures irriguees    





"  END IF  IF (JVEGTYPE==NVT_TREE) YPATCH = (/ 'broadleaf trees             ',   &                                        'les feuillus                ' /)    IF (JVEGTYPE==NVT_CONI) THEN     YPATCH(1) = 'coniferous trees             '     YPATCH(2) = "les conif\`eres             




"  END IF  IF (JVEGTYPE==NVT_EVER) THEN     YPATCH(1) = 'equatorial forest            '     YPATCH(2) = "les for\^ets equatoriales


.OR..OR.



"  END IF  IF (JVEGTYPE==NVT_ROCK  JVEGTYPE==NVT_SNOW  JVEGTYPE==NVT_NO) THEN    IF (CLANG=='EN') THEN      WRITE(NTEX,*) '{\bf Ground depths for : ',YPATCH(1),'}\\'    ELSE      WRITE(NTEX,*) "{\bf Profondeurs de sol pour : 













",YPATCH(2),'}\\'    END IF    WRITE(NTEX,*) '\medskip\'    WRITE(NTEX,*) '\begin{tabular}{||r|l||c|c||}'    WRITE(NTEX,*) '\hline'    WRITE(NTEX,*) '\hline'    WRITE(NTEX,*) '&&$d_2$&$d_3$\\'    WRITE(NTEX,*) '\hline'    WRITE(NTEX,*) '\hline'  ELSE    IF (CLANG=='EN') THEN      WRITE(NTEX,*) '{\bf Leaf Area Index and ground depths for : ',YPATCH(1),'}\\'    ELSE      WRITE(NTEX,*) "{\bf Indice foliaire et profondeurs de sol pour : 


.OR..OR.




























































.OR..OR.






.OR..OR.