Changeset 285 for branches/ORCHIDEE_EXT/ORCHIDEE_OL/teststomate.f90
- Timestamp:
- 2011-07-01T14:29:29+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/ORCHIDEE_EXT/ORCHIDEE_OL/teststomate.f90
r272 r285 56 56 REAL(r_std),DIMENSION(:),ALLOCATABLE :: hist_PFTaxis 57 57 !!$ >> DS 58 !!$ >> Add for correct 1.9.5.1 version 01/07/2011 59 TYPE(control_type), SAVE :: control_flags 60 REAL(r_std),DIMENSION(:),ALLOCATABLE :: fco2_lu 61 !!$>> DS 58 62 59 63 … … 192 196 ALLOCATE (hist_PFTaxis(nvm),stat=ier) 193 197 a_er = a_er .OR. (ier.NE.0) 198 ! 01/07/2011 allocate fco2_lu 199 ALLOCATE (fco2_lu(kjpindex),stat=ier) 200 a_er = a_er .OR. (ier.NE.0) 194 201 !!$ end add DS 195 202 ALLOCATE (indices(kjpindex),stat=ier) … … 509 516 & dt_files, hist_dt_stom, hori_id, hist_PFTaxis_id, & 510 517 & hist_pool_10axis_id, hist_pool_100axis_id, & 511 & hist_pool_11axis_id, hist_pool_101axis_id )518 & hist_pool_11axis_id, hist_pool_101axis_id,control_flags) 512 519 ! end definition 513 520 CALL histend(hist_id_sto) … … 557 564 & deadleaf_cover, assim_param_x, lai_x, height_x, veget_x, & 558 565 & frac_nobio, veget_max_x, totfrac_nobio, qsintmax_x, & 559 & rest_id_sec, hist_id_sec, hist_id_sec2, rest_id_sto, hist_id_sto, hist_id_stom_IPCC, co2_flux) 566 & rest_id_sec, hist_id_sec, hist_id_sec2, rest_id_sto, hist_id_sto, hist_id_stom_IPCC, co2_flux, & 567 !!>> DS add 01/07/2011 correction due to some modifications in the trunk 568 & fco2_lu) 560 569 ! correct date 561 570 day_counter = one_day - dt_force … … 809 818 & deadleaf_cover, assim_param_x, lai_x, height_x, veget_x, & 810 819 & frac_nobio, veget_max_x, totfrac_nobio, qsintmax_x, & 811 & rest_id_sec, hist_id_sec, hist_id_sec2, rest_id_sto, hist_id_sto, hist_id_stom_IPCC, co2_flux) 820 & rest_id_sec, hist_id_sec, hist_id_sec2, rest_id_sto, hist_id_sto, hist_id_stom_IPCC, co2_flux, & 821 !!>> DS add 01/07/2011 correction due to some modifications in the trunk 822 & fco2_lu) 812 823 day_counter = one_day - dt_force 813 824 ENDDO ! end of the time loop … … 882 893 & deadleaf_cover, assim_param_x, lai_x, height_x, veget_x, & 883 894 & frac_nobio, veget_max_x, totfrac_nobio, qsintmax_x, & 884 & rest_id_sec, hist_id_sec, hist_id_sec2, rest_id_sto, hist_id_sto, hist_id_stom_IPCC, co2_flux) 895 & rest_id_sec, hist_id_sec, hist_id_sec2, rest_id_sto, hist_id_sto, hist_id_stom_IPCC, co2_flux, & 896 !!>> DS add 01/07/2011 correction due to some modifications in the trunk 897 & fco2_lu) 898 885 899 !- 886 900 ! close files
Note: See TracChangeset
for help on using the changeset viewer.