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


Ignore:
Timestamp:
10/13/11 14:45:39 (10 years ago)
Author:
nvuilsce
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • DevelopmentActivities/MergeHydro/flag_couple_note

    v2 v3  
    1111 
    1212 * Traitement de alb_bare_model 
    13   * dans condveg.f90  
    14    * On remplace  
    15    {{{ 
     13  * dans condveg.f90, on remplace  
     14  {{{ 
    1615      alb_bare_model=.FALSE. 
    1716      CALL getin_p('ALB_BARE_MODEL', alb_bare_model) 
    18    }}} 
    19    par 
    20    {{{ 
     17  }}} 
     18  par 
     19  {{{ 
    2120      ! Declaration d'une variable du module en tete de module 
    2221      LOGICAL, SAVE                         :: couple = .FALSE. 
     
    3029       ENDIF 
    3130       CALL getin_p('ALB_BARE_MODEL', alb_bare_model) 
    32    }}} 
     31  }}} 
    3332 
    3433 * Traitement de rsol 
    35   * dans hydrolc.f90  
    36    * On remplace dans hydrolc_var_init 
    37    {{{ 
     34  * On remplace dans hydrolc_var_init (hydrolc.f90)  
     35  {{{ 
    3836    ! 
    3937    ! Compute the resistance to bare soil evaporation 
     
    5250       ENDIF 
    5351    ENDDO 
    54    }}} 
    55    par 
    56    {{{ 
     52  }}} 
     53  par 
     54  {{{ 
    5755    ! Declaration d'une variable du module en tete de module 
    5856    LOGICAL, SAVE                                     ::  couple = .FALSE. 
     
    8078       ENDIF    
    8179    ENDDO 
    82    }}} 
    83  
    84  
    85    * On remplace dans hydrolc_soil 
    86    {{{ 
     80  }}} 
     81  * On remplace dans hydrolc_soil (hydrolc.f90) 
     82  {{{ 
    8783    ! The fraction of visibly dry soil (dry when dss(:,1) = 0.1 m) 
    8884    ! Correction Nathalie - le 28 Mars 2006 - re-ecriture drysoil_frac/hdry - Fred Hourdin 
     
    10399       ENDIF 
    104100    ENDDO 
    105    }}} 
    106    par 
    107    {{{ 
     101  }}} 
     102  par 
     103  {{{ 
    108104    ! Nouvelle Declaration locale 
    109105    REAL(r_std), DIMENSION (kjpindex) :: frsoil  
     
    129125       ENDIF 
    130126    ENDDO 
    131    }}} 
     127  }}} 
    132128 
    133129 * Traitement de throughfall (pour calcul de precisol et qsintveg) 
    134   * On remplace dans hydrolc_canop 
     130  * On remplace dans hydrolc_canop (hydrolc.f90) 
    135131  {{{ 
    136132    IF ( firstcall ) THEN 
     
    171167 
    172168 * Traitement de humrel 
    173   * On remplace dans hydrolc_soil 
     169  * On remplace dans hydrolc_soil (hydrolc.f90) 
    174170  {{{ 
    175171            ELSE