Changeset 257 for branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/stomate_lcchange.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_lcchange.f90 (modified) (3 diffs)

branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/stomate_lcchange.f90

@@ -139 +139 @@
 
     ! Turnover rates (gC/(m**2 of ground)/day)
-    REAL(r_std), DIMENSION(npts,nvm,nparts), INTENT(out)               :: turnover_daily
+    REAL(r_std), DIMENSION(npts,nvm,nparts), INTENT(inout)               :: turnover_daily
 
     ! 0.4 local
@@ -207 +207 @@
                    cn_ind(i,j) = cn_sapl(j)
                 ELSE
-                   cn_ind(i,j)=1.0
+                   cn_ind(i,j) = un
                 ENDIF
                 ind(i,j)= delta_veg(j) / cn_ind(i,j)
                 PFTpresent(i,j) = .TRUE.
-                everywhere(i,j) = 1.
+                everywhere(i,j) = un
                 senescence(i,j) = .FALSE.
                 age(i,j) = 0.
 
                 when_growthinit(i,j) = large_value
-                leaf_frac(i,j,1) = 1.0
+                leaf_frac(i,j,1) = un
                 npp_longterm(i,j) = 10.
                 lm_lastyearmax(i,j) = bm_sapl(j,ileaf) * ind(i,j)
@@ -321 +321 @@
        flux100(i,1)      = 0.01 * prod100(i,0)
        prod100(i,1)      = prod100(i,0)
-!MM=>          IF (prod100(i,1).LT.1.0) prod100(i,1) = 0.0
+!MM=>          IF (prod100(i,1).LT.1.0) prod100(i,1) = zero
 !MM=>stomate_lpj.f90       prod100_total(i)  = prod100_total(i) + prod100(i,1)
-       prod10(i,0)        = 0.0
-       prod100(i,0)       = 0.0 
+       prod10(i,0)        = zero
+       prod100(i,0)       = zero
 
     ENDDO  ! End loop on npts