Changes between Version 4 and Version 5 of Ajeterici/TechnicalModifications

Timestamp:

2011-03-21T10:06:09+01:00 (13 years ago)

Author:

dsolyga

Comment:

--

Ajeterici/TechnicalModifications

@@ -7 +7 @@
 
 We tried to respect as soon as possible the structure of the code. Three folders over five were affected by
-the modifications : '''src_parameters''', '''src_sechiba''' and '''src_stomate'''. We regroup all the
+the modifications : ''src_parameters'', ''src_sechiba'' and ''src_stomate''. We regroup all the
 files containing parameters in src_parameters. We rewrite some parts of the code in order not to have explicit
 references to indexes to some PFTs (like agricultural ones). The changements are detailed below :
@@ -31 +31 @@
 
 We delete '''stomate_constants.f90''' in order to move its parameters in src_parameters. The too-specific parameters were moved to '''stomate_data.f90'''. [[BR]]
-During our validations on fluxnet sites, we modify the herbivory model and the formulation for the variable 
-"black_carbon".
+During our validations on fluxnet sites, we modified the herbivory model and the formulation for the variable 
+"black_carbon". In '''stomate_season.f90''', we replace : 
+{{{
+    DO j = 2,nvm
+       !
+       IF ( natural(j) ) THEN
+          !
+          WHERE ( nlflong_nat(:) .GT. zero )
+             consumption(:) = hvc1 * nlflong_nat(:) ** hvc2
+             herbivores(:,j) = one_year * green_age(:) * nlflong_nat(:) / consumption(:)
+          ELSEWHERE
+             herbivores(:,j) = 100000.
+          ENDWHERE
+          !
+       ELSE
+          !
+          herbivores(:,j) = 100000.
+          !
+       ENDIF
+       !
+    ENDDO
+}}}
+by : 
+{{{
+     DO j = 2,nvm
+       !
+       IF ( natural(j) ) THEN
+          !
+          WHERE ( nlflong_nat(:,j) .GT. zero )
+             consumption(:) = hvc1 * nlflong_nat(:,j) ** hvc2
+             herbivores(:,j) = one_year * green_age(:,j) * nlflong_nat(:,j) / consumption(:)
+          ELSEWHERE
+             herbivores(:,j) = 100000.
+          ENDWHERE
+          !
+       ELSE
+          !
+          herbivores(:,j) = 100000.
+          !
+       ENDIF
+       !
+    ENDDO  
+}}}
+in order to make herbivores more pft-specific.