Changeset 112 for branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba/hydrolc.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/hydrolc.f90 (modified) (2 diffs)

branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba/hydrolc.f90

@@ -1459 +1459 @@
 
     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.
 
@@ -2197 +2197 @@
     ENDDO
 
+
+!!$DS Debug humrel 14/02/2011
+!!$    DO jv = 1, nvm
+!!$      DO ji=1,kjpindex
+!!$         WRITE(numout,*)'the value of humrel for the PFT 10 is : ',humrel(ji,10) 
+!!$         WRITE(numout,*)'the value of humrel for the PFT 12 is : ',humrel(ji,12) 
+!!$      ENDDO
+!!$    ENDDO
+
     !
     ! 7. Diagnostics which are needed to carry information to other modules