Changeset 111


Ignore:
Timestamp:
02/16/11 11:05:09 (11 years ago)
Author:
didier.solyga
Message:

Move some calls to sechiba_parameters which were in stomate_parameters, clean the code from old comments

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

Legend:

Unmodified
Added
Removed
  • branches/ORCHIDEE_EXT/ORCHIDEE/src_parameters/constantes.f90

    r102 r111  
    10331033   CALL getin('DMCR',dmcr) 
    10341034   !- 
     1035   CALL getin('VIS_DRY',vis_dry) 
     1036   CALL getin('NIR_DRY',nir_dry) 
     1037   CALL getin('VIS_WET',vis_wet) 
     1038   CALL getin('NIR_WET',nir_wet) 
     1039   CALL getin('ALBSOIL_VIS',albsoil_vis) 
     1040   CALL getin('ALBSOIL_NIR',albsoil_nir) 
    10351041   !- 
    10361042   CALL getin('CLAYFRACTION_DEFAULT',clayfraction_default) 
     
    12051211       CALL getin('LEAFAGE_OLD',leafage_old) 
    12061212       !- 
    1207        CALL getin('VIS_DRY',vis_dry) 
    1208        CALL getin('NIR_DRY',nir_dry) 
    1209        CALL getin('VIS_WET',vis_wet) 
    1210        CALL getin('NIR_WET',nir_wet) 
    1211        CALL getin('ALBSOIL_VIS',albsoil_vis) 
    1212        CALL getin('ALBSOIL_NIR',albsoil_nir) 
    1213        !- 
    12141213       CALL getin('GPPFRAC_DORMANCE',gppfrac_dormance) 
    12151214       CALL getin('MIN_GPP_ALLOWED',min_gpp_allowed) 
  • branches/ORCHIDEE_EXT/ORCHIDEE/src_parameters/pft_parameters.f90

    r101 r111  
    375375  !---------------------------------- 
    376376  ! 
    377   ! used in hydrolc 
     377  ! used in hydrolc and hydrol 
    378378  REAL(r_std), ALLOCATABLE, SAVE, DIMENSION (:)   :: throughfall_by_pft 
    379379  ! used in diffuco   !! Nathalie le 28 mars 2006 - sur proposition de Fred Hourdin, ajout 
     
    456456 
    457457      !------------------------------------------------------! 
    458       ! Declaration of tables 2D  which are used in the code ! 
     458      ! Initialisation of tables 2D  which are used in the code ! 
    459459      !------------------------------------------------------! 
    460460      ! 
    461461      !- pheno_gdd_crit 
    462462      pheno_gdd_crit(:,:) = zero  
    463 !!$      pheno_gdd_crit(:,1) = pheno_gdd_crit_c(:) 
    464 !!$      pheno_gdd_crit(:,2) = pheno_gdd_crit_b(:)          
    465 !!$      pheno_gdd_crit(:,3) = pheno_gdd_crit_a(:)  
    466463      ! 
    467464      !- senescence_temp 
    468465      senescence_temp(:,:) = zero 
    469 !!$      senescence_temp(:,1) = senescence_temp_c(:) 
    470 !!$      senescence_temp(:,2) = senescence_temp_b(:) 
    471 !!$      senescence_temp(:,3) = senescence_temp_a(:) 
    472466      ! 
    473467      !- maint_resp_slope 
    474468      maint_resp_slope(:,:) = zero 
    475 !!$      maint_resp_slope(:,1)= maint_resp_slope_c(:)               
    476 !!$      maint_resp_slope(:,2) = maint_resp_slope_b(:) 
    477 !!$      maint_resp_slope(:,3) = maint_resp_slope_a(:) 
    478469      ! 
    479470      !-coeff_maint_zero 
    480471      coeff_maint_zero(:,:) = zero 
    481 !!$      coeff_maint_zero(:,ileaf) = cm_zero_leaf(:) 
    482 !!$      coeff_maint_zero(:,isapabove) = cm_zero_sapabove(:) 
    483 !!$      coeff_maint_zero(:,isapbelow) = cm_zero_sapbelow(:) 
    484 !!$      coeff_maint_zero(:,iheartabove) = cm_zero_heartabove(:) 
    485 !!$      coeff_maint_zero(:,iheartbelow) = cm_zero_heartbelow(:) 
    486 !!$      coeff_maint_zero(:,iroot) = cm_zero_root(:) 
    487 !!$      coeff_maint_zero(:,ifruit) = cm_zero_fruit(:) 
    488 !!$      coeff_maint_zero(:,icarbres) = cm_zero_carbres(:) 
    489472      ! 
    490473      !-alb_leaf 
    491474      alb_leaf(:) = zero 
    492 !!$      alb_leaf(1:nvm) = alb_leaf_vis(1:nvm) 
    493 !!$      DO i = nvm+1, 2*nvm 
    494 !!$         alb_leaf(i) = alb_leaf_nir(i-nvm) 
    495 !!$      ENDDO 
    496475      !- pref_soil_veg (see slowproc) 
    497476 
     
    12381217     ! No calling to getin for 
    12391218     ! veget_ori_fixed_test_1, llaimax and height_presc 
    1240      ! getin will be called in slowproc.f90 
     1219     ! use of setvar in slowproc.f90 
    12411220      
    12421221     !----------------- 
     
    12601239     CALL getin('KZERO',kzero) 
    12611240     CALL getin('RVEG_PFT', rveg_pft)     
    1262      !------------------- 
    1263      ! Water - sechiba 
    1264      !------------------- 
     1241     !--------------------------- 
     1242     ! Water-hydrology - sechiba 
     1243     !--------------------------- 
    12651244     ! 
    12661245     CALL getin('WMAX_VEG',wmax_veg) 
    1267      CALL getin("HYDROL_HUMCSTE", humcste) 
    1268      ! humcste is called in slowproc.f90 (problem with the flag) 
     1246     CALL getin('HYDROL_HUMCSTE', humcste) 
     1247     CALL getin('PERCENT_TROUGHFALL_PFT',throughfall_by_pft) 
    12691248     !------------------ 
    12701249     ! Albedo - sechiba 
Note: See TracChangeset for help on using the changeset viewer.