Changeset 350 for branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/stomate_resp.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_resp.f90 (modified) (1 diff)

branches/ORCHIDEE_EXT/ORCHIDEE/src_stomate/stomate_resp.f90

@@ -121 +121 @@
        ! 1.3.2 integrate over the nbdl levels
 
-       t_root(:,j) = 0.0
+       t_root(:,j) = zero
 
        DO l = 1, nbdl