[6940] | 1 | ! ************************************* c |
---|
| 2 | ! * calcul du nombre de feuilles * c |
---|
| 3 | ! * version 5.0 29/06/01 * c |
---|
| 4 | ! ************************************* c |
---|
| 5 | ! **************************************************************** |
---|
| 6 | !> Calculation of the number of leaves (nbfeuille) is mainly indicative. |
---|
| 7 | !> - Stics book paragraphe 3.1.5, page 48 |
---|
| 8 | !! |
---|
| 9 | !> Its only active role is to define the duration of the plantlet phase when calculating |
---|
| 10 | !! frost risks. Indeed the plantlet stage is calculated as a leaf-number stage (2 or 3). nbfeuille is calculated up to the ILAX stage from the phyllotherm (phyllotherme) |
---|
| 11 | !! (the thermal period separating the emission of two successive leaves) expressed in crop degree.days as for the phasic development. |
---|
| 12 | ! *-----------------------------------------------------------------------------------------------------------------------------------------------------------* c |
---|
| 13 | subroutine CalculNombreDeFeuilles(nlax,udev,somfeuille,nbfeuille) |
---|
| 14 | |
---|
| 15 | USE Stics |
---|
| 16 | |
---|
| 17 | |
---|
| 18 | ! ARGUMENTS (IN) |
---|
| 19 | !real, intent(IN) :: P_phyllotherme !> // PARAMETER // thermal duration between the apparition of two successive leaves on the main stem // degree C day // PARPLT // 1 |
---|
| 20 | integer, intent(IN) :: nlax |
---|
| 21 | real, intent(IN) :: udev |
---|
| 22 | |
---|
| 23 | ! ARGUMENTS (INOUT) |
---|
| 24 | real, intent(INOUT) :: somfeuille |
---|
| 25 | integer, intent(INOUT) :: nbfeuille !> // OUTPUT // Number of leaves on main stem // SD |
---|
| 26 | |
---|
| 27 | if (P_phyllotherme <= 0 .or. nlax > 0) return |
---|
| 28 | |
---|
| 29 | somfeuille = somfeuille + udev |
---|
| 30 | |
---|
| 31 | if (somfeuille > P_phyllotherme) then |
---|
| 32 | nbfeuille = nbfeuille + 1 |
---|
| 33 | somfeuille = somfeuille - P_phyllotherme |
---|
| 34 | endif |
---|
| 35 | |
---|
| 36 | return |
---|
| 37 | end subroutine CalculNombreDeFeuilles |
---|