Changeset 251 for branches/ORCHIDEE_EXT/ORCHIDEE/src_parameters/constantes.f90

Timestamp:

2011-05-27T12:12:50+02:00 (13 years ago)

Author:

didier.solyga

Message:

Move pipe_tune_exp_coeff in getin_stomate_parameters (this parameter is used even if dgvm is not activated, in stomate prescribe)

File:

• branches/ORCHIDEE_EXT/ORCHIDEE/src_parameters/constantes.f90 (modified) (2 diffs)

branches/ORCHIDEE_EXT/ORCHIDEE/src_parameters/constantes.f90

@@ -1163 +1163 @@
        CALL getin('Z_NITROGEN',z_nitrogen)
        !-
+       CALL getin('PIPE_TUNE_EXP_COEFF',pipe_tune_exp_coeff)
        CALL getin('PIPE_TUNE1',pipe_tune1)
        CALL getin('PIPE_TUNE2',pipe_tune2)   
@@ -1328 +1329 @@
     IF(first_call) THEN
 
-          CALL getin('PIPE_TUNE_EXP_COEFF',pipe_tune_exp_coeff)
-          !
           CALL getin('ESTABLISH_SCAL_FACT',establish_scal_fact)
           CALL getin('FPC_CRIT_MAX',fpc_crit_max)