Changeset 350 for branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/stomate_turnover.f90

Timestamp:

2011-07-29T14:04:49+02:00 (13 years ago)

Author:

didier.solyga

Message:

Add labels for the externalized pft parameters. Update obsolete aspects of F77. Replace the last 0.0 by zero in stomate

File:

• branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/stomate_turnover.f90 (modified) (3 diffs)

branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/stomate_turnover.f90

@@ -166 +166 @@
     !
 
-    leaf_meanage(:,:) = 0.0
+    leaf_meanage(:,:) = zero
 
     DO m = 1, nleafages
@@ -348 +348 @@
 
        ! initialize leaf mass change in age class
-       delta_lm(:,:) = 0.0
+       delta_lm(:,:) = zero
 
        IF ( tree(j) ) THEN
@@ -451 +451 @@
        DO m = 1, nleafages
 
-          WHERE ( biomass(:,j,ileaf) .GT. 0.0 )
+          WHERE ( biomass(:,j,ileaf) .GT. zero )
              leaf_frac(:,j,m) = ( leaf_frac(:,j,m)*lm_old(:) + delta_lm(:,m) ) / biomass(:,j,ileaf)
           ELSEWHERE