Changes between Version 2 and Version 3 of DevelopmentActivities/MergeHydro/flag_couple_note
- Timestamp:
- 2011-10-13T14:45:39+02:00 (13 years ago)
Legend:
- Unmodified
- Added
- Removed
- Modified
-
DevelopmentActivities/MergeHydro/flag_couple_note
v2 v3 11 11 12 12 * Traitement de alb_bare_model 13 * dans condveg.f90 14 * On remplace 15 {{{ 13 * dans condveg.f90, on remplace 14 {{{ 16 15 alb_bare_model=.FALSE. 17 16 CALL getin_p('ALB_BARE_MODEL', alb_bare_model) 18 19 20 17 }}} 18 par 19 {{{ 21 20 ! Declaration d'une variable du module en tete de module 22 21 LOGICAL, SAVE :: couple = .FALSE. … … 30 29 ENDIF 31 30 CALL getin_p('ALB_BARE_MODEL', alb_bare_model) 32 31 }}} 33 32 34 33 * 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 {{{ 38 36 ! 39 37 ! Compute the resistance to bare soil evaporation … … 52 50 ENDIF 53 51 ENDDO 54 55 56 52 }}} 53 par 54 {{{ 57 55 ! Declaration d'une variable du module en tete de module 58 56 LOGICAL, SAVE :: couple = .FALSE. … … 80 78 ENDIF 81 79 ENDDO 82 }}} 83 84 85 * On remplace dans hydrolc_soil 86 {{{ 80 }}} 81 * On remplace dans hydrolc_soil (hydrolc.f90) 82 {{{ 87 83 ! The fraction of visibly dry soil (dry when dss(:,1) = 0.1 m) 88 84 ! Correction Nathalie - le 28 Mars 2006 - re-ecriture drysoil_frac/hdry - Fred Hourdin … … 103 99 ENDIF 104 100 ENDDO 105 106 107 101 }}} 102 par 103 {{{ 108 104 ! Nouvelle Declaration locale 109 105 REAL(r_std), DIMENSION (kjpindex) :: frsoil … … 129 125 ENDIF 130 126 ENDDO 131 127 }}} 132 128 133 129 * Traitement de throughfall (pour calcul de precisol et qsintveg) 134 * On remplace dans hydrolc_canop 130 * On remplace dans hydrolc_canop (hydrolc.f90) 135 131 {{{ 136 132 IF ( firstcall ) THEN … … 171 167 172 168 * Traitement de humrel 173 * On remplace dans hydrolc_soil 169 * On remplace dans hydrolc_soil (hydrolc.f90) 174 170 {{{ 175 171 ELSE