Changeset 112 for branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba/hydrol.f90

Timestamp:

2011-02-16T11:10:29+01:00 (13 years ago)

Author:

didier.solyga

Message:

uncomment the division of throughfall_by_pft, could be wrong if division made after getin in the previous commit

File:

• branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba/hydrol.f90 (modified) (1 diff)

branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba/hydrol.f90

@@ -1893 +1893 @@
 
     IF ( firstcall ) THEN
-       !Config  Key  = PERCENT_THROUGHFALL_PFT
-       !Config  Desc = Percent by PFT of precip that is not intercepted by the canopy
-       !Config  Def  = 30. 30. 30. 30. 30. 30. 30. 30. 30. 30. 30. 30. 30.
-       !Config  Help = During one rainfall event, PERCENT_THROUGHFALL_PFT% of the incident rainfall
-       !Config         will get directly to the ground without being intercepted, for each PFT.
-       
-!       throughfall_by_pft = (/ 30., 30., 30., 30., 30., 30., 30., 30., 30., 30., 30., 30., 30. /)
-       CALL getin_p('PERCENT_THROUGHFALL_PFT',throughfall_by_pft)
+!!$       !Config  Key  = PERCENT_THROUGHFALL_PFT
+!!$       !Config  Desc = Percent by PFT of precip that is not intercepted by the canopy
+!!$       !Config  Def  = 30. 30. 30. 30. 30. 30. 30. 30. 30. 30. 30. 30. 30.
+!!$       !Config  Help = During one rainfall event, PERCENT_THROUGHFALL_PFT% of the incident rainfall
+!!$       !Config         will get directly to the ground without being intercepted, for each PFT.
+!!$       
+!!$!       throughfall_by_pft = (/ 30., 30., 30., 30., 30., 30., 30., 30., 30., 30., 30., 30., 30. /)
+!!$       CALL getin_p('PERCENT_THROUGHFALL_PFT',throughfall_by_pft)
        throughfall_by_pft = throughfall_by_pft / 100.