Changeset 433 for branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba/hydrolc.f90

Timestamp:

2011-09-01T15:52:59+02:00 (13 years ago)

Author:

didier.solyga

Message:

Set impose_param as a public variable in intersurf. Clean some commented code in both hydrologt modules. Define the euler constant as EXP(1.)

File:

• branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba/hydrolc.f90 (modified) (2 diffs)

branches/ORCHIDEE_EXT/ORCHIDEE/src_sechiba/hydrolc.f90

@@ -447 +447 @@
     ENDIF
 
-    ! >> july 2011 add initialisation of sneige and throughfall_by_pft
+    ! >> DS : july 2011 add initialisation of sneige and throughfall_by_pft
     sneige = snowcri/mille
     throughfall_by_pft = throughfall_by_pft / 100.   
@@ -1450 +1450 @@
     INTEGER(i_std)                                :: ji, jv
     REAL(r_std), DIMENSION (kjpindex,nvm)          :: zqsintvegnew
-!!$    LOGICAL, SAVE                                  :: firstcall=.TRUE.
-!!$
-!!$    IF ( firstcall ) THEN
-!!$
-!!$       throughfall_by_pft = throughfall_by_pft / 100.
-!!$
-!!$       firstcall=.FALSE.
-!!$    ENDIF
 
     ! calcul de qsintmax a prevoir a chaque pas de temps