Changeset 434


Ignore:
Timestamp:
2011-09-01T15:54:17+02:00 (13 years ago)
Author:
didier.solyga
Message:

Delete impose_param because teststomate will use impose_param defined in intersurf

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/ORCHIDEE_EXT/ORCHIDEE_OL/teststomate.f90

    r429 r434  
    2121  USE slowproc 
    2222  USE stomate 
    23   USE intersurf, ONLY: stom_define_history, stom_ipcc_define_history, intsurf_time, l_first_intersurf, check_time 
     23  USE intersurf, ONLY: stom_define_history, stom_ipcc_define_history, intsurf_time, l_first_intersurf, check_time,impose_param 
    2424  USE parallel 
    2525!- 
    … …  
    8383!!$ >>  DS for the externalized version 
    8484  REAL(r_std),ALLOCATABLE,DIMENSION(:) :: hist_PFTaxis 
    85   ! Flag impos_param : it is set to true by default 
    86   LOGICAL, SAVE :: impose_param = .TRUE. 
    8785!!$ >>  DS 
    8886  REAL(r_std),DIMENSION(10)         :: hist_pool_10axis      
Note: See TracChangeset for help on using the changeset viewer.