Changeset 257 for branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/stomate_npp.f90

Timestamp:

2011-06-17T14:02:17+02:00 (13 years ago)

Author:

didier.solyga

Message:

Externalized version merged with the trunk

File:

• branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/stomate_npp.f90 (modified) (4 diffs)

branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/stomate_npp.f90

@@ -144 +144 @@
        ! 1.1.1 soil levels
 
-       z_soil(0) = 0.
+       z_soil(0) = zero
        z_soil(1:nbdl) = diaglev(1:nbdl)
 
@@ -175 +175 @@
 
        ! 1.3.1 rpc is an integration constant such that the integral of the root profile is 1.
-       rpc(:) = 1. / ( 1. - EXP( -z_soil(nbdl) / rprof(:,j) ) )
+
+       rpc(:) = un / ( un - EXP( -z_soil(nbdl) / rprof(:,j) ) )
 
        ! 1.3.2 integrate over the nbdl levels
@@ -243 +244 @@
           coeff_maint(:,j,k) = &
                MAX( coeff_maint_zero(j,k) * &
-               ( 1. + slope(:) * (t_maint(:,k)-ZeroCelsius) ), zero )
+               ( un + slope(:) * (t_maint(:,k)-ZeroCelsius) ), zero )
 
        ENDDO
@@ -336 +337 @@
        resp_growth_part(:,:) = frac_growthresp * bm_alloc(:,j,:) / dt
 
-       bm_alloc(:,j,:) = ( 1. - frac_growthresp ) * bm_alloc(:,j,:)
+       bm_alloc(:,j,:) = ( un - frac_growthresp ) * bm_alloc(:,j,:)
 
        !