Changeset 112


Ignore:
Timestamp:
02/16/11 11:10:29 (11 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

Location:
branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba/hydrol.f90

    r64 r112  
    18931893 
    18941894    IF ( firstcall ) THEN 
    1895        !Config  Key  = PERCENT_THROUGHFALL_PFT 
    1896        !Config  Desc = Percent by PFT of precip that is not intercepted by the canopy 
    1897        !Config  Def  = 30. 30. 30. 30. 30. 30. 30. 30. 30. 30. 30. 30. 30. 
    1898        !Config  Help = During one rainfall event, PERCENT_THROUGHFALL_PFT% of the incident rainfall 
    1899        !Config         will get directly to the ground without being intercepted, for each PFT. 
    1900         
    1901 !       throughfall_by_pft = (/ 30., 30., 30., 30., 30., 30., 30., 30., 30., 30., 30., 30., 30. /) 
    1902        CALL getin_p('PERCENT_THROUGHFALL_PFT',throughfall_by_pft) 
     1895!!$       !Config  Key  = PERCENT_THROUGHFALL_PFT 
     1896!!$       !Config  Desc = Percent by PFT of precip that is not intercepted by the canopy 
     1897!!$       !Config  Def  = 30. 30. 30. 30. 30. 30. 30. 30. 30. 30. 30. 30. 30. 
     1898!!$       !Config  Help = During one rainfall event, PERCENT_THROUGHFALL_PFT% of the incident rainfall 
     1899!!$       !Config         will get directly to the ground without being intercepted, for each PFT. 
     1900!!$        
     1901!!$!       throughfall_by_pft = (/ 30., 30., 30., 30., 30., 30., 30., 30., 30., 30., 30., 30., 30. /) 
     1902!!$       CALL getin_p('PERCENT_THROUGHFALL_PFT',throughfall_by_pft) 
    19031903       throughfall_by_pft = throughfall_by_pft / 100. 
    19041904 
  • branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba/hydrolc.f90

    r64 r112  
    14591459 
    14601460    IF ( firstcall ) THEN 
    1461        !Config  Key  = PERCENT_THROUGHFALL_PFT 
    1462        !Config  Desc = Percent by PFT of precip that is not intercepted by the canopy 
    1463        !Config  Def  = 30. 30. 30. 30. 30. 30. 30. 30. 30. 30. 30. 30. 30. 
    1464        !Config  Help = During one rainfall event, PERCENT_THROUGHFALL_PFT% of the incident rainfall 
    1465        !Config         will get directly to the ground without being intercepted, for each PFT. 
    1466         
    1467 !       throughfall_by_pft = (/ 30., 30., 30., 30., 30., 30., 30., 30., 30., 30., 30., 30., 30. /) 
    1468        CALL getin_p('PERCENT_THROUGHFALL_PFT',throughfall_by_pft) 
     1461!!$       !Config  Key  = PERCENT_THROUGHFALL_PFT 
     1462!!$       !Config  Desc = Percent by PFT of precip that is not intercepted by the canopy 
     1463!!$       !Config  Def  = 30. 30. 30. 30. 30. 30. 30. 30. 30. 30. 30. 30. 30. 
     1464!!$       !Config  Help = During one rainfall event, PERCENT_THROUGHFALL_PFT% of the incident rainfall 
     1465!!$       !Config         will get directly to the ground without being intercepted, for each PFT. 
     1466!!$        
     1467!!$!       throughfall_by_pft = (/ 30., 30., 30., 30., 30., 30., 30., 30., 30., 30., 30., 30., 30. /) 
     1468!!$       CALL getin_p('PERCENT_THROUGHFALL_PFT',throughfall_by_pft) 
    14691469       throughfall_by_pft = throughfall_by_pft / 100. 
    14701470 
     
    21972197    ENDDO 
    21982198 
     2199 
     2200!!$DS Debug humrel 14/02/2011 
     2201!!$    DO jv = 1, nvm 
     2202!!$      DO ji=1,kjpindex 
     2203!!$         WRITE(numout,*)'the value of humrel for the PFT 10 is : ',humrel(ji,10)  
     2204!!$         WRITE(numout,*)'the value of humrel for the PFT 12 is : ',humrel(ji,12)  
     2205!!$      ENDDO 
     2206!!$    ENDDO 
     2207 
    21992208    ! 
    22002209    ! 7. Diagnostics which are needed to carry information to other modules 
Note: See TracChangeset for help on using the changeset viewer.