Changes between Version 1 and Version 2 of DevelopmentActivities/MergeHydro/flag_couple_note


Ignore:
Timestamp:
10/13/11 14:36:37 (10 years ago)
Author:
nvuilsce
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • DevelopmentActivities/MergeHydro/flag_couple_note

    v1 v2  
    1010La version à modifier est la version d'origine (1.9 ou 1.9.4) 
    1111 
    12  * dans condveg.f90  
    13   * Traitement de alb_bare_model 
     12 * Traitement de alb_bare_model 
     13  * dans condveg.f90  
    1414   * On remplace  
    15 {{{ 
     15   {{{ 
    1616      alb_bare_model=.FALSE. 
    17        CALL getin_p('ALB_BARE_MODEL', alb_bare_model) 
    18 }}} 
     17      CALL getin_p('ALB_BARE_MODEL', alb_bare_model) 
     18   }}} 
    1919   par 
    2020   {{{ 
     
    3232   }}} 
    3333 
    34  * dans hydrolc.f90  
    35   * Traitement de rsol 
    36  
     34 * Traitement de rsol 
     35  * dans hydrolc.f90  
    3736   * On remplace dans hydrolc_var_init 
    38 {{{ 
     37   {{{ 
    3938    ! 
    4039    ! Compute the resistance to bare soil evaporation 
     
    5352       ENDIF 
    5453    ENDDO 
    55 }}} 
    56 par 
    57 {{{ 
     54   }}} 
     55   par 
     56   {{{ 
    5857    ! Declaration d'une variable du module en tete de module 
    5958    LOGICAL, SAVE                                     ::  couple = .FALSE. 
     
    8180       ENDIF    
    8281    ENDDO 
    83 }}} 
     82   }}} 
    8483 
    8584 
    8685   * On remplace dans hydrolc_soil 
    87 {{{ 
     86   {{{ 
    8887    ! The fraction of visibly dry soil (dry when dss(:,1) = 0.1 m) 
    8988    ! Correction Nathalie - le 28 Mars 2006 - re-ecriture drysoil_frac/hdry - Fred Hourdin 
     
    104103       ENDIF 
    105104    ENDDO 
    106 }}} 
    107 par 
    108 {{{ 
     105   }}} 
     106   par 
     107   {{{ 
    109108    ! Nouvelle Declaration locale 
    110109    REAL(r_std), DIMENSION (kjpindex) :: frsoil  
     
    130129       ENDIF 
    131130    ENDDO 
    132 }}} 
    133  
    134   * Traitement de throughfall (pour calcul de precisol et qsintveg) 
    135  
    136    * On remplace dans hydrolc_canop 
    137 {{{ 
     131   }}} 
     132 
     133 * Traitement de throughfall (pour calcul de precisol et qsintveg) 
     134  * On remplace dans hydrolc_canop 
     135  {{{ 
    138136    IF ( firstcall ) THEN 
    139137       !Config  Key  = PERCENT_THROUGHFALL_PFT 
     
    149147       firstcall=.FALSE. 
    150148    ENDIF 
    151 }}} 
    152    par  
    153 {{{ 
     149  }}} 
     150  par  
     151  {{{ 
    154152    IF ( firstcall ) THEN 
    155153       !Config  Key  = PERCENT_THROUGHFALL_PFT 
     
    170168       firstcall=.FALSE. 
    171169    ENDIF 
    172 }}} 
    173  
    174   * Traitement de humrel 
    175  
    176    * On remplace dans hydrolc_soil 
    177 {{{ 
     170  }}} 
     171 
     172 * Traitement de humrel 
     173  * On remplace dans hydrolc_soil 
     174  {{{ 
    178175            ELSE 
    179176               ! Corrections Nathalie - le 28 Mars 2006 - sur conseils Fred Hourdin 
     
    194191               ! 
    195192            ENDIF 
    196 }}} 
    197 par 
    198 {{{  
     193  }}} 
     194  par 
     195  {{{  
    199196           ELSE 
    200197           IF(couple) 
     
    210207           ENDIF 
    211208             ENDIF 
    212 }}} 
     209  }}} 
    213210 
    214211