Changeset 327

Timestamp:

2011-07-18T11:45:35+02:00 (13 years ago)

Author:

didier.solyga

Message:

Delete unuseful control_flags argument in stom_define_history because of revision 326

File:

• branches/ORCHIDEE_EXT/ORCHIDEE_OL/teststomate.f90 (modified) (2 diffs)

branches/ORCHIDEE_EXT/ORCHIDEE_OL/teststomate.f90

@@ -57 +57 @@
 !!$ >>  DS
 !!$ >> Add for correct 1.9.5.1 version 01/07/2011
-  TYPE(control_type), SAVE                  :: control_flags 
+!  TYPE(control_type), SAVE                  :: control_flags 
   REAL(r_std),DIMENSION(:),ALLOCATABLE      :: fco2_lu 
 !!$>> DS
@@ -520 +520 @@
  & dt_files, hist_dt_stom, hori_id, hist_PFTaxis_id, &
  & hist_pool_10axis_id, hist_pool_100axis_id, &
- & hist_pool_11axis_id, hist_pool_101axis_id,control_flags)
+ & hist_pool_11axis_id, hist_pool_101axis_id)
 ! end definition
   CALL histend(hist_id_sto)