- Timestamp:
- 2011-09-01T15:54:17+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/ORCHIDEE_EXT/ORCHIDEE_OL/teststomate.f90
r429 r434 21 21 USE slowproc 22 22 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 24 24 USE parallel 25 25 !- … … 83 83 !!$ >> DS for the externalized version 84 84 REAL(r_std),ALLOCATABLE,DIMENSION(:) :: hist_PFTaxis 85 ! Flag impos_param : it is set to true by default86 LOGICAL, SAVE :: impose_param = .TRUE.87 85 !!$ >> DS 88 86 REAL(r_std),DIMENSION(10) :: hist_pool_10axis
Note: See TracChangeset
for help on using the changeset viewer.