| 59 | Le pref_soil_veg perd donc une dimension par rapport à son ancienne définition : |
| 60 | {{{ |
| 61 | ! Select the preferences for the distribution of the 13 PFTs on the 3 soil types. |
| 62 | ! |
| 63 | vegsoil_dist='EQUI' |
| 64 | ! |
| 65 | SELECT CASE(vegsoil_dist) |
| 66 | ! |
| 67 | ! A reasonable choice |
| 68 | ! |
| 69 | CASE('MAXR') |
| 70 | pref_soil_veg(:,1) = (/ 1, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2 /) |
| 71 | pref_soil_veg(:,2) = (/ 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3 /) |
| 72 | pref_soil_veg(:,3) = (/ 3, 1, 1, 1, 1, 1 ,1 ,1 ,1 ,1 ,1 ,1, 1 /) |
| 73 | ! |
| 74 | ! Current default : equidistribution. |
| 75 | ! |
| 76 | CASE('EQUI') |
| 77 | ! |
| 78 | pref_soil_veg(:,:) = zero |
| 79 | ! |
| 80 | CASE DEFAULT |
| 81 | ! |
| 82 | WRITE(numout,*) 'The vegetation soil type preference you have chosen does not exist' |
| 83 | WRITE(numout,*) 'You chose :', vegsoil_dist |
| 84 | STOP 'slowproc_init' |
| 85 | ! |
| 86 | END SELECT |
| 87 | }}} |