Changes between Version 1 and Version 2 of DevelopmentActivities/MergeHydro/flag_couple_note
- Timestamp:
- 2011-10-13T14:36:37+02:00 (13 years ago)
Legend:
- Unmodified
- Added
- Removed
- Modified
-
DevelopmentActivities/MergeHydro/flag_couple_note
v1 v2 10 10 La version à modifier est la version d'origine (1.9 ou 1.9.4) 11 11 12 * dans condveg.f9013 * Traitement de alb_bare_model12 * Traitement de alb_bare_model 13 * dans condveg.f90 14 14 * On remplace 15 {{{15 {{{ 16 16 alb_bare_model=.FALSE. 17 18 }}}17 CALL getin_p('ALB_BARE_MODEL', alb_bare_model) 18 }}} 19 19 par 20 20 {{{ … … 32 32 }}} 33 33 34 * dans hydrolc.f90 35 * Traitement de rsol 36 34 * Traitement de rsol 35 * dans hydrolc.f90 37 36 * On remplace dans hydrolc_var_init 38 {{{37 {{{ 39 38 ! 40 39 ! Compute the resistance to bare soil evaporation … … 53 52 ENDIF 54 53 ENDDO 55 }}}56 par57 {{{54 }}} 55 par 56 {{{ 58 57 ! Declaration d'une variable du module en tete de module 59 58 LOGICAL, SAVE :: couple = .FALSE. … … 81 80 ENDIF 82 81 ENDDO 83 }}}82 }}} 84 83 85 84 86 85 * On remplace dans hydrolc_soil 87 {{{86 {{{ 88 87 ! The fraction of visibly dry soil (dry when dss(:,1) = 0.1 m) 89 88 ! Correction Nathalie - le 28 Mars 2006 - re-ecriture drysoil_frac/hdry - Fred Hourdin … … 104 103 ENDIF 105 104 ENDDO 106 }}}107 par108 {{{105 }}} 106 par 107 {{{ 109 108 ! Nouvelle Declaration locale 110 109 REAL(r_std), DIMENSION (kjpindex) :: frsoil … … 130 129 ENDIF 131 130 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 {{{ 138 136 IF ( firstcall ) THEN 139 137 !Config Key = PERCENT_THROUGHFALL_PFT … … 149 147 firstcall=.FALSE. 150 148 ENDIF 151 }}}152 153 {{{149 }}} 150 par 151 {{{ 154 152 IF ( firstcall ) THEN 155 153 !Config Key = PERCENT_THROUGHFALL_PFT … … 170 168 firstcall=.FALSE. 171 169 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 {{{ 178 175 ELSE 179 176 ! Corrections Nathalie - le 28 Mars 2006 - sur conseils Fred Hourdin … … 194 191 ! 195 192 ENDIF 196 }}}197 par198 {{{193 }}} 194 par 195 {{{ 199 196 ELSE 200 197 IF(couple) … … 210 207 ENDIF 211 208 ENDIF 212 }}}209 }}} 213 210 214 211