Context Navigation

← Previous Revision
Next Revision →
Blame
Revision Log

ioipslctrl.f90

Last change on this file was 6849, checked in by yidi.xu, 4 years ago
ORCHIDEE-MICT-OP for oil palm growth modelling
File size: 346.7 KB

Line
1	! ================================================================================================================================
2	! MODULE : ioipslctrl
3	!
4	! CONTACT : orchidee-help _at_ listes.ipsl.fr
5	!
6	! LICENCE : IPSL (2006)
7	! This software is governed by the CeCILL licence see ORCHIDEE/ORCHIDEE_CeCILL.LIC
8	!
9	!>\BRIEF This module contains subroutine for initialisation of IOIPSL history files and restart files
10	!!
11	!!\n DESCRIPTION: This module contains subroutine for initialisation of IOIPSL history files and restart files. The subroutines
12	!! ioipslctrl_history, ioipslctrl_histstom, ioipslctrl_histstomipcc, ioipslctrl_restini where previously stored in
13	!! intersurf module.
14	!!
15	!! RECENT CHANGE(S):
16	!!
17	!! REFERENCE(S) : None
18	!!
19	!! SVN :
20	!! $HeadURL: svn://forge.ipsl.jussieu.fr/orchidee/trunk/ORCHIDEE/src_sechiba/ioipslctrl.f90 $
21	!! $Date: 2015-02-19 18:42:48 +0100 (jeu. 19 fÃ©vr. 2015) $
22	!! $Revision: 2548 $
23	!! \n
24	!_ ================================================================================================================================
25
26	MODULE ioipslctrl
27
28	USE IOIPSL
29	USE ioipsl_para
30	USE defprec
31	USE constantes
32	USE time, ONLY : one_day, dt_sechiba
33	USE constantes_soil
34	USE pft_parameters
35	USE thermosoilc, ONLY : thermosoilc_levels
36	USE grid
37	USE stomate_wet_ch4, ONLY : stomate_wet_ch4_histdef
38
39	USE topmodel
40
41	IMPLICIT NONE
42
43
44	LOGICAL, SAVE :: ok_histsync !! Flag activate syncronization of IOIPSL output
45	!$OMP THREADPRIVATE(ok_histsync)
46	REAL(r_std), SAVE :: dw !! Frequency of history write (sec.)
47	!$OMP THREADPRIVATE(dw)
48	INTEGER(i_std),PARAMETER :: max_hist_level = 11 !!
49
50	PRIVATE
51	PUBLIC :: ioipslctrl_history, ioipslctrl_histstom, ioipslctrl_histstomipcc, ioipslctrl_restini
52	PUBLIC :: dw, max_hist_level, ok_histsync
53
54	CONTAINS
55
56	!! ================================================================================================================================
57	!! SUBROUTINE : ioipslctrl_history
58	!!
59	!>\BRIEF This subroutine initialize the IOIPSL output files
60	!!
61	!! DESCRIPTION : This subroutine initialize the IOIPSL output files sechiab_history.nc and sechiba_out_2.nc. It also calls the
62	!! the subroutines ioipslctrl_histstom and ioipslctrl_histstomipcc for initialization of the IOIPSL stomate output files.
63	!! This subroutine was previously called intsurf_history and located in module intersurf.
64	!!
65	!! RECENT CHANGE(S): None
66	!!
67	!! \n
68	!_ ================================================================================================================================
69	SUBROUTINE ioipslctrl_history(iim, jjm, lon, lat, kindex, kjpindex, istp_old, date0, dt, hist_id, hist2_id, &
70	hist_id_stom, hist_id_stom_IPCC)
71
72	USE mod_orchidee_para
73	!
74	! This subroutine initialized the history files for the land-surface scheme
75	!
76	IMPLICIT NONE
77
78	INTEGER(i_std), INTENT(in) :: iim, jjm !! Size in x and y of the data to be handeled
79	REAL(r_std),DIMENSION (iim,jjm), INTENT(in) :: lon, lat !! Longitude and latitude of the data points
80	INTEGER(i_std),INTENT (in) :: kjpindex
81	INTEGER(i_std),DIMENSION (kjpindex), INTENT (in) :: kindex
82
83	INTEGER(i_std), INTENT(in) :: istp_old !! Time step counter
84	REAL(r_std), INTENT(in) :: date0 !! Julian day at which istp=0
85	REAL(r_std), INTENT(in) :: dt !! Time step of the counter in seconds
86
87	INTEGER(i_std), INTENT(out) :: hist_id !! History file identification for SECHIBA
88	INTEGER(i_std), INTENT(out) :: hist2_id !! History file 2 identification for SECHIBA (Hi-frequency ?)
89	!! History file identification for STOMATE and IPCC
90	INTEGER(i_std), INTENT(out) :: hist_id_stom, hist_id_stom_IPCC
91	!
92	! LOCAL
93	!
94	CHARACTER(LEN=80) :: histname,histname2 !! Name of history files for SECHIBA
95	CHARACTER(LEN=80) :: stom_histname, stom_ipcc_histname !! Name of history files for STOMATE
96	LOGICAL :: ok_histfile2 !! Flag to switch on histfile 2 for SECHIBA
97	REAL(r_std) :: dw2 !! frequency of history write (sec.)
98	CHARACTER(LEN=30) :: flux_op !! Operations to be performed on fluxes
99	CHARACTER(LEN=40) :: flux_insec, flux_scinsec !! Operation in seconds
100	INTEGER(i_std) :: hist_level, hist2_level !! history output level (default is 10 => maximum output)
101	CHARACTER(LEN=40),DIMENSION(max_hist_level) :: &
102	& ave, avecels, avescatter, fluxop, &
103	& fluxop_scinsec, tmincels, tmaxcels, once, sumscatter, tmax !! The various operation to be performed
104	CHARACTER(LEN=40),DIMENSION(max_hist_level) :: &
105	& ave2, avecels2, avescatter2, fluxop2, &
106	& fluxop_scinsec2, tmincels2, tmaxcels2, once2, sumscatter2 !! The various operation to be performed
107	CHARACTER(LEN=80) :: global_attribute !! for writing attributes in the output files
108	INTEGER(i_std) :: i, jst
109	! SECHIBA AXIS
110	INTEGER(i_std) :: hori_id !! ID of the default horizontal longitude and latitude map.
111	INTEGER(i_std) :: vegax_id, laiax_id, laiax0_id, solax_id, soltax_id, nobioax_id !! ID's for two vertical coordinates
112	INTEGER(i_std) :: soildiagax_id !! ID for diagnostic soil levels
113	INTEGER(i_std) :: solayax_id !! ID for the vertical axis of the CWRR hydrology
114	INTEGER(i_std) :: hori_id2 !! ID of the default horizontal longitude and latitude map.
115	INTEGER(i_std) :: vegax_id2, laiax_id2, solax_id2, soltax_id2, nobioax_id2, albax_id2 !! ID's for two vertical coordinates
116	INTEGER(i_std) :: solayax_id2 !! ID for the vertical axis of the CWRR hydrology
117	INTEGER(i_std) :: snowax_id !! ID for snow level axis
118
119	! STOMATE AXIS
120	INTEGER(i_std) :: hist_PFTaxis_id
121	! deforestation
122	INTEGER(i_std) :: hist_pool_10axis_id
123	INTEGER(i_std) :: hist_pool_100axis_id
124	INTEGER(i_std) :: hist_pool_11axis_id
125	INTEGER(i_std) :: hist_pool_101axis_id
126	! STOMATE IPCC AXIS
127	INTEGER(i_std) :: hist_IPCC_PFTaxis_id
128	!
129	INTEGER(i_std) :: hist_stomate_deepsoil
130	INTEGER(i_std) :: hist_stomate_snow
131	!! yidi
132	INTEGER(i_std) :: hist_stomate_phytomer
133	REAL(r_std),DIMENSION(nphs) :: phylev !! phytomer axis
134	!! yidi
135	CHARACTER(LEN=10) :: part_str !! string suffix indicating an index
136	REAL(r_std),DIMENSION(nsnow) :: snowlev !! snow axis
137	REAL(r_std),DIMENSION(ngrnd) :: sol_coef
138
139	LOGICAL :: rectilinear
140	INTEGER(i_std) :: ier,jv
141	REAL(r_std), ALLOCATABLE, DIMENSION(:) :: lon_rect, lat_rect
142	!
143	REAL(r_std),DIMENSION(nvm) :: veg
144	REAL(r_std),DIMENSION(nlai+1):: indlai
145	REAL(r_std),DIMENSION(nlai):: indlai0
146	REAL(r_std),DIMENSION(ngrnd) :: sol
147	REAL(r_std),DIMENSION(nstm) :: soltyp
148	REAL(r_std),DIMENSION(nnobio):: nobiotyp
149	REAL(r_std),DIMENSION(2) :: albtyp
150	REAL(r_std),DIMENSION(nslm) :: solay
151	!
152	CHARACTER(LEN=80) :: var_name !! To store variables names
153	!
154	! STOMATE history file
155	REAL(r_std) :: hist_days_stom !!- GK time step in days for this history file
156	REAL(r_std) :: hist_dt_stom !!- GK time step in seconds for this history file
157	REAL(r_std) :: dt_stomate_loc !! for test : time step of slow processes and STOMATE
158	REAL(r_std),DIMENSION(nvm) :: hist_PFTaxis !!- GK An axis we need for the history files
159	!
160	REAL(r_std),DIMENSION(10) :: hist_pool_10axis !! Deforestation axis
161	REAL(r_std),DIMENSION(100) :: hist_pool_100axis !! Deforestation axis
162	REAL(r_std),DIMENSION(11) :: hist_pool_11axis !! Deforestation axis
163	REAL(r_std),DIMENSION(101) :: hist_pool_101axis !! Deforestation axis
164	!
165	! IPCC history file
166	REAL(r_std) :: hist_days_stom_ipcc !!- GK time step in days for this history file
167	REAL(r_std) :: hist_dt_stom_ipcc !!- GK time step in seconds for this history file
168	!
169	!
170	!=====================================================================
171	!- 3.0 Setting up the history files
172	!=====================================================================
173	!- 3.1 SECHIBA
174	!=====================================================================
175	!Config Key = ALMA_OUTPUT
176	!Config Desc = Should the output follow the ALMA convention
177	!Config If = OK_SECHIBA
178	!Config Def = n
179	!Config Help = If this logical flag is set to true the model
180	!Config will output all its data according to the ALMA
181	!Config convention. It is the recommended way to write
182	!Config data out of ORCHIDEE.
183	!Config Units = [FLAG]
184	CALL getin_p('ALMA_OUTPUT', almaoutput)
185	IF (printlev>=2) WRITE(numout,*) 'ALMA_OUTPUT', almaoutput
186	!-
187	!Config Key = OUTPUT_FILE
188	!Config Desc = Name of file in which the output is going to be written
189	!Config If = OK_SECHIBA
190	!Config Def = sechiba_history.nc
191	!Config Help = This file is going to be created by the model
192	!Config and will contain the output from the model.
193	!Config This file is a truly COADS compliant netCDF file.
194	!Config It will be generated by the hist software from
195	!Config the IOIPSL package.
196	!Config Units = [FILE]
197	!-
198	histname='sechiba_history.nc'
199	CALL getin_p('OUTPUT_FILE', histname)
200	IF (printlev>=2) WRITE(numout,*) 'OUTPUT_FILE', histname
201	!-
202	!Config Key = WRITE_STEP
203	!Config Desc = Frequency in seconds for sechiba_history.nc file with IOIPSL
204	!Config If = OK_SECHIBA, NOT XIOS_ORCHIDEE_OK
205	!Config Def = one_day
206	!Config Help = This variables gives the frequency in the output
207	!Config file sechiba_history.nc if using IOIPSL.
208	!Config This variable is not read if XIOS is activated.
209	!Config Units = [seconds]
210	!-
211	dw = one_day
212	IF (xios_orchidee_ok) THEN
213	dw=0
214	IF (printlev>=2) WRITE(numout,*) 'All IOIPSL output are deactivated because this run uses XIOS'
215	ELSE
216	CALL getin_p('WRITE_STEP', dw)
217	IF ( dw == 0 .AND. printlev>=1) WRITE(numout,*) 'sechiba_history file will not be created'
218	END IF
219
220	veg(1:nvm) = (/ (REAL(i,r_std),i=1,nvm) /)
221	indlai(1:nlai+1) = (/ (REAL(i,r_std),i=1,nlai+1) /)
222	indlai0(1:nlai) = (/ (REAL(i,r_std),i=1,nlai) /)
223	soltyp(1:nstm) = (/ (REAL(i,r_std),i=1,nstm) /)
224	nobiotyp(1:nnobio) = (/ (REAL(i,r_std),i=1,nnobio) /)
225	albtyp(1:2) = (/ (REAL(i,r_std),i=1,2) /)
226	solay(1:nslm) = (/ (REAL(i,r_std),i=1,nslm) /)
227	snowlev = (/ (REAL(i,r_std),i=1,nsnow) /)
228	!! yidi
229	phylev = (/ (REAL(i,r_std),i=1,nphs) /)
230	!! yidi
231	! Get the vertical soil levels for the thermal scheme
232	IF (hydrol_cwrr) THEN
233	sol(1:ngrnd) = znt(:)
234	ELSE
235	sol(1:ngrnd) = thermosoilc_levels()
236	END IF
237
238	!
239	!- We need to flux averaging operation as when the data is written
240	!- from within SECHIBA a scatter is needed. In the driver on the other
241	!- hand the data is 2D and can be written is it is.
242	!-
243	WRITE(flux_op,'("ave(scatter(X*",F8.1,"))")') one_day/dt
244	! WRITE(flux_op,'("(ave(scatter(X))*",F8.1,")")') one_day/dt
245	! WRITE(flux_sc,'("ave(X*",F8.1,")")') one_day/dt
246	! WRITE(flux_insec,'("ave(X*",F8.6,")")') un/dt
247	! WRITE(flux_insec,'("ave(X*",F12.10,")")') un/dt
248	WRITE(flux_scinsec,'("ave(scatter(X*",F12.10,"))")') un/dt
249	IF (printlev>=2) WRITE(numout,*) 'flux_op=',flux_op,' one_day/dt=', one_day/dt, ' dt=',dt,' dw=', dw
250	!-
251	!Config Key = SECHIBA_HISTLEVEL
252	!Config Desc = SECHIBA history output level (0..10)
253	!Config If = OK_SECHIBA and HF
254	!Config Def = 5
255	!Config Help = Chooses the list of variables in the history file.
256	!Config Values between 0: nothing is written; 10: everything is
257	!Config written are available More details can be found on the web under documentation.
258	!Config Units = [-]
259	!-
260	hist_level = 5
261	CALL getin_p('SECHIBA_HISTLEVEL', hist_level)
262	!-
263	IF (printlev>=2) WRITE(numout,*) 'SECHIBA history level: ',hist_level
264	IF ( (hist_level > max_hist_level).OR.(hist_level < 0) ) THEN
265	STOP 'This history level is not allowed'
266	ENDIF
267	!-
268	!- define operations as a function of history level.
269	!- Above hist_level, operation='never'
270	!-
271	ave(1:max_hist_level) = 'ave(scatter(X))'
272	IF (hist_level < max_hist_level) THEN
273	ave(hist_level+1:max_hist_level) = 'never'
274	ENDIF
275	sumscatter(1:max_hist_level) = 't_sum(scatter(X))'
276	IF (hist_level < max_hist_level) THEN
277	sumscatter(hist_level+1:max_hist_level) = 'never'
278	ENDIF
279
280	avecels(1:max_hist_level) = 'ave(cels(scatter(X)))'
281	IF (hist_level < max_hist_level) THEN
282	avecels(hist_level+1:max_hist_level) = 'never'
283	ENDIF
284
285	avescatter(1:max_hist_level) = 'ave(scatter(X))'
286	IF (hist_level < max_hist_level) THEN
287	avescatter(hist_level+1:max_hist_level) = 'never'
288	ENDIF
289	tmincels(1:max_hist_level) = 't_min(cels(scatter(X)))'
290	IF (hist_level < max_hist_level) THEN
291	tmincels(hist_level+1:max_hist_level) = 'never'
292	ENDIF
293	tmaxcels(1:max_hist_level) = 't_max(cels(scatter(X)))'
294	IF (hist_level < max_hist_level) THEN
295	tmaxcels(hist_level+1:max_hist_level) = 'never'
296	ENDIF
297	!!!!! for crops
298	! add for nlev, ndrp, etc
299	tmax(1:max_hist_level) = 't_max(scatter(X))'
300	IF (hist_level < max_hist_level) THEN
301	tmax(hist_level+1:max_hist_level) = 'never'
302	ENDIF
303	!!!!! xuhui
304
305	fluxop(1:max_hist_level) = flux_op
306	IF (hist_level < max_hist_level) THEN
307	fluxop(hist_level+1:max_hist_level) = 'never'
308	ENDIF
309
310	fluxop_scinsec(1:max_hist_level) = flux_scinsec
311	IF (hist_level < max_hist_level) THEN
312	fluxop_scinsec(hist_level+1:max_hist_level) = 'never'
313	ENDIF
314	once(1:max_hist_level) = 'once(scatter(X))'
315	IF (hist_level < max_hist_level) THEN
316	once(hist_level+1:max_hist_level) = 'never'
317	ENDIF
318
319
320	!- Initialize sechiba_history output file
321	!-
322	IF ( dw == 0 ) THEN
323	! sechiba_history file will not be created.
324	hist_id = -1
325
326	ELSE
327	! sechiba_history file will be created
328
329	! If running in parallel (mpi_size>1), test if there are at least 2 latitude bands(jj_nb) for current MPI process.
330	! The model can work with 1 latitude band but the rebuild fails. Therefor exit if this is the cas.
331	IF ( jj_nb < 2 .AND. mpi_size > 1) THEN
332	CALL ipslerr_p(3,"ioipslctrl_history","The current MPI process has jj_nb=1 (1 band of latitude) but", &
333	"the IOIPSL rebuild tool can not work if jj_nb is less than 2 per MPI process.", &
334	"Change to a lower number of MPI processors or make the region bigger in latitudes.")
335	END IF
336
337	!- Calculation necessary for initialization of sechiba_history file
338	!- Check if we have by any change a rectilinear grid. This would allow us to
339	!- simplify the output files.
340	IF (is_omp_root) THEN
341	!
342	IF ( GridType == "RegLonLat" ) THEN
343	ALLOCATE(lon_rect(iim),stat=ier)
344	IF (ier .NE. 0) THEN
345	WRITE (numout,*) ' error in lon_rect allocation. We stop. We need iim words = ',iim
346	STOP 'intersurf_history'
347	ENDIF
348	ALLOCATE(lat_rect(jjm),stat=ier)
349	IF (ier .NE. 0) THEN
350	WRITE (numout,*) ' error in lat_rect allocation. We stop. We need jjm words = ',jjm
351	STOP 'intersurf_history'
352	ENDIF
353	lon_rect(:) = lon(:,1)
354	lat_rect(:) = lat(1,:)
355	ENDIF
356	!-
357	!-
358	!-
359	! Initialize sechiba_history file
360	IF ( .NOT. almaoutput ) THEN
361	!-
362	IF ( GridType == "RegLonLat" ) THEN
363	#ifdef CPP_PARA
364	CALL histbeg(histname, iim, lon_rect, jjm, lat_rect, 1, iim, 1, jjm, &
365	& istp_old, date0, dt, hori_id, hist_id,orch_domain_id)
366	#else
367	CALL histbeg(histname, iim, lon_rect, jjm, lat_rect, 1, iim, 1, jjm, &
368	& istp_old, date0, dt, hori_id, hist_id)
369	#endif
370	IF (printlev >= 2) WRITE(numout,*) 'HISTBEG --->',istp_old,date0,dt,dw,hist_id
371	ELSE
372	#ifdef CPP_PARA
373	CALL histbeg(histname, iim, lon, jjm, lat, 1, iim, 1, jjm, &
374	& istp_old, date0, dt, hori_id, hist_id,domain_id=orch_domain_id)
375	#else
376	CALL histbeg(histname, iim, lon, jjm, lat, 1, iim, 1, jjm, &
377	& istp_old, date0, dt, hori_id, hist_id)
378	#endif
379	ENDIF
380	!-
381	CALL histvert(hist_id, 'veget', 'Vegetation types', '1', &
382	& nvm, veg, vegax_id)
383	CALL histvert(hist_id, 'laiax0', 'Nb LAI - 1 layer', 'm', &
384	& nlai,indlai0, laiax0_id)
385	CALL histvert(hist_id, 'laiax', 'Nb LAI', 'm', &
386	& nlai+1,indlai, laiax_id)
387	CALL histvert(hist_id, 'solth', 'Soil levels', 'm', &
388	& ngrnd, sol, solax_id)
389	CALL histvert(hist_id, 'soiltyp', 'Soil types', '1', &
390	& nstm, soltyp, soltax_id)
391	CALL histvert(hist_id, 'nobio', 'Other surface types', '1', &
392	& nnobio, nobiotyp, nobioax_id)
393	IF ( hydrol_cwrr ) THEN
394	CALL histvert(hist_id, 'solay', 'Hydrol soil levels', 'm', &
395	& nslm, diaglev(1:nslm), solayax_id)
396	CALL histvert(hist_id, 'soildiag', 'Diagnostic soil levels', 'm', &
397	& nslm, diaglev(1:nslm), soildiagax_id)
398	ENDIF
399
400	CALL histvert(hist_id, 'snowlev', 'Snow levels', 'm', &
401	& nsnow, snowlev, snowax_id)
402	!-
403	!- SECHIBA_HISTLEVEL = 1
404	!-
405	CALL histdef(hist_id, 'evap', 'Evaporation', 'mm/d', &
406	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop(1), dt,dw)
407	CALL histdef(hist_id, 'coastalflow', 'Diffuse coastal flow', 'm^3/s', &
408	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop_scinsec(1), dt,dw)
409	CALL histdef(hist_id, 'riverflow', 'River flow to the oceans', 'm^3/s', &
410	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop_scinsec(1), dt,dw)
411	CALL histdef(hist_id, 'temp_sol', 'Surface Temperature', 'C', &
412	& iim,jjm, hori_id, 1,1,1, -99, 32, avecels(1), dt,dw)
413	CALL histdef(hist_id, 'temp_sol_pft', 'Surface Temperature pft', 'C', &
414	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(1), dt,dw)
415	CALL histdef(hist_id, 'rain', 'Rainfall', 'mm/d', &
416	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop(1), dt,dw)
417	CALL histdef(hist_id, 'snowf', 'Snowfall', 'mm/d', &
418	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop(1), dt,dw)
419	CALL histdef(hist_id, 'netrad', 'Net radiation', 'W/m^2', &
420	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
421	CALL histdef(hist_id, 'lai', 'Leaf Area Index', '1', &
422	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(1), dt,dw)
423	!
424	IF ( hydrol_cwrr ) THEN
425	CALL histdef(hist_id, 'reinf_slope', 'Slope index for each grid box', '1', &
426	& iim,jjm, hori_id, 1,1,1, -99, 32, once(1), dt,dw)
427	CALL histdef(hist_id, 'soilindex', 'Soil index', '1', &
428	& iim,jjm, hori_id, 1, 1, 1, -99, 32, once(1), dt,dw)
429	ENDIF
430	!
431	IF ( river_routing ) THEN
432	CALL histdef(hist_id, 'basinmap', 'Aproximate map of the river basins', ' ', &
433	& iim,jjm, hori_id, 1,1,1, -99, 32, once(1), dt,dw)
434	CALL histdef(hist_id, 'nbrivers', 'Number or rivers in the outflow grid box', ' ', &
435	& iim,jjm, hori_id, 1,1,1, -99, 32, once(1), dt,dw)
436	ENDIF
437	!-
438	!- SECHIBA_HISTLEVEL = 2
439	!-
440	CALL histdef(hist_id, 'subli', 'Sublimation', 'mm/d', &
441	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop(2), dt,dw)
442	CALL histdef(hist_id, 'evapnu', 'Bare soil evaporation', 'mm/d', &
443	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop(2), dt,dw)
444	CALL histdef(hist_id, 'runoff', 'Surface runoff', 'mm/d', &
445	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop(2), dt,dw)
446	CALL histdef(hist_id, 'drainage', 'Deep drainage', 'mm/d', &
447	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop(2), dt,dw)
448	IF ( river_routing ) THEN
449	CALL histdef(hist_id, 'riversret', 'Return from endorheic rivers', 'mm/d', &
450	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop(2), dt,dw)
451	CALL histdef(hist_id, 'hydrographs', 'Hydrographs of gridbox outflow', 'm^3/s', &
452	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop_scinsec(2), dt,dw)
453	ENDIF
454
455
456	!!!!! crop variables
457	CALL histdef(hist_id, 'tcult', 'crop temperature', 'degree', &
458	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(10), dt,dw)
459
460	CALL histdef(hist_id, 'udevair', 'udev calculated by Tair', '1', &
461	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(10), dt,dw)
462
463	CALL histdef(hist_id, 'udevcult', 'udev calculated by tcult', '1', &
464	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(10), dt,dw)
465
466	CALL histdef(hist_id, 'turfac', 'soil water stress for leaf growth', '1', &
467	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(10), dt,dw)
468
469	CALL histdef(hist_id, 'swfac', 'water stress for RUE', '1', &
470	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(10), dt,dw)
471
472	CALL histdef(hist_id, 'senfac', 'soil water stress for leaf senescence', '1', &
473	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(10), dt,dw)
474	CALL histdef(hist_id, 'shumrel', 'soil moisture around sowing depth', '1', &
475	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(10), dt,dw)
476
477	CALL histdef(hist_id, 'nlev', 'date for leaf emerge', '1', &
478	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, tmax(2), dt,dw)
479
480	CALL histdef(hist_id, 'nflo', 'date for flowering', '1', &
481	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, tmax(2), dt,dw)
482
483	CALL histdef(hist_id, 'ndrp', 'date for grain filling', '1', &
484	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, tmax(2), dt,dw)
485
486	CALL histdef(hist_id, 'nrec', 'date for harvesting', '1', &
487	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, tmax(2), dt,dw)
488
489	CALL histdef(hist_id, 'nmat', 'date for physiological mature', '1', &
490	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, tmax(2), dt,dw)
491
492	CALL histdef(hist_id, 'irrig_fin', 'final application of irrigation', 'mm', &
493	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, fluxop(1), dt,dw)
494
495	CALL histdef(hist_id, 'roughheight_pft', 'Effect roughness height pft', 'm', &
496	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(3), dt,dw)
497	!!!!!! end crop variables, xuhui
498
499	IF ( hydrol_cwrr ) THEN
500	CALL histdef(hist_id, 'evapnu_soil', 'Bare soil evap for soil type', 'mm/d', &
501	& iim,jjm, hori_id, nstm, 1, nstm, soltax_id, 32, fluxop(2), dt,dw)
502	CALL histdef(hist_id, 'precip_soil', 'Precip for soil type', 'mm/d', &
503	& iim,jjm, hori_id, nstm, 1, nstm, soltax_id, 32, fluxop(2), dt,dw)
504	CALL histdef(hist_id, 'drainage_soil', 'Drainage for soil type', 'mm/d', &
505	& iim,jjm, hori_id, nstm, 1, nstm, soltax_id, 32, fluxop(2), dt,dw)
506	CALL histdef(hist_id, 'transpir_soil', 'Transpir for soil type', 'mm/d', &
507	& iim,jjm, hori_id, nstm, 1, nstm, soltax_id, 32, fluxop(2), dt,dw)
508	CALL histdef(hist_id, 'runoff_soil', 'Runoff for soil type', 'mm/d', &
509	& iim,jjm, hori_id, nstm, 1, nstm, soltax_id, 32, fluxop(2), dt,dw)
510	ENDIF
511	!
512	CALL histdef(hist_id, 'tair', 'Air Temperature', 'K', &
513	& iim,jjm, hori_id, 1,1,1, -99, 32, ave(2), dt,dw)
514	CALL histdef(hist_id, 'qair', 'Air humidity', 'g/g', &
515	& iim,jjm, hori_id, 1,1,1, -99, 32, ave(2), dt,dw)
516	CALL histdef(hist_id, 'q2m', '2m Air humidity', 'g/g', &
517	& iim,jjm, hori_id, 1,1,1, -99, 32, ave(2), dt,dw)
518	CALL histdef(hist_id, 't2m', '2m Air Temperature', 'K', &
519	& iim,jjm, hori_id, 1,1,1, -99, 32, ave(2), dt,dw)
520	CALL histdef(hist_id, 'alb_vis', 'Albedo visible', '1', &
521	& iim,jjm, hori_id, 1,1,1, -99, 32, ave(2), dt,dw)
522	CALL histdef(hist_id, 'alb_nir', 'Albedo near infrared', '1', &
523	& iim,jjm, hori_id, 1,1,1, -99, 32, ave(2), dt,dw)
524	CALL histdef(hist_id, 'soilalb_vis', 'Soil Albedo visible', '1', &
525	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(2), dt,dw)
526	CALL histdef(hist_id, 'soilalb_nir', 'Soil Albedo near infrared', '1', &
527	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(2), dt,dw)
528	CALL histdef(hist_id, 'vegalb_vis', 'Vegetation Albedo visible', '1', &
529	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(2), dt,dw)
530	CALL histdef(hist_id, 'vegalb_nir', 'Vegetation Albedo near infrared', '1', &
531	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(2), dt,dw)
532	CALL histdef(hist_id, 'z0m', 'Surface roughness for momentum', 'm', &
533	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(2), dt,dw)
534	CALL histdef(hist_id, 'z0h', 'Surface roughness for heat', 'm', &
535	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(2), dt,dw)
536	CALL histdef(hist_id, 'roughheight', 'Effective roughness height', 'm', &
537	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(2), dt,dw)
538	CALL histdef(hist_id, 'transpir', 'Transpiration', 'mm/d', &
539	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, fluxop(2), dt,dw)
540	CALL histdef(hist_id, 'evapnu_pft', 'soil evaporation pft', 'mm/d', &
541	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, fluxop(2), dt,dw)
542	CALL histdef(hist_id, 'inter', 'Interception loss', 'mm/d', &
543	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, fluxop(2), dt,dw)
544	!-
545	!- SECHIBA_HISTLEVEL = 3
546	!-
547	CALL histdef(hist_id, 'tsol_max', 'Maximum Surface Temperature',&
548	& 'C', iim,jjm, hori_id, 1,1,1, -99, 32, tmaxcels(3), dt,dw)
549	CALL histdef(hist_id, 'tsol_min', 'Minimum Surface Temperature',&
550	& 'C', iim,jjm, hori_id, 1,1,1, -99, 32, tmincels(3), dt,dw)
551	CALL histdef(hist_id, 'fluxsens', 'Sensible Heat Flux', 'W/m^2', &
552	& iim,jjm, hori_id, 1,1,1, -99, 32, ave(3), dt,dw)
553	CALL histdef(hist_id, 'fluxlat', 'Latent Heat Flux', 'W/m^2', &
554	& iim,jjm, hori_id, 1,1,1, -99, 32, ave(3), dt,dw)
555	CALL histdef(hist_id, 'snow', 'Snow mass', 'kg/m^2', &
556	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(3), dt,dw)
557	CALL histdef(hist_id, 'snowage', 'Snow age', '?', &
558	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(3), dt,dw)
559	CALL histdef(hist_id, 'snownobio', 'Snow on other surfaces', 'kg/m^2', &
560	& iim,jjm, hori_id, nnobio,1, nnobio, nobioax_id, 32, avescatter(3), dt,dw)
561	CALL histdef(hist_id, 'snownobioage', 'Snow age on other surfaces', 'd', &
562	& iim,jjm, hori_id, nnobio,1, nnobio, nobioax_id, 32, avescatter(3), dt,dw)
563	CALL histdef(hist_id, 'vegetfrac', 'Fraction of vegetation', '1', &
564	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(3), dt,dw)
565	CALL histdef(hist_id, 'maxvegetfrac', 'Maximum fraction of vegetation', '1', &
566	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(3), dt,dw)
567	CALL histdef(hist_id, 'tot_bare_soil', "Total Bare Soil Fraction", "%", &
568	& iim,jjm, hori_id, 1, 1, 1, -99, 32, avescatter(3), dt,dw)
569	CALL histdef(hist_id, 'nobiofrac', 'Fraction of other surface types', '1', &
570	& iim,jjm, hori_id, nnobio, 1, nnobio, nobioax_id, 32, avescatter(3), dt,dw)
571	IF ( river_routing .AND. do_floodplains ) THEN
572	CALL histdef(hist_id, 'flood_frac', 'Flooded fraction', '1', &
573	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(3), dt,dw)
574	CALL histdef(hist_id, 'reinfiltration', 'Reinfiltration from floodplains', 'mm/d', &
575	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop(3), dt,dw)
576	ENDIF
577	IF ( hydrol_cwrr ) THEN
578	DO jst=1,nstm
579
580	! var_name= "mc_1" ... "mc_3"
581	WRITE (var_name,"('moistc_',i1)") jst
582	CALL histdef(hist_id, var_name, 'Soil Moisture profile for soil type', 'm3/m3', &
583	& iim,jjm, hori_id, nslm, 1, nslm, solayax_id, 32, avescatter(3), dt,dw)
584
585	! var_name= "vegetsoil_1" ... "vegetsoil_3"
586	WRITE (var_name,"('vegetsoil_',i1)") jst
587	CALL histdef(hist_id, var_name, 'Fraction of vegetation on soil types', '%', &
588	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(3), dt,dw)
589
590	! var_name= "kfact_root_1" ... "kfact_root_3"
591	WRITE (var_name,"('kfactroot_',i1)") jst
592	CALL histdef(hist_id, var_name, 'Root fraction profile for soil type', '%', &
593	& iim,jjm, hori_id, nslm, 1, nslm, solayax_id, 32, avescatter(3), dt,dw)
594
595	ENDDO
596
597	IF (ok_freeze_cwrr) THEN
598	CALL histdef(hist_id, 'profil_froz_hydro', 'Frozen fraction for each hydrological soil layer', '-', &
599	& iim,jjm, hori_id, nslm, 1, nslm, solayax_id, 32, avescatter(1), dt,dw)
600	CALL histdef(hist_id, 'temp_hydro', 'Soil temperature interpolated on hydrological layers', 'K', &
601	& iim,jjm, hori_id, nslm, 1, nslm, solayax_id, 32, avescatter(1), dt,dw)
602	END IF
603
604	CALL histdef(hist_id, 'kk_moy', 'Mean hydrological conductivity', 'mm/d', &
605	& iim,jjm,hori_id, nslm,1,nslm, solayax_id, 32, avescatter(1), dt,dw)
606	DO jst=1,nstm
607	WRITE (var_name,"('profil_froz_hydro_',i1)") jst
608	CALL histdef(hist_id, trim(var_name), 'Frozen fraction for each hydrological soil layer and soiltile', '-', &
609	& iim,jjm, hori_id, nslm, 1, nslm, solayax_id, 32, avescatter(1), dt,dw)
610	ENDDO
611
612	DO jv = 1, nvm
613	WRITE(part_str,'(I2)') jv
614	IF (jv < 10) part_str(1:1) = '0'
615	CALL histdef(hist_id,'shum_ngrnd_perma_'//part_str(1:LEN_TRIM(part_str)), 'Saturation degree on thethermal axes', '-', &
616	& iim,jjm, hori_id, ngrnd, 1, ngrnd, solax_id, 32, avescatter(6), dt,dw)
617	END DO
618
619	DO jv = 1, nvm
620	WRITE(part_str,'(I2)') jv
621	IF (jv < 10) part_str(1:1) = '0'
622	CALL histdef(hist_id,'shum_perma_long_'//part_str(1:LEN_TRIM(part_str)), &
623	& 'Long-term Saturation degree on the thermal axes', '-', &
624	& iim,jjm, hori_id, ngrnd, 1, ngrnd, solax_id, 32,avescatter(6), dt,dw)
625	END DO
626
627	DO jv = 1, nvm
628	WRITE(part_str,'(I2)') jv
629	IF (jv < 10) part_str(1:1) = '0'
630	CALL histdef(hist_id, 'wetdiag_'//part_str(1:LEN_TRIM(part_str)), 'Deep ground moisture', 'fraction', &
631	& iim,jjm, hori_id, ngrnd, 1, ngrnd, solax_id, 32, avescatter(6), dt,dw)
632	END DO
633
634	DO jv = 1, nvm
635	WRITE(part_str,'(I2)') jv
636	IF (jv < 10) part_str(1:1) = '0'
637	CALL histdef(hist_id, 'shum_ngrnd_prmlng_'//part_str(1:LEN_TRIM(part_str)), 'Long-term soil humidity', 'fraction', &
638	& iim,jjm, hori_id, ngrnd, 1, ngrnd, solax_id, 32, avescatter(6), dt,dw)
639	END DO
640
641	! CALL histdef(hist_id, 'wetdiag', 'Deep ground moisture',
642	! 'fraction', &
643	! & iim,jjm, hori_id, ngrnd, 1, ngrnd, solax_id, 32,
644	! avescatter(6), dt,dw)
645	!DO jv = 1, nvm
646	! WRITE(part_str,'(I2)') jv
647	! IF (jv < 10) part_str(1:1) = '0'
648	! CALL histdef(hist_id, 'wetdiaglong_'//part_str(1:LEN_TRIM(part_str)), 'Long-term deep ground moisture', 'fraction', &
649	! & iim,jjm, hori_id, ngrnd, 1, ngrnd, solax_id, 32, avescatter(6), dt,dw)
650	!END DO
651
652
653	CALL histdef(hist_id, 'shumdiag_perma', 'Saturation degree of the soil', '-', &
654	& iim,jjm,hori_id,nslm,1,nslm, soildiagax_id, 32, avescatter(1), dt,dw)
655	ENDIF
656	!
657	CALL histdef(hist_id, 'frac_bare', 'Bare soil fraction for each tile', '-', &
658	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(3), dt,dw)
659	CALL histdef(hist_id, 'soiltile', 'Fraction of soil tiles', '%', &
660	& iim,jjm, hori_id, nstm, 1, nstm, soltax_id, 32, avescatter(4), dt,dw)
661	!-
662	!- SECHIBA_HISTLEVEL = 4
663	!-
664	IF ( .NOT. hydrol_cwrr ) THEN
665	CALL histdef(hist_id, 'dss', 'Up-reservoir Height', 'm', &
666	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(4), dt,dw)
667	CALL histdef(hist_id, 'gqsb', 'Upper Soil Moisture', 'Kg/m^2', &
668	& iim,jjm, hori_id, 1, 1, 1, -99, 32, avescatter(4), dt,dw)
669	CALL histdef(hist_id, 'bqsb', 'Lower Soil Moisture', 'Kg/m^2', &
670	& iim,jjm, hori_id, 1, 1, 1, -99, 32, avescatter(4), dt,dw)
671	CALL histdef(hist_id, 'bqsb_pft', 'Lower Soil Moisture', 'Kg/m^2', &
672	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(4), dt,dw)
673	CALL histdef(hist_id, 'runoff_pft', 'runoff of each pft', 'Kg/m^2', &
674	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(4), dt,dw)
675
676	ELSE
677	CALL histdef(hist_id, 'humtot', 'Total Soil Moisture', 'Kg/m^2', &
678	& iim,jjm, hori_id, 1, 1, 1, -99, 32, avescatter(4), dt,dw)
679	CALL histdef(hist_id, 'humtot_soil', 'Soil Moisture for soil type', 'Kg/m^2', &
680	& iim,jjm, hori_id, nstm, 1, nstm, soltax_id, 32, avescatter(4), dt,dw)
681	!gmjc 6 layer soil moisture
682	CALL histdef(hist_id, 'tmc_trampling', '10cm Soil Moisture for soil type', 'Kg/m^2', &
683	& iim,jjm, hori_id, nstm, 1, nstm, soltax_id, 32, avescatter(4), dt,dw)
684	!end gmjc
685	CALL histdef(hist_id, 'njsc', 'Soil class used for hydrology', '-', &
686	& iim,jjm, hori_id, 1, 1, 1, -99, 32, once(4), dt,dw)
687
688	!pss:+
689	IF ( TOPM_calcul ) CALL topmodel_histdef(iim, jjm, dt, hist_id, &
690	hori_id, dw, avescatter, fluxop)
691
692	!!pss:-
693	ENDIF
694	CALL histdef(hist_id, 'qsintveg', 'Water on canopy', 'Kg/m^2', &
695	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(4), dt,dw)
696	CALL histdef(hist_id, 'rstruct', 'Structural resistance', 's/m', &
697	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(4), dt,dw)
698	IF ( ok_co2 ) THEN
699	CALL histdef(hist_id, 'gpp', 'Net assimilation of carbon by the vegetation', 'gC/m^2/s', &
700	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, fluxop_scinsec(4), dt,dw)
701	CALL histdef(hist_id, 'gpp_cl1', 'Net assimilation of carbon by the vegetation cl1', 'gC/m^2/s', &
702	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, fluxop_scinsec(4), dt,dw)
703	CALL histdef(hist_id, 'gpp_cl2', 'Net assimilation of carbon by the vegetation cl2', 'gC/m^2/s', &
704	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, fluxop_scinsec(4), dt,dw)
705	CALL histdef(hist_id, 'gpp_cl3', 'Net assimilation of carbon by the vegetation cl3', 'gC/m^2/s', &
706	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, fluxop_scinsec(4), dt,dw)
707	CALL histdef(hist_id, 'gpp_cl4', 'Net assimilation of carbon by the vegetation cl4', 'gC/m^2/s', &
708	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, fluxop_scinsec(4), dt,dw)
709	CALL histdef(hist_id, 'gpp_xc', 'Net assimilation of carbon by the vegetation xc', 'gC/m^2/s', &
710	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, fluxop_scinsec(4), dt,dw)
711	ENDIF
712	IF ( ok_stomate ) THEN
713	CALL histdef(hist_id, 'nee', 'Net Ecosystem Exchange', 'gC/m^2/s', &
714	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, fluxop_scinsec(4), dt,dw)
715	CALL histdef(hist_id, 'maint_resp', 'Maintenance respiration', 'gC/m^2/s', &
716	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, fluxop_scinsec(4), dt,dw)
717	CALL histdef(hist_id, 'hetero_resp', 'Heterotrophic respiration', 'gC/m^2/s', &
718	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, fluxop_scinsec(4), dt,dw)
719	CALL histdef(hist_id, 'growth_resp', 'Growth respiration', 'gC/m^2/s', &
720	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, fluxop_scinsec(4), dt,dw)
721	CALL histdef(hist_id, 'npp', 'Net Primary Production', 'gC/m^2/s', &
722	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, fluxop_scinsec(1), dt, dw)
723	ENDIF
724	CALL histdef(hist_id, 'precisol', 'Throughfall', 'mm/d', &
725	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, fluxop(4), dt,dw)
726	CALL histdef(hist_id, 'drysoil_frac', 'Fraction of visibly dry soil', '1', &
727	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(4), dt,dw)
728	CALL histdef(hist_id, 'evapot', 'Potential evaporation', 'mm/d', &
729	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop(4), dt,dw)
730	CALL histdef(hist_id, 'evapot_corr', 'Potential evaporation', 'mm/d', &
731	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop(4), dt,dw)
732	CALL histdef(hist_id, 'transpot', 'Potential transporation', 'mm/d', &
733	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, fluxop(4), dt,dw)
734	!-
735	!- SECHIBA_HISTLEVEL = 5
736	!-
737	CALL histdef(hist_id, 'swnet', 'Net solar radiation', 'W/m^2', &
738	& iim,jjm, hori_id, 1,1,1, -99, 32, ave(5), dt,dw)
739	CALL histdef(hist_id, 'swdown', 'Incident solar radiation', 'W/m^2', &
740	& iim,jjm, hori_id, 1,1,1, -99, 32, ave(5), dt,dw)
741	CALL histdef(hist_id, 'lwdown', 'Absorbed downward longwave radiation', 'W/m^2', &
742	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(5), dt,dw)
743	CALL histdef(hist_id, 'lwnet', 'Net surface longwave radiation', 'W/m^2', &
744	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(5), dt,dw)
745	!-
746	!- SECHIBA_HISTLEVEL = 6
747	!-
748	call histdef(hist_id, 'ptn_pftmean', 'Soil temperature, PFT-mean','K', &
749	& iim,jjm, hori_id, ngrnd, 1, ngrnd, solax_id, 32,avescatter(6), dt,dw)
750
751	DO jv = 1, nvm
752	IF (permafrost_veg_exists(jv)) THEN
753	WRITE(part_str,'(I2)') jv
754	IF (jv < 10) part_str(1:1) = '0'
755	CALL histdef(hist_id, 'ptn_'//part_str(1:LEN_TRIM(part_str)),'Soil temperature', 'K', &
756	& iim,jjm, hori_id, ngrnd, 1, ngrnd, solax_id, 32,avescatter(6), dt,dw)
757	END IF
758	ENDDO
759
760	CALL histdef(hist_id, 'snowmelt', 'snow melt', 'mm/d', &
761	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop(6), dt,dw)
762	CALL histdef(hist_id, 'frac_snow_veg', 'snow fraction on vegeted area','-', &
763	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(6), dt,dw)
764	CALL histdef(hist_id, 'frac_snow_nobio', 'snow fraction on non-vegeted area', '-', &
765	& iim,jjm, hori_id, nnobio, 1,nnobio, nobioax_id, 32, avescatter(6), dt,dw)
766	CALL histdef(hist_id, 'pgflux', 'extra energy used for melting top snow layer', '-', &
767	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(6), dt,dw)
768
769	CALL histdef(hist_id, 'soilflx_pft', 'Soil Heat Flux', 'W/m2', &
770	& iim,jjm, hori_id, nvm,1,nvm, vegax_id, 32, avescatter(3), dt,dw)
771	CALL histdef(hist_id, 'soilcap_pft', 'Soil Heat Capacit', 'J/m2/K', &
772	& iim,jjm, hori_id, nvm,1,nvm, vegax_id, 32, avescatter(3), dt,dw)
773	CALL histdef(hist_id, 'soilflx','Soil flux','W/m2', &
774	& iim,jjm, hori_id, 1, 1, 1, -99, 32,avescatter(3),dt,dw)
775	CALL histdef(hist_id, 'soilcap','Soil heat capacity','J/m2/K', &
776	& iim,jjm, hori_id, 1, 1, 1, -99, 32,avescatter(3),dt,dw)
777
778	IF (ok_explicitsnow) THEN
779	CALL histdef(hist_id, 'grndflux', 'ground heat flux', 'W/m2', &
780	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(6), dt,dw)
781	CALL histdef(hist_id, 'snowrho', 'Snow density profile', 'kg/m3', &
782	& iim,jjm, hori_id, nsnow, 1, nsnow, snowax_id, 32,avescatter(6), dt,dw)
783	CALL histdef(hist_id, 'snowtemp','Snow temperature profile','K', &
784	& iim,jjm, hori_id, nsnow, 1, nsnow, snowax_id, 32,avescatter(6),dt,dw)
785	CALL histdef(hist_id, 'snowdz','Snow depth profile','m', &
786	& iim,jjm, hori_id, nsnow, 1, nsnow, snowax_id, 32,avescatter(6),dt,dw)
787	CALL histdef(hist_id, 'snowliq','Snow liquid content profile','m', &
788	& iim,jjm, hori_id, nsnow, 1, nsnow, snowax_id, 32,avescatter(6),dt,dw)
789	CALL histdef(hist_id, 'snowgrain','Snow grain profile','m', &
790	& iim,jjm, hori_id, nsnow, 1, nsnow, snowax_id, 32,avescatter(6),dt,dw)
791	CALL histdef(hist_id, 'snowheat','Snow Heat profile','J/m2', &
792	& iim,jjm, hori_id, nsnow, 1, nsnow, snowax_id, 32,avescatter(6),dt,dw)
793	CALL histdef(hist_id, 'snowflx','Snow flux','W/m2', &
794	& iim,jjm, hori_id, 1, 1, 1, snowax_id, 32,avescatter(1),dt,dw)
795	CALL histdef(hist_id, 'snowcap','Snow capacity','W/m2', &
796	& iim,jjm, hori_id, 1, 1, 1, snowax_id, 32,avescatter(1),dt,dw)
797	CALL histdef(hist_id, 'temp_sol_add','surface temperature from fluxes','K', &
798	& iim,jjm, hori_id, 1, 1, 1, snowax_id, 32,avescatter(1),dt,dw)
799	CALL histdef(hist_id, 'cgrnd_snow','cgrnd for snow','-', &
800	& iim,jjm, hori_id, nsnow, 1, nsnow, snowax_id, 32,avescatter(1),dt,dw)
801	CALL histdef(hist_id, 'dgrnd_snow','dgrnd for snow','-', &
802	& iim,jjm, hori_id, nsnow, 1, nsnow, snowax_id, 32,avescatter(1),dt,dw)
803
804	END IF
805	CALL histdef(hist_id, 'Qg', 'Ground heat flux', 'W/m^2', &
806	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
807
808	IF (hydrol_cwrr .AND. ok_freeze_thermix) THEN
809	DO jv = 1, nvm
810	IF (permafrost_veg_exists(jv)) THEN
811	WRITE(part_str,'(I2)') jv
812	IF (jv < 10) part_str(1:1) = '0'
813	CALL histdef(hist_id, 'pcapa_'//part_str(1:LEN_TRIM(part_str)),'Apparent heat capacity', 'J/m3/K', &
814	& iim,jjm, hori_id, ngrnd, 1, ngrnd, solax_id, 32,avescatter(6), dt,dw)
815	CALL histdef(hist_id, 'pkappa_'//part_str(1:LEN_TRIM(part_str)),'Soil thermal conductivity', 'W/m/K', &
816	& iim,jjm, hori_id, ngrnd, 1, ngrnd, solax_id, 32,avescatter(6), dt,dw)
817	CALL histdef(hist_id, 'pcappa_supp_'//part_str(1:LEN_TRIM(part_str)), 'Additional heat capacity due to soil freezing for each soil layer', 'J/K', &
818	& iim,jjm,hori_id, ngrnd,1,ngrnd, solax_id, 32, avescatter(1), dt,dw)
819	CALL histdef(hist_id, 'ptn_beg_'//part_str(1:LEN_TRIM(part_str)), 'Soil temperature from previous time step', 'K', &
820	& iim,jjm,hori_id, ngrnd,1,ngrnd, solax_id, 32, avescatter(1), dt,dw)
821	END IF
822	END DO
823
824	ENDIF
825
826
827	!-
828	!- SECHIBA_HISTLEVEL = 7
829	!-
830	IF ( river_routing ) THEN
831	CALL histdef(hist_id, 'fastr', 'Fast flow reservoir', 'kg/m^2', &
832	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(7), dt,dw)
833	CALL histdef(hist_id, 'slowr', 'Slow flow reservoir', 'kg/m^2', &
834	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(7), dt,dw)
835	CALL histdef(hist_id, 'streamr', 'Stream flow reservoir', 'kg/m^2', &
836	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(7), dt,dw)
837	CALL histdef(hist_id, 'lakevol', 'Volume in lake reservoir', 'kg/m^2', &
838	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(7), dt,dw)
839
840	!-
841	!- SECHIBA_HISTLEVEL = 8
842	!-
843	CALL histdef(hist_id, 'pondr', 'Ponds reservoir', 'kg/m^2', &
844	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(8), dt,dw)
845	CALL histdef(hist_id, 'swampmap', 'Map of swamps', 'm^2', &
846	& iim,jjm, hori_id, 1,1,1, -99, 32, once(8), dt,dw)
847	!
848	IF ( do_irrigation ) THEN
849	CALL histdef(hist_id, 'irrigation', 'Net irrigation', 'mm/d', &
850	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop(8), dt,dw)
851	! CALL histdef(hist_id, 'netirrig', 'Net irrigation requirement', 'mm/d', &
852	! & iim,jjm, hori_id, 1,1,1, -99, 32, fluxop(8), dt,dw)
853	CALL histdef(hist_id, 'irrigmap', 'Map of irrigated surfaces', 'm^2', &
854	& iim,jjm, hori_id, 1,1,1, -99, 32, once(8), dt,dw)
855	ENDIF
856
857	IF ( river_routing .AND. do_floodplains ) THEN
858	CALL histdef(hist_id, 'floodmap', 'Map of floodplains', 'm^2', &
859	& iim,jjm, hori_id, 1,1,1, -99, 32, once(8), dt,dw)
860	CALL histdef(hist_id, 'floodh', 'Floodplains height', 'mm', &
861	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(8), dt,dw)
862	CALL histdef(hist_id, 'floodr', 'Floodplains reservoir', 'kg/m^2', &
863	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(8), dt,dw)
864	CALL histdef(hist_id, 'floodout', 'Flow out of floodplains', 'mm/d', &
865	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop(8), dt,dw)
866	CALL histdef(hist_id, 'evapflo', 'Floodplains evaporation', 'mm/d', &
867	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop(8), dt,dw)
868	ENDIF
869	!
870	ENDIF
871	! define irrigation regardless of river_routing and do_irrigation
872	CALL histdef(hist_id, 'irrigation', 'Net irrigation', 'mm/d', &
873	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop(1), dt,dw)
874
875	IF ( hydrol_cwrr ) THEN
876	CALL histdef(hist_id, 'k_litt', 'Litter cond', 'mm/d', &
877	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(8), dt,dw)
878	ENDIF
879	CALL histdef(hist_id, 'beta', 'Beta Function', '1', &
880	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(8), dt,dw)
881	CALL histdef(hist_id, 'raero', 'Aerodynamic resistance', 's/m', &
882	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(8), dt,dw)
883	! Ajouts Nathalie - Novembre 2006
884	CALL histdef(hist_id, 'cdrag', 'Drag coefficient for LE and SH', '?', &
885	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(8), dt,dw)
886	CALL histdef(hist_id, 'Wind', 'Wind speed', 'm/s', &
887	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(8), dt,dw)
888	! Fin ajouts Nathalie
889	!
890	CALL histdef(hist_id, 'qsatt' , 'Surface saturated humidity', 'g/g', &
891	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(8), dt,dw)
892	CALL histdef(hist_id, 'vbeta1', 'Beta for sublimation', '1', &
893	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(8), dt,dw)
894	CALL histdef(hist_id, 'vbeta4', 'Beta for bare soil', '1', &
895	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(8), dt,dw)
896	CALL histdef(hist_id, 'vbeta5', 'Beta for floodplains', '1', &
897	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(8), dt,dw)
898	IF ( ok_co2 ) THEN
899	CALL histdef(hist_id, 'gsmean', 'mean stomatal conductance', 'mol/m2/s', &
900	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(8), dt,dw)
901	ENDIF
902	CALL histdef(hist_id, 'humrel', 'Soil moisture stress', '-', &
903	& iim,jjm, hori_id, nvm,1,nvm, vegax_id, 32, avescatter(8), dt,dw)
904	CALL histdef(hist_id, 'vegstress', 'Vegetation growth stress', '-', &
905	& iim,jjm, hori_id, nvm,1,nvm, vegax_id, 32, avescatter(8), dt,dw)
906	CALL histdef(hist_id, 'soil_deficit', 'SoilWaterDefict to FillThr', 'mm', &
907	& iim,jjm, hori_id, nvm,1,nvm, vegax_id, 32, avescatter(8), dt,dw)
908	!-
909	!- SECHIBA_HISTLEVEL = 9
910	!-
911	!-
912	!- SECHIBA_HISTLEVEL = 10
913	!-
914	IF ( ok_co2 ) THEN
915	CALL histdef(hist_id, 'cimean', 'Stomatal CO2 concentation', 'mmole/m2/s', &
916	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(10), dt,dw)
917	CALL histdef(hist_id, 'cim', 'cim', 'ppm', &
918	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(10), dt,dw)
919	CALL histdef(hist_id, 'leafci', 'leaf ci', 'ppm', &
920	& iim,jjm, hori_id, nlai, 1, nlai, laiax0_id, 32, avescatter(10), dt,dw)
921	CALL histdef(hist_id, 'gs', 'gs', 'mol m-2 s-1', &
922	& iim,jjm, hori_id, nlai+1, 1, nlai+1, laiax_id, 32, avescatter(10), dt,dw)
923	CALL histdef(hist_id, 'assimi', 'assimi', 'mol m-2 s-1', &
924	& iim,jjm, hori_id, nlai+1, 1, nlai+1, laiax_id, 32, avescatter(10), dt,dw)
925	CALL histdef(hist_id, 'Rd', 'Rd', 'mol m-2 s-1', &
926	& iim,jjm, hori_id, nlai+1, 1, nlai+1, laiax_id, 32, avescatter(10), dt,dw)
927	CALL histdef(hist_id, 'Cc', 'Cc', 'ppm', &
928	& iim,jjm, hori_id, nlai+1, 1, nlai+1, laiax_id, 32, avescatter(10), dt,dw)
929	CALL histdef(hist_id, 'limitphoto', 'limitphoto', '-', &
930	& iim,jjm, hori_id, nlai+1, 1, nlai+1, laiax_id, 32, avescatter(10), dt,dw)
931	CALL histdef(hist_id, 'Vc', 'Vc', 'mol m-2 s-1', &
932	& iim,jjm, hori_id, nlai+1, 1, nlai+1, laiax_id, 32, avescatter(10), dt,dw)
933	CALL histdef(hist_id, 'Vj', 'Vj', 'mol e- m-2 s-1', &
934	& iim,jjm, hori_id, nlai+1, 1, nlai+1, laiax_id, 32, avescatter(10), dt,dw)
935	CALL histdef(hist_id, 'gm', 'gm', 'mol m-2 s-1', &
936	& iim, jjm, hori_id, 1, 1, 1, -99, 32, avescatter(10), dt,dw)
937	CALL histdef(hist_id, 'gammastar', 'gammastar', 'ppm', &
938	& iim, jjm, hori_id, 1, 1, 1, -99, 32, avescatter(10), dt,dw)
939	CALL histdef(hist_id, 'Kmo', 'Kmo', 'ppm', &
940	& iim, jjm, hori_id, 1, 1, 1, -99, 32, avescatter(10), dt,dw)
941	CALL histdef(hist_id, 'Kmc', 'Kmc', 'ppm', &
942	& iim, jjm, hori_id, 1, 1, 1, -99, 32, avescatter(10), dt,dw)
943	ENDIF
944	CALL histdef(hist_id, 'vbeta3', 'Beta for Transpiration', '1', &
945	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(10), dt,dw)
946	CALL histdef(hist_id, 'vbeta4_pft', 'Beta for bare soil evap', '1', &
947	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(10), dt,dw)
948	CALL histdef(hist_id, 'beta_pft', 'Beta for each pft', '1', &
949	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(8), dt,dw)
950	CALL histdef(hist_id, 'rveget', 'Canopy resistance', 's/m', &
951	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(10), dt,dw)
952	IF ( .NOT. hydrol_cwrr ) THEN
953	CALL histdef(hist_id, 'rsol', 'Soil resistance', 's/m', &
954	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(10), dt,dw)
955	ENDIF
956	CALL histdef(hist_id,'vbeta2','Beta for Interception loss','mm/d', &
957	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(10), dt,dw)
958	CALL histdef(hist_id,'cdrag_pft','Drag coeff for pft','?', &
959	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(3), dt,dw)
960	CALL histdef(hist_id, 'qsintmax', 'Maximum Interception capacity', 'Kg/m^2', &
961	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(10), dt,dw)
962
963	!- SECHIBA_HISTLEVEL = 11
964	!-
965
966	CALL histdef(hist_id, 'mrsos', "Moisture in Upper 0.1 m of Soil Column", "kg m-2", &
967	& iim,jjm, hori_id, 1, 1, 1, -99, 32, avescatter(11), dt,dw)
968
969	CALL histdef(hist_id, 'mrso', "Total Soil Moisture Content", "kg m-2", &
970	& iim,jjm, hori_id, 1, 1, 1, -99, 32, avescatter(11), dt,dw)
971
972	CALL histdef(hist_id, 'mrros', "Surface Runoff", "kg m-2 s-1", &
973	& iim,jjm, hori_id, 1, 1, 1, -99, 32, fluxop_scinsec(11), dt,dw)
974
975	CALL histdef(hist_id, 'mrro', "Total Runoff", "kg m-2 s-1", &
976	& iim,jjm, hori_id, 1, 1, 1, -99, 32, fluxop_scinsec(11), dt,dw)
977
978	CALL histdef(hist_id, 'prveg', "Precipitation onto Canopy", "kg m-2 s-1", &
979	& iim,jjm, hori_id, 1, 1, 1, -99, 32, fluxop_scinsec(11), dt,dw)
980
981
982	CALL histdef(hist_id, 'evspsblveg', "Evaporation from Canopy", "kg m-2 s-1", &
983	& iim,jjm, hori_id, 1, 1, 1, -99, 32, fluxop_scinsec(11), dt,dw)
984
985	CALL histdef(hist_id, 'evspsblsoi', "Water Evaporation from Soil", "kg m-2 s-1", &
986	& iim,jjm, hori_id, 1, 1, 1, -99, 32, fluxop_scinsec(11), dt,dw)
987
988	CALL histdef(hist_id, 'tran', "Transpiration", "kg m-2 s-1", &
989	& iim,jjm, hori_id, 1, 1, 1, -99, 32, fluxop_scinsec(11), dt,dw)
990
991	CALL histdef(hist_id, 'treeFrac', "Tree Cover Fraction", "%", &
992	& iim,jjm, hori_id, 1, 1, 1, -99, 32, avescatter(11), dt,dw)
993
994	CALL histdef(hist_id, 'grassFrac', "Natural Grass Fraction", "%", &
995	& iim,jjm, hori_id, 1, 1, 1, -99, 32, avescatter(11), dt,dw)
996
997	CALL histdef(hist_id, 'cropFrac', "Crop Fraction", "%", &
998	& iim,jjm, hori_id, 1, 1, 1, -99, 32, avescatter(11), dt,dw)
999
1000	CALL histdef(hist_id, 'baresoilFrac', "Bare Soil Fraction", "%", &
1001	& iim,jjm, hori_id, 1, 1, 1, -99, 32, avescatter(11), dt,dw)
1002
1003	CALL histdef(hist_id, 'residualFrac', &
1004	& "Fraction of Grid Cell that is Land but Neither Vegetation-Covered nor Bare Soil", "%", &
1005	& iim,jjm, hori_id, 1, 1, 1, -99, 32, avescatter(11), dt,dw)
1006
1007	IF ( ok_bvoc ) THEN
1008	CALL histdef(hist_id, 'PAR', 'PAR', 'umol phot/m^2/s', &
1009	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(11), dt,dw)
1010	IF ( ok_radcanopy ) THEN
1011	CALL histdef(hist_id, 'PARsun', 'Sunlit Leaf PAR', 'umol phot/m^2/s', &
1012	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1013	CALL histdef(hist_id, 'PARsh', 'Shaded Leaf Area PAR', 'umol phot/m^2/s', &
1014	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1015	CALL histdef(hist_id, 'laisun', 'Sunlit Leaf Area Index', '1', &
1016	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1017	CALL histdef(hist_id, 'laish', 'Shaded Leaf Area Index', '1', &
1018	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1019	CALL histdef(hist_id, 'Fdf', 'Fdf', '1', &
1020	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(11), dt,dw)
1021	IF ( ok_multilayer ) then
1022	CALL histdef(hist_id, 'PARsuntab', 'Sunlit Leaf PAR', 'umol phot/m^2/s', &
1023	& iim,jjm, hori_id, nlai+1, 1, nlai+1, laiax_id, 32, avescatter(11), dt,dw)
1024	CALL histdef(hist_id, 'PARshtab', 'Shaded Leaf Area PAR', 'umol phot/m^2/s', &
1025	& iim,jjm, hori_id, nlai+1, 1, nlai+1, laiax_id, 32, avescatter(11), dt,dw)
1026	ENDIF
1027	CALL histdef(hist_id, 'coszang', 'coszang', '1', &
1028	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(11), dt,dw)
1029	CALL histdef(hist_id, 'PARdf', 'PARdf', '1', &
1030	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(11), dt,dw)
1031	CALL histdef(hist_id, 'PARdr', 'PARdr', '1', &
1032	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(11), dt,dw)
1033	CALL histdef(hist_id, 'Trans', 'Trans', '1', &
1034	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(11), dt,dw)
1035	END IF
1036
1037	CALL histdef(hist_id, 'flx_fertil_no', 'flx_fertil_no', 'ngN/m^2/s', &
1038	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1039	CALL histdef(hist_id, 'CRF', 'CRF', '1', &
1040	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1041	CALL histdef(hist_id, 'flx_co2_bbg_year', 'flx_co2_bbg_year', 'kgC/m^2/yr ', &
1042	& iim,jjm, hori_id, 1,1,1, -99, 32, once(11), dt,dw)
1043	CALL histdef(hist_id, 'N_qt_WRICE_year', 'N_qt_WRICE_year', 'kgN/yr ', &
1044	& iim,jjm, hori_id, 1,1,1, -99, 32, once(11), dt,dw)
1045	CALL histdef(hist_id, 'N_qt_OTHER_year', 'N_qt_OTHER_year', 'kgN/yr ', &
1046	& iim,jjm, hori_id, 1,1,1, -99, 32, once(11), dt,dw)
1047	CALL histdef(hist_id, 'flx_iso', 'flx_iso', 'kgC/m^2/s', &
1048	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1049	CALL histdef(hist_id, 'flx_mono', 'flx_mono', 'kgC/m^2/s',&
1050	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1051	CALL histdef(hist_id, 'flx_apinen', 'flx_apinen', 'kgC/m^2/s',&
1052	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1053	CALL histdef(hist_id, 'flx_bpinen', 'flx_bpinen', 'kgC/m^2/s',&
1054	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1055	CALL histdef(hist_id, 'flx_limonen', 'flx_limonen', 'kgC/m^2/s',&
1056	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1057	CALL histdef(hist_id, 'flx_myrcen', 'flx_myrcen', 'kgC/m^2/s',&
1058	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1059	CALL histdef(hist_id, 'flx_sabinen', 'flx_sabinen', 'kgC/m^2/s',&
1060	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1061	CALL histdef(hist_id, 'flx_camphen', 'flx_camphen', 'kgC/m^2/s',&
1062	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1063	CALL histdef(hist_id, 'flx_3caren', 'flx_3caren', 'kgC/m^2/s',&
1064	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1065	CALL histdef(hist_id, 'flx_tbocimen', 'flx_tbocimen', 'kgC/m^2/s',&
1066	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1067	CALL histdef(hist_id, 'flx_othermono', 'flx_othermono', 'kgC/m^2/s',&
1068	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1069	CALL histdef(hist_id, 'flx_sesquiter', 'flx_sesquiter', 'kgC/m^2/s',&
1070	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1071	CALL histdef(hist_id, 'flx_ORVOC', 'flx_ORVOC', 'kgC/m^2/s',&
1072	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1073	CALL histdef(hist_id, 'flx_MBO', 'flx_MBO', 'kgC/m^2/s',&
1074	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1075	CALL histdef(hist_id, 'flx_methanol', 'flx_methanol', 'kgC/m^2/s',&
1076	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1077	CALL histdef(hist_id, 'flx_acetone', 'flx_acetone', 'kgC/m^2/s',&
1078	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1079	CALL histdef(hist_id, 'flx_acetal', 'flx_acetal', 'kgC/m^2/s',&
1080	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1081	CALL histdef(hist_id, 'flx_formal', 'flx_formal', 'kgC/m^2/s',&
1082	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1083	CALL histdef(hist_id, 'flx_acetic', 'flx_acetic', 'kgC/m^2/s',&
1084	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1085	CALL histdef(hist_id, 'flx_formic', 'flx_formic', 'kgC/m^2/s',&
1086	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1087	CALL histdef(hist_id, 'flx_no_soil', 'flx_no_soil', 'ngN/m^2/s',&
1088	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1089	CALL histdef(hist_id, 'flx_no', 'flx_no', 'ngN/m^2/s',&
1090	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(11), dt,dw)
1091	CALL histdef(hist_id, 'fco2', 'fco2', '-', &
1092	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(10), dt,dw)
1093	ENDIF
1094
1095	ELSE
1096	!-
1097	!- This is the ALMA convention output now
1098	!-
1099	!-
1100	IF ( GridType == "RegLonLat" ) THEN
1101	#ifdef CPP_PARA
1102	CALL histbeg(histname, iim, lon_rect, jjm, lat_rect, 1, iim, 1, jjm, &
1103	& istp_old, date0, dt, hori_id, hist_id,orch_domain_id)
1104	#else
1105	CALL histbeg(histname, iim, lon_rect, jjm, lat_rect, 1, iim, 1, jjm, &
1106	& istp_old, date0, dt, hori_id, hist_id)
1107	#endif
1108	ELSE
1109	#ifdef CPP_PARA
1110	CALL histbeg(histname, iim, lon, jjm, lat, 1, iim, 1, jjm, &
1111	& istp_old, date0, dt, hori_id, hist_id,domain_id=orch_domain_id)
1112	#else
1113	CALL histbeg(histname, iim, lon, jjm, lat, 1, iim, 1, jjm, &
1114	& istp_old, date0, dt, hori_id, hist_id)
1115	#endif
1116	ENDIF
1117	!-
1118	CALL histvert(hist_id, 'veget', 'Vegetation types', '1', &
1119	& nvm, veg, vegax_id)
1120	CALL histvert(hist_id, 'laiax0', 'Nb LAI - 1 layer', 'm', &
1121	& nlai,indlai0, laiax0_id)
1122	CALL histvert(hist_id, 'laiax', 'Nb LAI', 'm', &
1123	& nlai+1,indlai, laiax_id)
1124	CALL histvert(hist_id, 'solth', 'Soil levels', 'm', &
1125	& ngrnd, sol, solax_id)
1126	CALL histvert(hist_id, 'soiltyp', 'Soil types', '1', &
1127	& nstm, soltyp, soltax_id)
1128	CALL histvert(hist_id, 'nobio', 'Other surface types', '1', &
1129	& nnobio, nobiotyp, nobioax_id)
1130	IF ( hydrol_cwrr ) THEN
1131	CALL histvert(hist_id, 'solay', 'Hydrol soil levels', 'm', &
1132	& nslm, diaglev(1:nslm), solayax_id)
1133	ENDIF
1134	!-
1135	!- Vegetation
1136	!-
1137	CALL histdef(hist_id, 'vegetfrac', 'Fraction of vegetation', '1', &
1138	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(3), dt,dw)
1139	CALL histdef(hist_id, 'maxvegetfrac', 'Maximum fraction of vegetation', '1', &
1140	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(3), dt,dw)
1141	CALL histdef(hist_id, 'nobiofrac', 'Fraction of other surface types', '1', &
1142	& iim,jjm, hori_id, nnobio, 1, nnobio, nobioax_id, 32, avescatter(3), dt,dw)
1143	CALL histdef(hist_id, 'lai', 'Leaf Area Index', '1', &
1144	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(1), dt,dw)
1145	CALL histdef(hist_id, 'lai_cl1', 'Leaf Area Index cl1', '1', &
1146	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(1), dt,dw)
1147	CALL histdef(hist_id, 'lai_cl2', 'Leaf Area Index cl2', '1', &
1148	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(1), dt,dw)
1149	CALL histdef(hist_id, 'lai_cl3', 'Leaf Area Index cl3', '1', &
1150	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(1), dt,dw)
1151	CALL histdef(hist_id, 'lai_cl4', 'Leaf Area Index cl4', '1', &
1152	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(1), dt,dw)
1153	!-
1154	!- Forcing variables
1155	!-
1156	CALL histdef(hist_id, 'SinAng', 'Net shortwave radiation', '-', &
1157	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(9), dt,dw)
1158	CALL histdef(hist_id, 'LWdown', 'Downward longwave radiation', 'W/m^2', &
1159	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(9), dt,dw)
1160	CALL histdef(hist_id, 'SWdown', 'Downward shortwave radiation', 'W/m^2', &
1161	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(9), dt,dw)
1162	CALL histdef(hist_id, 'Tair', 'Near surface air temperature at forcing level', 'K', &
1163	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(2), dt,dw)
1164	CALL histdef(hist_id, 'Qair', 'Near surface specific humidity at forcing level', 'g/g', &
1165	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(2), dt,dw)
1166	CALL histdef(hist_id, 'SurfP', 'Surface Pressure', 'hPa', &
1167	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(9), dt,dw)
1168	CALL histdef(hist_id, 'Windu', 'Eastward wind', 'm/s', &
1169	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(9), dt,dw)
1170	CALL histdef(hist_id, 'Windv', 'Northward wind', 'm/s', &
1171	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(9), dt,dw)
1172	!-
1173	!- General energy balance
1174	!-
1175	CALL histdef(hist_id, 'SWnet', 'Net shortwave radiation', 'W/m^2', &
1176	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1177	CALL histdef(hist_id, 'LWnet', 'Net longwave radiation', 'W/m^2', &
1178	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1179	CALL histdef(hist_id, 'Qh', 'Sensible heat flux', 'W/m^2', &
1180	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1181	CALL histdef(hist_id, 'Qle', 'Latent heat flux', 'W/m^2', &
1182	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1183	CALL histdef(hist_id, 'Qg', 'Ground heat flux', 'W/m^2', &
1184	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1185	CALL histdef(hist_id, 'Qf', 'Energy of fusion', 'W/m^2', &
1186	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(2), dt,dw)
1187	CALL histdef(hist_id, 'Qv', 'Energy of sublimation', 'W/m^2', &
1188	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1189	CALL histdef(hist_id, 'DelSurfHeat', 'Change in surface layer heat', 'J/m^2', &
1190	& iim,jjm, hori_id, 1,1,1, -99, 32, sumscatter(1), dt,dw)
1191	CALL histdef(hist_id, 'DelColdCont', 'Change in snow surface layer cold content', 'J/m^2', &
1192	& iim,jjm, hori_id, 1,1,1, -99, 32, sumscatter(1), dt,dw)
1193	!-
1194	!- General water balance
1195	!-
1196	CALL histdef(hist_id, 'Snowf', 'Snowfall rate', 'kg/m^2/s', &
1197	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop_scinsec(1), dt,dw)
1198	CALL histdef(hist_id, 'Rainf', 'Rainfall rate', 'kg/m^2/s', &
1199	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop_scinsec(1), dt,dw)
1200	CALL histdef(hist_id, 'Evap', 'Total Evapotranspiration', 'kg/m^2/s', &
1201	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop_scinsec(1), dt,dw)
1202	CALL histdef(hist_id, 'Qs', 'Surface runoff', 'kg/m^2/s', &
1203	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop_scinsec(1), dt,dw)
1204	CALL histdef(hist_id, 'Qsb', 'Sub-surface runoff', 'kg/m^2/s', &
1205	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop_scinsec(1), dt,dw)
1206	CALL histdef(hist_id, 'Qrec', 'Recharge', 'kg/m^2/s', &
1207	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop_scinsec(1), dt,dw)
1208	CALL histdef(hist_id, 'Qsm', 'Snowmelt', 'kg/m^2/s', &
1209	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop_scinsec(1), dt,dw)
1210	CALL histdef(hist_id, 'DelSoilMoist', 'Change in soil moisture', 'kg/m^2', &
1211	& iim,jjm, hori_id, 1, 1, 1, -99, 32, sumscatter(1), dt,dw)
1212	CALL histdef(hist_id, 'DelSurfStor', 'Change in Surface Water Storage','kg/m^2',&
1213	& iim,jjm, hori_id, 1, 1, 1, -99, 32, sumscatter(1), dt,dw)
1214	CALL histdef(hist_id, 'DelIntercept', 'Change in interception storage', 'kg/m^2', &
1215	& iim,jjm, hori_id, 1, 1, 1, -99, 32, sumscatter(1), dt,dw)
1216	CALL histdef(hist_id, 'DelSWE', 'Change in Snow Water Equivalent', 'kg/m^2', &
1217	& iim,jjm, hori_id, 1, 1, 1, -99, 32, sumscatter(1), dt,dw)
1218	IF ( do_irrigation ) THEN
1219	CALL histdef(hist_id, 'Qirrig', 'Irrigation', 'kg/m^2/s', &
1220	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop_scinsec(1), dt,dw)
1221	CALL histdef(hist_id, 'Qirrig_req', 'Irrigation requirement', 'kg/m^2/s', &
1222	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop_scinsec(1), dt,dw)
1223	ENDIF
1224	!-
1225	!- Surface state
1226	!-
1227	CALL histdef(hist_id, 'AvgSurfT', 'Average surface temperature', 'K', &
1228	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1229	CALL histdef(hist_id, 'PotSurfT', 'Potential (Unstressed) surface temperature', 'K', &
1230	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1231	CALL histdef(hist_id, 'RadT', 'Surface radiative temperature', 'K', &
1232	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1233	CALL histdef(hist_id, 'Albedo', 'Albedo', '1', &
1234	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1235	CALL histdef(hist_id, 'SurfStor', 'Surface Water Storage','kg/m^2', &
1236	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1237	CALL histdef(hist_id, 'SWE', 'Snow Water Equivalent', 'kg/m^2', &
1238	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1239	CALL histdef(hist_id, 'InterceptVeg', 'Intercepted Water on Canopy', 'Kg/m^2', &
1240	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(1), dt,dw)
1241	!!-
1242	!- Sub-surface state
1243	!-
1244	IF ( .NOT. hydrol_cwrr ) THEN
1245	CALL histdef(hist_id, 'SoilMoist', '3D average layer soil moisture', 'kg/m^2', &
1246	& iim,jjm, hori_id, 1, 1, 1, -99, 32, avescatter(1), dt,dw)
1247	ELSE
1248	CALL histdef(hist_id, 'SoilMoist', '3D average layer soil moisture', 'kg/m^2', &
1249	& iim,jjm, hori_id, nslm, 1, nslm, solayax_id, 32, avescatter(1), dt,dw)
1250
1251	IF (ok_freeze_cwrr) THEN
1252	CALL histdef(hist_id, 'profil_froz_hydro', 'Frozen fraction for each hydrological soil layer', '-', &
1253	& iim,jjm, hori_id, nslm, 1, nslm,solayax_id, 32, avescatter(1), dt,dw)
1254	DO jst=1,nstm
1255	WRITE (var_name,"('profil_froz_hydro_',i1)") jst
1256	CALL histdef(hist_id, trim(var_name), 'Frozen fraction for each hydrological soil layer and soiltile', '-', &
1257	& iim,jjm, hori_id, nslm, 1, nslm, solayax_id, 32, avescatter(1), dt,dw)
1258	ENDDO
1259
1260	CALL histdef(hist_id, 'temp_hydro', 'Soil temperature interpolated on hydrological layers', 'K', &
1261	& iim,jjm, hori_id, nslm, 1, nslm, solayax_id, 32, avescatter(1), dt,dw)
1262	CALL histdef(hist_id, 'kk_moy', 'Mean hydrological conductivity', 'mm/d', &
1263	& iim,jjm,hori_id, nslm,1,nslm, solayax_id, 32, avescatter(1), dt,dw)
1264	ENDIF
1265	END IF
1266	CALL histdef(hist_id, 'SoilWet', 'Total soil wetness', '-', &
1267	& iim,jjm, hori_id, 1, 1, 1, -99, 32, avescatter(1), dt,dw)
1268	CALL histdef(hist_id, 'SoilTemp', 'Soil temperature profile', 'K', &
1269	& iim,jjm, hori_id, ngrnd, 1, ngrnd, solax_id, 32, avescatter(1), dt,dw)
1270	!-
1271	!- Evaporation components
1272	!-
1273	CALL histdef(hist_id, 'PotEvap', 'Potential evapotranspiration', 'kg/m^2/s', &
1274	& iim,jjm, hori_id, 1, 1, 1, -99, 32, fluxop_scinsec(1), dt,dw)
1275	CALL histdef(hist_id, 'PotEvapOld', 'Potential evapotranspiration old method', 'kg/m^2/s', &
1276	& iim,jjm, hori_id, 1, 1, 1, -99, 32, fluxop_scinsec(1), dt,dw)
1277	CALL histdef(hist_id, 'ECanop', 'Interception evaporation', 'kg/m^2/s', &
1278	& iim,jjm, hori_id, 1, 1, 1, -99, 32, fluxop_scinsec(1), dt,dw)
1279	CALL histdef(hist_id, 'TVeg', 'Transpiration', 'kg/m^2/s', &
1280	& iim,jjm, hori_id, 1, 1, 1, -99, 32, fluxop_scinsec(1), dt,dw)
1281	CALL histdef(hist_id, 'ESoil', 'Bare soil evaporation', 'kg/m^2/s', &
1282	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop_scinsec(1), dt,dw)
1283	CALL histdef(hist_id, 'EWater', 'Open water evaporation', 'kg/m^2/s', &
1284	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop_scinsec(1), dt,dw)
1285	CALL histdef(hist_id, 'RootMoist','Root zone soil water', 'kg/m^2', &
1286	& iim,jjm, hori_id, 1, 1, 1, -99, 32, avescatter(1), dt,dw)
1287	CALL histdef(hist_id, 'SubSnow','Snow sublimation','kg/m^2/s', &
1288	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop_scinsec(1), dt,dw)
1289	CALL histdef(hist_id, 'ACond', 'Aerodynamic conductance', 'm/s', &
1290	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1291	IF ( river_routing .AND. do_floodplains ) THEN
1292	CALL histdef(hist_id, 'Qflood', 'Floodplain Evaporation', 'kg/m^2/s', &
1293	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop_scinsec(1), dt,dw)
1294	ENDIF
1295	!-
1296	!- Surface turbulence
1297	!-
1298	CALL histdef(hist_id, 'Z0m', 'Roughness height for momentum', 'm', &
1299	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1300	CALL histdef(hist_id, 'Z0h', 'Roughness height for heat', 'm', &
1301	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1302	CALL histdef(hist_id, 'EffectHeight', 'Effective displacement height (h-d)', 'm', &
1303	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1304	!-
1305	!-
1306	!- Cold Season Processes
1307	!-
1308	CALL histdef(hist_id, 'SnowFrac', 'Snow cover fraction', '1', &
1309	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1310	CALL histdef(hist_id, 'SAlbedo', 'Snow albedo', '1', &
1311	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1312	CALL histdef(hist_id, 'SnowDepth', '3D snow depth', 'm', &
1313	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1314	!-
1315	!- Hydrologic variables
1316	!-
1317	IF ( river_routing ) THEN
1318	CALL histdef(hist_id, 'slowr', 'Slow flow reservoir', 'kg/m^2', &
1319	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1320	CALL histdef(hist_id, 'fastr', 'Fast flow reservoir', 'kg/m^2', &
1321	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1322	CALL histdef(hist_id, 'streamr', 'Stream flow reservoir', 'kg/m^2', &
1323	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1324	CALL histdef(hist_id, 'lakevol', 'Volume in lake reservoir', 'kg/m^2', &
1325	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1326	CALL histdef(hist_id, 'pondr', 'Ponds reservoir', 'kg/m^2', &
1327	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1328	!-
1329	!-
1330	!-
1331	CALL histdef(hist_id, 'SwampMap', 'Map of swamp areas', 'm^2', &
1332	& iim,jjm, hori_id, 1,1,1, -99, 32, once(1), dt,dw)
1333	CALL histdef(hist_id, 'Dis', 'Simulated River Discharge', 'm^3/s', &
1334	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop_scinsec(2), dt,dw)
1335	CALL histdef(hist_id, 'CoastalFlow', 'Diffuse coastal flow', 'm^3/s', &
1336	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop_scinsec(2), dt,dw)
1337	CALL histdef(hist_id, 'RiverFlow', 'River flow to the oceans', 'm^3/s', &
1338	& iim,jjm, hori_id, 1,1,1, -99, 32, fluxop_scinsec(2), dt,dw)
1339	IF ( do_irrigation ) THEN
1340	CALL histdef(hist_id, 'IrrigationMap', 'Map of irrigated areas', 'm^2', &
1341	& iim,jjm, hori_id, 1,1,1, -99, 32, once(1), dt,dw)
1342	ENDIF
1343	!
1344	!
1345	IF ( do_floodplains ) THEN
1346	CALL histdef(hist_id, 'FloodplainsMap', 'Map of flooded areas', 'm^2', &
1347	& iim,jjm, hori_id, 1,1,1, -99, 32, once(1), dt,dw)
1348	CALL histdef(hist_id, 'FloodFrac', 'Floodplain Fraction', '-', &
1349	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter(1), dt,dw)
1350	ENDIF
1351	ENDIF
1352	!-
1353	CALL histdef(hist_id, 'humrel', 'Soil moisture stress', '-', &
1354	& iim,jjm, hori_id, nvm,1,nvm, vegax_id, 32, avescatter(8), dt,dw)
1355	!-
1356	!- The carbon budget
1357	!-
1358	IF ( ok_co2 ) THEN
1359	CALL histdef(hist_id, 'cimean', 'Stomatal CO2 concentation', 'mmole/m2/s', &
1360	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(10), dt,dw)
1361	CALL histdef(hist_id, 'GPP', 'Net assimilation of carbon by the vegetation', 'gC/m^2/s', &
1362	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, fluxop_scinsec(1), dt,dw)
1363	CALL histdef(hist_id, 'gsmean', 'mean stomatal conductance', 'mol/m2/s', &
1364	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(8), dt,dw)
1365	CALL histdef(hist_id, 'cim', 'cim', 'ppm', &
1366	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, avescatter(10), dt,dw)
1367	CALL histdef(hist_id, 'leafci', 'leaf Ci', 'ppm', &
1368	& iim,jjm, hori_id,nlai, 1, nlai, laiax0_id, 32, avescatter(10), dt,dw)
1369	CALL histdef(hist_id, 'gs', 'gs', 'mol m-2 s-1', &
1370	& iim,jjm, hori_id, nlai+1, 1, nlai+1, laiax_id, 32, avescatter(10), dt,dw)
1371	CALL histdef(hist_id, 'assimi', 'assimi', 'mol m-2 s-1', &
1372	& iim,jjm, hori_id, nlai+1, 1, nlai+1, laiax_id, 32, avescatter(10), dt,dw)
1373	CALL histdef(hist_id, 'Rd', 'Rd', 'mol m-2 s-1', &
1374	& iim,jjm, hori_id, nlai+1, 1, nlai+1, laiax_id, 32, avescatter(10), dt,dw)
1375	CALL histdef(hist_id, 'Cc', 'Cc', 'ppm', &
1376	& iim,jjm, hori_id, nlai+1, 1, nlai+1, laiax_id, 32, avescatter(10), dt,dw)
1377	CALL histdef(hist_id, 'limitphoto', 'limitphoto', '-', &
1378	& iim,jjm, hori_id, nlai+1, 1, nlai+1, laiax_id, 32, avescatter(10), dt,dw)
1379	CALL histdef(hist_id, 'Vc', 'Vc', 'mol m-2 s-1', &
1380	& iim,jjm, hori_id, nlai+1, 1, nlai+1, laiax_id, 32, avescatter(10), dt,dw)
1381	CALL histdef(hist_id, 'Vj', 'Vj', 'mol e- m-2 s-1', &
1382	& iim,jjm, hori_id, nlai+1, 1, nlai+1, laiax_id, 32, avescatter(10), dt,dw)
1383	CALL histdef(hist_id, 'gm', 'gm', 'mol m-2 s-1', &
1384	& iim,jjm, hori_id, 1, 1, 1, -99, 32, avescatter(10), dt,dw)
1385	CALL histdef(hist_id, 'gammastar', 'gammastar', 'ppm', &
1386	& iim, jjm, hori_id, 1, 1, 1, -99, 32, avescatter(10), dt,dw)
1387	CALL histdef(hist_id, 'Kmo', 'Kmo', 'ppm', &
1388	& iim, jjm, hori_id, 1, 1, 1, -99, 32, avescatter(10), dt,dw)
1389	CALL histdef(hist_id, 'Kmc', 'Kmc', 'ppm', &
1390	& iim, jjm, hori_id, 1, 1, 1, -99, 32, avescatter(10), dt,dw)
1391	ENDIF
1392	IF ( ok_stomate ) THEN
1393	CALL histdef(hist_id, 'NEE', 'Net Ecosystem Exchange', 'gC/m^2/s', &
1394	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, fluxop_scinsec(1), dt,dw)
1395	CALL histdef(hist_id, 'maint_resp', 'Maintenance respiration', 'gC/m^2/s', &
1396	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, fluxop_scinsec(1), dt,dw)
1397	CALL histdef(hist_id, 'hetero_resp', 'Heterotrophic respiration', 'gC/m^2/s', &
1398	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, fluxop_scinsec(1), dt,dw)
1399	CALL histdef(hist_id, 'growth_resp', 'Growth respiration', 'gC/m^2/s', &
1400	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, fluxop_scinsec(1), dt,dw)
1401	CALL histdef(hist_id, 'npp', 'Net Primary Production', 'gC/m^2/s', &
1402	& iim,jjm, hori_id, nvm, 1, nvm, vegax_id, 32, fluxop_scinsec(1), dt,dw)
1403	ENDIF
1404	!
1405	ENDIF
1406	!-
1407	!- Forcing and grid information
1408	!-
1409	CALL histdef(hist_id, 'LandPoints', 'Land Points', '1', &
1410	& iim,jjm, hori_id, 1,1,1, -99, 32, once(10), dt,dw)
1411	CALL histdef(hist_id, 'Areas', 'Mesh areas', 'm2', &
1412	& iim,jjm, hori_id, 1,1,1, -99, 32, once(1), dt, dw)
1413	CALL histdef(hist_id, 'Contfrac', 'Continental fraction', '1', &
1414	& iim,jjm, hori_id, 1,1,1, -99, 32, once(1), dt, dw)
1415	!-
1416	! Write the names of the pfts in the history files
1417	global_attribute="PFT_name"
1418	DO i=1,nvm
1419	WRITE(global_attribute(9:10),"(I2.2)") i
1420	CALL histglobal_attr(hist_id, global_attribute, PFT_name(i))
1421	ENDDO
1422	!-
1423	CALL histend(hist_id)
1424	ENDIF ! IF (is_omp_root)
1425
1426	END IF !IF ( dw == 0 )
1427	!
1428	!
1429	! Second SECHIBA hist file
1430	!
1431	!-
1432	!Config Key = SECHIBA_HISTFILE2
1433	!Config Desc = Flag to switch on histfile 2 for SECHIBA (hi-frequency ?)
1434	!Config If = OK_SECHIBA
1435	!Config Def = n
1436	!Config Help = This Flag switch on the second SECHIBA writing for hi (or low)
1437	!Config frequency writing. This second output is optional and not written
1438	!Config by default.
1439	!Config Units = [FLAG]
1440	!-
1441	ok_histfile2=.FALSE.
1442	CALL getin_p('SECHIBA_HISTFILE2', ok_histfile2)
1443	IF (printlev >= 2) WRITE(numout,*) 'SECHIBA_HISTFILE2 ', ok_histfile2
1444	!
1445	!-
1446	!Config Key = WRITE_STEP2
1447	!Config Desc = Frequency in seconds at which to WRITE output
1448	!Config If = SECHIBA_HISTFILE2
1449	!Config Def = 1800.0
1450	!Config Help = This variables gives the frequency the output 2 of
1451	!Config the model should be written into the netCDF file.
1452	!Config It does not affect the frequency at which the
1453	!Config operations such as averaging are done.
1454	!Config That is IF the coding of the calls to histdef
1455	!Config are correct !
1456	!Config Units = [seconds]
1457	!-
1458	dw2 = 1800.0
1459	CALL getin_p('WRITE_STEP2', dw2)
1460
1461	! Deactivate sechiba_histfile2 if the frequency is set to zero
1462	IF ( dw2 == 0 ) THEN
1463	ok_histfile2=.FALSE.
1464	IF (printlev >= 2) WRITE(numout,*) 'WRITE_STEP2 was set to zero and therfore SECHIBA_HISTFILE2 is deactivated.'
1465	ELSE IF ( hist_id < 0 ) THEN
1466	! Deactivate all history files if sechiba_history file is deactivated
1467	ok_histfile2=.FALSE.
1468	IF (printlev >= 2) WRITE(numout,*) 'SECHIBA_HISTFILE2 will not be created because sechiba_history file is deactivated.'
1469	END IF
1470
1471	hist2_id = -1
1472	!
1473	IF (ok_histfile2) THEN
1474	!-
1475	!Config Key = SECHIBA_OUTPUT_FILE2
1476	!Config Desc = Name of file in which the output number 2 is going to be written
1477	!Config If = SECHIBA_HISTFILE2
1478	!Config Def = sechiba_out_2.nc
1479	!Config Help = This file is going to be created by the model
1480	!Config and will contain the output 2 from the model.
1481	!Config Units = [FILE]
1482	!-
1483	histname2='sechiba_out_2.nc'
1484	CALL getin_p('SECHIBA_OUTPUT_FILE2', histname2)
1485	IF (printlev >= 2) WRITE(numout,*) 'SECHIBA_OUTPUT_FILE2 ', histname2
1486	!-
1487	!Config Key = SECHIBA_HISTLEVEL2
1488	!Config Desc = SECHIBA history 2 output level (0..10)
1489	!Config If = SECHIBA_HISTFILE2
1490	!Config Def = 1
1491	!Config Help = Chooses the list of variables in the history file.
1492	!Config Values between 0: nothing is written; 10: everything is
1493	!Config written are available More details can be found on the web under documentation.
1494	!Config web under documentation.
1495	!Config First level contains all ORCHIDEE outputs.
1496	!Config Units = [-]
1497	!-
1498	hist2_level = 1
1499	CALL getin_p('SECHIBA_HISTLEVEL2', hist2_level)
1500	!-
1501	IF (printlev >= 2) WRITE(numout,*) 'SECHIBA history level 2 : ',hist2_level
1502	IF ( (hist2_level > max_hist_level).OR.(hist2_level < 0) ) THEN
1503	STOP 'This history level 2 is not allowed'
1504	ENDIF
1505	!
1506	!-
1507	!- define operations as a function of history level.
1508	!- Above hist2_level, operation='never'
1509	!-
1510	ave2(1:max_hist_level) = 'ave(scatter(X))'
1511	IF (hist2_level < max_hist_level) THEN
1512	ave2(hist2_level+1:max_hist_level) = 'never'
1513	ENDIF
1514	sumscatter2(1:max_hist_level) = 't_sum(scatter(X))'
1515	IF (hist2_level < max_hist_level) THEN
1516	sumscatter2(hist2_level+1:max_hist_level) = 'never'
1517	ENDIF
1518	avecels2(1:max_hist_level) = 'ave(cels(scatter(X)))'
1519	IF (hist2_level < max_hist_level) THEN
1520	avecels2(hist2_level+1:max_hist_level) = 'never'
1521	ENDIF
1522	avescatter2(1:max_hist_level) = 'ave(scatter(X))'
1523	IF (hist2_level < max_hist_level) THEN
1524	avescatter2(hist2_level+1:max_hist_level) = 'never'
1525	ENDIF
1526	tmincels2(1:max_hist_level) = 't_min(cels(scatter(X)))'
1527	IF (hist2_level < max_hist_level) THEN
1528	tmincels2(hist2_level+1:max_hist_level) = 'never'
1529	ENDIF
1530	tmaxcels2(1:max_hist_level) = 't_max(cels(scatter(X)))'
1531	IF (hist2_level < max_hist_level) THEN
1532	tmaxcels2(hist2_level+1:max_hist_level) = 'never'
1533	ENDIF
1534	!!$ tmax2(1:max_hist_level) = 't_max(X)'
1535	!!$ IF (hist2_level < max_hist_level) THEN
1536	!!$ tmax2(hist2_level+1:max_hist_level) = 'never'
1537	!!$ ENDIF
1538	fluxop2(1:max_hist_level) = flux_op
1539	IF (hist2_level < max_hist_level) THEN
1540	fluxop2(hist2_level+1:max_hist_level) = 'never'
1541	ENDIF
1542	!!$ fluxop_sc2(1:max_hist_level) = flux_sc
1543	!!$ IF (hist2_level < max_hist_level) THEN
1544	!!$ fluxop_sc2(hist2_level+1:max_hist_level) = 'never'
1545	!!$ ENDIF
1546	!!$ fluxop_insec2(1:max_hist_level) = flux_insec
1547	!!$ IF (hist2_level < max_hist_level) THEN
1548	!!$ fluxop_insec2(hist2_level+1:max_hist_level) = 'never'
1549	!!$ ENDIF
1550	fluxop_scinsec2(1:max_hist_level) = flux_scinsec
1551	IF (hist2_level < max_hist_level) THEN
1552	fluxop_scinsec2(hist2_level+1:max_hist_level) = 'never'
1553	ENDIF
1554	once2(1:max_hist_level) = 'once(scatter(X))'
1555	IF (hist2_level < max_hist_level) THEN
1556	once2(hist2_level+1:max_hist_level) = 'never'
1557	ENDIF
1558	!
1559	IF (is_omp_root) THEN
1560	IF ( .NOT. almaoutput ) THEN
1561	!-
1562	IF ( GridType == "RegLonLat" ) THEN
1563	#ifdef CPP_PARA
1564	CALL histbeg(histname2, iim, lon_rect, jjm, lat_rect, 1, iim, 1, jjm, &
1565	& istp_old, date0, dt, hori_id2, hist2_id,orch_domain_id)
1566	#else
1567	CALL histbeg(histname2, iim, lon_rect, jjm, lat_rect, 1, iim, 1, jjm, &
1568	& istp_old, date0, dt, hori_id2, hist2_id)
1569	#endif
1570	IF (printlev >= 2) WRITE(numout,*) 'HISTBEG2 --->',istp_old,date0,dt,dw2,hist2_id
1571	ELSE
1572	#ifdef CPP_PARA
1573	CALL histbeg(histname2, iim, lon, jjm, lat, 1, iim, 1, jjm, &
1574	& istp_old, date0, dt, hori_id2, hist2_id,domain_id=orch_domain_id)
1575	#else
1576	CALL histbeg(histname2, iim, lon, jjm, lat, 1, iim, 1, jjm, &
1577	& istp_old, date0, dt, hori_id2, hist2_id)
1578	#endif
1579	ENDIF
1580	!-
1581	CALL histvert(hist2_id, 'veget', 'Vegetation types', '1', &
1582	& nvm, veg, vegax_id2)
1583	CALL histvert(hist2_id, 'laiax', 'Nb LAI', '1', &
1584	& nlai+1, indlai, laiax_id2)
1585	CALL histvert(hist2_id, 'solth', 'Soil levels', 'm', &
1586	& ngrnd, sol, solax_id2)
1587	CALL histvert(hist2_id, 'soiltyp', 'Soil types', '1', &
1588	& nstm, soltyp, soltax_id2)
1589	CALL histvert(hist2_id, 'nobio', 'Other surface types', '1', &
1590	& nnobio, nobiotyp, nobioax_id2)
1591	CALL histvert(hist2_id, 'albtyp', 'Albedo Types', '1', &
1592	& 2, albtyp, albax_id2)
1593	IF ( hydrol_cwrr ) THEN
1594	CALL histvert(hist2_id, 'solay', 'Hydrol soil levels', 'm', &
1595	& nslm, solay, solayax_id2)
1596	ENDIF
1597	!-
1598	!- SECHIBA_HISTLEVEL2 = 1
1599	!-
1600	CALL histdef(hist2_id, 'ptn', 'Deep ground temperature', 'K', &
1601	& iim,jjm, hori_id2, ngrnd, 1, ngrnd, solax_id2, 32, avescatter2(2), dt, dw2)
1602
1603	CALL histdef(hist2_id, 'mrsos', "Moisture in Upper 0.1 m of Soil Column", "kg m-2", &
1604	& iim,jjm, hori_id2, 1, 1, 1, -99, 32, avescatter2(2), dt,dw2)
1605
1606	CALL histdef(hist2_id, 'mrso', "Total Soil Moisture Content", "kg m-2", &
1607	& iim,jjm, hori_id2, 1, 1, 1, -99, 32, avescatter2(11), dt,dw2)
1608
1609	CALL histdef(hist2_id, 'mrros', "Surface Runoff", "kg m-2 s-1", &
1610	& iim,jjm, hori_id2, 1, 1, 1, -99, 32, fluxop_scinsec2(11), dt,dw2)
1611
1612	CALL histdef(hist2_id, 'mrro', "Total Runoff", "kg m-2 s-1", &
1613	& iim,jjm, hori_id2, 1, 1, 1, -99, 32, fluxop_scinsec2(2), dt,dw2)
1614
1615	!-
1616	!- SECHIBA_HISTLEVEL2 = 2
1617	!-
1618	CALL histdef(hist2_id, 'cdrag', 'Drag coefficient for LE and SH', '?', &
1619	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(2), dt, dw2)
1620	! Ajouts Nathalie - Septembre 2008
1621	CALL histdef(hist2_id, 'soilalb_vis', 'Soil Albedo visible', '1', &
1622	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(2), dt,dw2)
1623	CALL histdef(hist2_id, 'soilalb_nir', 'Soil Albedo near infrared', '1', &
1624	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(2), dt,dw2)
1625	CALL histdef(hist2_id, 'vegalb_vis', 'Vegetation Albedo visible', '1', &
1626	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(2), dt,dw2)
1627	CALL histdef(hist2_id, 'vegalb_nir', 'Vegetation Albedo near infrared', '1', &
1628	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(2), dt,dw2)
1629	CALL histdef(hist2_id, 'z0m', 'Surface roughness for momentum', 'm', &
1630	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(2), dt, dw2)
1631	CALL histdef(hist2_id, 'z0h', 'Surface roughness for heat', 'm', &
1632	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(2), dt, dw2)
1633	CALL histdef(hist2_id, 'coastalflow', 'Diffuse coastal flow', 'm^3/s', &
1634	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop_scinsec2(2), dt, dw2)
1635	CALL histdef(hist2_id, 'riverflow', 'River flow to the oceans', 'm^3/s', &
1636	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop_scinsec2(2), dt, dw2)
1637	CALL histdef(hist2_id, 'tsol_rad', 'Radiative surface temperature', 'C', &
1638	& iim,jjm, hori_id2, 1,1,1, -99, 32, avecels2(2), dt, dw2)
1639	IF ( river_routing .AND. do_floodplains ) THEN
1640	CALL histdef(hist2_id, 'floodout', 'Flow out of floodplains', 'mm/d', &
1641	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop2(2), dt,dw2)
1642	CALL histdef(hist2_id, 'vevapflo', 'Floodplains evaporation', 'mm/d', &
1643	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop2(2), dt, dw2)
1644	CALL histdef(hist2_id, 'flood_frac', 'Flooded fraction', '1', &
1645	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(2), dt,dw2)
1646	CALL histdef(hist2_id, 'reinfiltration', 'Reinfiltration from floodplains', 'mm/d', &
1647	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop2(2), dt,dw2)
1648	ENDIF
1649	CALL histdef(hist2_id, 'vevapnu', 'Bare soil evaporation', 'mm/d', &
1650	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop2(2), dt, dw2)
1651	CALL histdef(hist2_id, 'temp_sol', 'New Surface Temperature', 'C', &
1652	& iim,jjm, hori_id2, 1,1,1, -99, 32, avecels2(2), dt, dw2)
1653	CALL histdef(hist2_id, 'qsurf', 'Near surface specific humidity', 'g/g', &
1654	& iim,jjm, hori_id2, 1,1,1, -99, 32, ave2(2), dt, dw2)
1655	CALL histdef(hist2_id, 'albedo', 'Albedo', '1', &
1656	& iim,jjm, hori_id2, 2,1,2, albax_id2, 32, avescatter2(2), dt, dw2)
1657	CALL histdef(hist2_id, 'fluxsens', 'Sensible Heat Flux', 'W/m^2', &
1658	& iim,jjm, hori_id2, 1,1,1, -99, 32, ave2(2), dt, dw2)
1659	CALL histdef(hist2_id, 'fluxlat', 'Latent Heat Flux', 'W/m^2', &
1660	& iim,jjm, hori_id2, 1,1,1, -99, 32, ave2(2), dt, dw2)
1661	CALL histdef(hist2_id, 'emis', 'Surface emissivity', '1', &
1662	& iim,jjm, hori_id2, 1,1,1, -99, 32, ave2(2), dt, dw2)
1663	!-
1664	!- SECHIBA_HISTLEVEL2 = 3
1665	!-
1666	CALL histdef(hist2_id, 'evap', 'Evaporation', 'mm/d', &
1667	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop2(3), dt, dw2)
1668	CALL histdef(hist2_id, 'rain', 'Rainfall', 'mm/d', &
1669	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop2(3), dt, dw2)
1670	CALL histdef(hist2_id, 'snowf', 'Snowfall', 'mm/d', &
1671	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop2(3), dt, dw2)
1672	CALL histdef(hist2_id, 'netrad', 'Net radiation', 'W/m^2', &
1673	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(3), dt, dw2)
1674	CALL histdef(hist2_id, 'lai', 'Leaf Area Index', '1', &
1675	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(3), dt, dw2)
1676
1677	!!!!! crop variables
1678	CALL histdef(hist2_id, 'tcult', 'crop temperature', '1', &
1679	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(3), dt, dw2)
1680	CALL histdef(hist2_id, 'udevair', 'udev calculated by Tair', '1', &
1681	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(3), dt, dw2)
1682	CALL histdef(hist2_id, 'udevcult', 'udev calculated by tcult', '1', &
1683	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(3), dt, dw2)
1684
1685	CALL histdef(hist2_id, 'turfac', 'soil water stress for leaf growth', '1', &
1686	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(3), dt,dw2)
1687	CALL histdef(hist2_id, 'swfac', 'water stress for RUE', '1', &
1688	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(3), dt,dw2)
1689	CALL histdef(hist2_id, 'senfac', 'soil water stress for leaf senescence', '1', &
1690	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(3), dt,dw2)
1691
1692	CALL histdef(hist2_id, 'shumrel', 'soil moisture around sowing depth', '1', &
1693	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(3), dt,dw2)
1694
1695	CALL histdef(hist2_id, 'nlev', 'date for leaf emerge', '1', &
1696	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(3), dt,dw2)
1697
1698	CALL histdef(hist2_id, 'nflo', 'date for flowering', '1', &
1699	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(3), dt,dw2)
1700
1701	CALL histdef(hist2_id, 'ndrp', 'date for grain filling', '1', &
1702	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(3), dt,dw2)
1703
1704	CALL histdef(hist2_id, 'nrec', 'date for harvesting', '1', &
1705	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(3), dt,dw2)
1706	CALL histdef(hist2_id, 'nmat', 'date for physiological mature', '1', &
1707	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(3), dt,dw2)
1708
1709	CALL histdef(hist2_id, 'irrig_fin', 'final application of irrigation', '1', &
1710	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, fluxop2(2), dt,dw)
1711	!!!!! end crop variables, xuhui
1712	IF ( river_routing ) THEN
1713	CALL histdef(hist2_id, 'basinmap', 'Aproximate map of the river basins', ' ', &
1714	& iim,jjm, hori_id2, 1,1,1, -99, 32, once2(3), dt, dw2)
1715	CALL histdef(hist2_id, 'nbrivers', 'Number or rivers in the outflow grid box', ' ', &
1716	& iim,jjm, hori_id2, 1,1,1, -99, 32, once2(3), dt, dw2)
1717	ENDIF
1718	IF (check_waterbal) THEN
1719	CALL histdef(hist2_id, 'TotWater', 'Total amount of water at end of time step', 'mm/d', &
1720	& iim,jjm, hori_id2, 1,1,1, -99, 32, ave2(3), dt, dw2)
1721	CALL histdef(hist2_id, 'TotWaterFlux', 'Total water flux', 'mm/d', &
1722	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop2(3), dt, dw2)
1723	ENDIF
1724
1725	!-
1726	!- SECHIBA_HISTLEVEL2 = 4
1727	!-
1728	CALL histdef(hist2_id, 'subli', 'Sublimation', 'mm/d', &
1729	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop2(4), dt, dw2)
1730	CALL histdef(hist2_id, 'runoff', 'Surface runoff', 'mm/d', &
1731	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop2(4), dt, dw2)
1732	CALL histdef(hist2_id, 'drainage', 'Deep drainage', 'mm/d', &
1733	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop2(4), dt, dw2)
1734	IF ( river_routing ) THEN
1735	CALL histdef(hist2_id, 'riversret', 'Return from endorheic rivers', 'mm/d', &
1736	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop2(4), dt, dw2)
1737	CALL histdef(hist2_id, 'hydrographs', 'Hydrographs of gridbox outflow', 'm^3/s', &
1738	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop_scinsec2(4), dt, dw2)
1739	ENDIF
1740	IF ( hydrol_cwrr ) THEN
1741	CALL histdef(hist2_id, 'evapnu_soil', 'Bare soil evap for soil type', 'mm/d', &
1742	& iim,jjm, hori_id2, nstm, 1, nstm, soltax_id2, 32, fluxop2(4), dt, dw2)
1743	CALL histdef(hist2_id, 'drainage_soil', 'Drainage for soil type', 'mm/d', &
1744	& iim,jjm, hori_id2, nstm, 1, nstm, soltax_id2, 32, fluxop2(4), dt, dw2)
1745	CALL histdef(hist2_id, 'transpir_soil', 'Transpir for soil type', 'mm/d', &
1746	& iim,jjm, hori_id2, nstm, 1, nstm, soltax_id2, 32, fluxop2(4), dt, dw2)
1747	CALL histdef(hist2_id, 'runoff_soil', 'Runoff for soil type', 'mm/d', &
1748	& iim,jjm, hori_id2, nstm, 1, nstm, soltax_id2, 32, fluxop2(4), dt, dw2)
1749	ENDIF
1750	!
1751	CALL histdef(hist2_id, 'tair', 'Air Temperature', 'K', &
1752	& iim,jjm, hori_id2, 1,1,1, -99, 32, ave2(4), dt, dw2)
1753	CALL histdef(hist2_id, 'qair', 'Air humidity', 'g/g', &
1754	& iim,jjm, hori_id2, 1,1,1, -99, 32, ave2(4), dt, dw2)
1755	! Ajouts Nathalie - Juillet 2006
1756	CALL histdef(hist2_id, 'q2m', '2m Air humidity', 'g/g', &
1757	& iim,jjm, hori_id2, 1,1,1, -99, 32, ave2(4), dt, dw2)
1758	CALL histdef(hist2_id, 't2m', '2m Air Temperature', 'K', &
1759	& iim,jjm, hori_id2, 1,1,1, -99, 32, ave2(4), dt, dw2)
1760	! Fin ajouts Nathalie
1761	CALL histdef(hist2_id, 'alb_vis', 'Albedo visible', '1', &
1762	& iim,jjm, hori_id2, 1,1,1, -99, 32, ave2(4), dt, dw2)
1763	CALL histdef(hist2_id, 'alb_nir', 'Albedo near infrared', '1', &
1764	& iim,jjm, hori_id2, 1,1,1, -99, 32, ave2(4), dt, dw2)
1765	CALL histdef(hist2_id, 'roughheight', 'Effective roughness height', 'm', &
1766	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(4), dt, dw2)
1767	CALL histdef(hist2_id, 'roughheight_pft', 'Effect roughness height pft', 'm', &
1768	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(5), dt, dw2)
1769	CALL histdef(hist2_id, 'transpir', 'Transpiration', 'mm/d', &
1770	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, fluxop2(4), dt, dw2)
1771	CALL histdef(hist2_id, 'evapnu_pft', 'soil evaporation', 'mm/d', &
1772	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, fluxop2(4), dt, dw2)
1773	CALL histdef(hist2_id, 'inter', 'Interception loss', 'mm/d', &
1774	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, fluxop2(4), dt, dw2)
1775	!-
1776	!- SECHIBA_HISTLEVEL2 = 5
1777	!-
1778	CALL histdef(hist2_id, 'tsol_max', 'Maximum Surface Temperature',&
1779	& 'C', iim,jjm, hori_id2, 1,1,1, -99, 32, tmaxcels2(5), dt, dw2)
1780	CALL histdef(hist2_id, 'tsol_min', 'Minimum Surface Temperature',&
1781	& 'C', iim,jjm, hori_id2, 1,1,1, -99, 32, tmincels2(5), dt, dw2)
1782	CALL histdef(hist2_id, 'snow', 'Snow mass', 'kg/m^2', &
1783	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(5), dt, dw2)
1784	CALL histdef(hist2_id, 'snowage', 'Snow age', '?', &
1785	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(5), dt, dw2)
1786	CALL histdef(hist2_id, 'snownobio', 'Snow on other surfaces', 'kg/m^2', &
1787	& iim,jjm, hori_id2, nnobio,1, nnobio, nobioax_id2, 32, avescatter2(5), dt, dw2)
1788	CALL histdef(hist2_id, 'snownobioage', 'Snow age on other surfaces', 'd', &
1789	& iim,jjm, hori_id2, nnobio,1, nnobio, nobioax_id2, 32, avescatter2(5), dt, dw2)
1790	CALL histdef(hist2_id, 'vegetfrac', 'Fraction of vegetation', '1', &
1791	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(5), dt, dw2)
1792	CALL histdef(hist2_id, 'maxvegetfrac', 'Maximum fraction of vegetation', '1', &
1793	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(5), dt, dw2)
1794	CALL histdef(hist2_id, 'nobiofrac', 'Fraction of other surface types', '1', &
1795	& iim,jjm, hori_id2, nnobio, 1, nnobio, nobioax_id2, 32, avescatter2(5), dt, dw2)
1796	IF ( hydrol_cwrr ) THEN
1797	DO jst=1,nstm
1798
1799	! var_name= "mc_1" ... "mc_3"
1800	WRITE (var_name,"('moistc_',i1)") jst
1801	CALL histdef(hist2_id, var_name, 'Soil Moisture profile for soil type', 'm3/m3', &
1802	& iim,jjm, hori_id2, nslm, 1, nslm, solayax_id2, 32, avescatter2(5), dt, dw2)
1803
1804	! var_name= "vegetsoil_1" ... "vegetsoil_3"
1805	WRITE (var_name,"('vegetsoil_',i1)") jst
1806	CALL histdef(hist2_id, var_name, 'Fraction of vegetation on soil types', '%', &
1807	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(5), dt, dw2)
1808
1809	! var_name= "kfact_root_1" ... "kfact_root_3"
1810	WRITE (var_name,"('kfactroot_',i1)") jst
1811	CALL histdef(hist2_id, var_name, 'Root fraction profile for soil type', '%', &
1812	& iim,jjm, hori_id2, nslm, 1, nslm, solayax_id2, 32, avescatter2(5), dt,dw2)
1813	ENDDO
1814
1815	ENDIF
1816	!-
1817	!- SECHIBA_HISTLEVEL2 = 6
1818	!-
1819	IF ( .NOT. hydrol_cwrr ) THEN
1820	CALL histdef(hist2_id, 'dss', 'Up-reservoir Height', 'm', &
1821	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id, 32, avescatter2(6), dt,dw2)
1822	CALL histdef(hist2_id, 'gqsb', 'Upper Soil Moisture', 'Kg/m^2', &
1823	& iim,jjm, hori_id2, 1, 1, 1, -99, 32, avescatter2(6), dt, dw2)
1824	CALL histdef(hist2_id, 'bqsb', 'Lower Soil Moisture', 'Kg/m^2', &
1825	& iim,jjm, hori_id2, 1, 1, 1, -99, 32, avescatter2(6), dt, dw2)
1826	ELSE
1827	CALL histdef(hist2_id, 'humtot', 'Total Soil Moisture', 'Kg/m^2', &
1828	& iim,jjm, hori_id2, 1, 1, 1, -99, 32, avescatter2(6), dt, dw2)
1829	CALL histdef(hist2_id, 'humtot_soil', 'Soil Moisture for soil type', 'Kg/m^2', &
1830	& iim,jjm, hori_id2, nstm, 1, nstm, soltax_id2, 32, avescatter2(6), dt, dw2)
1831	ENDIF
1832	CALL histdef(hist2_id, 'qsintveg', 'Water on canopy', 'Kg/m^2', &
1833	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(6), dt, dw2)
1834	CALL histdef(hist2_id, 'rstruct', 'Structural resistance', 's/m', &
1835	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(6), dt, dw2)
1836	IF ( ok_co2 ) THEN
1837	CALL histdef(hist2_id, 'gpp', 'Net assimilation of carbon by the vegetation', 'gC/m^2/s', &
1838	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, fluxop_scinsec2(6), dt,dw2)
1839	ENDIF
1840	IF ( ok_stomate ) THEN
1841	CALL histdef(hist2_id, 'nee', 'Net Ecosystem Exchange', 'gC/m^2/s', &
1842	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, fluxop_scinsec2(6), dt,dw2)
1843	CALL histdef(hist2_id, 'maint_resp', 'Maintenance respiration', 'gC/m^2/s', &
1844	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, fluxop_scinsec2(6), dt,dw2)
1845	CALL histdef(hist2_id, 'hetero_resp', 'Heterotrophic respiration', 'gC/m^2/s', &
1846	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, fluxop_scinsec2(6), dt,dw2)
1847	CALL histdef(hist2_id, 'growth_resp', 'Growth respiration', 'gC/m^2/s', &
1848	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, fluxop_scinsec2(6), dt, dw2)
1849	CALL histdef(hist2_id, 'npp', 'Net Primary Production', 'gC/m^2/s', &
1850	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, fluxop_scinsec2(6), dt, dw2)
1851	ENDIF
1852	CALL histdef(hist2_id, 'precisol', 'Throughfall', 'mm/d', &
1853	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, fluxop2(6), dt, dw2)
1854	CALL histdef(hist2_id, 'drysoil_frac', 'Fraction of visibly dry soil', '1', &
1855	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(6), dt, dw2)
1856	CALL histdef(hist2_id, 'evapot', 'Potential evaporation', 'mm/d', &
1857	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop2(6), dt, dw2)
1858	CALL histdef(hist2_id, 'evapot_corr', 'Potential evaporation', 'mm/d', &
1859	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop2(6), dt, dw2)
1860	CALL histdef(hist2_id, 'transpot', 'Potential transporation', 'mm/d', &
1861	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, fluxop2(6), dt, dw2)
1862	CALL histdef(hist2_id, 'snowmelt', 'snow melt', 'mm/d', &
1863	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop2(6), dt, dw2)
1864
1865	!-
1866	!- SECHIBA_HISTLEVEL2 = 7
1867	!-
1868	CALL histdef(hist2_id, 'swnet', 'Net solar radiation', 'W/m^2', &
1869	& iim,jjm, hori_id2, 1,1,1, -99, 32, ave2(7), dt, dw2)
1870	CALL histdef(hist2_id, 'swdown', 'Incident solar radiation', 'W/m^2', &
1871	& iim,jjm, hori_id2, 1,1,1, -99, 32, ave2(7), dt, dw2)
1872	CALL histdef(hist2_id, 'lwdown', 'Absorbed downward longwave radiation', 'W/m^2', &
1873	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(7), dt, dw2)
1874	CALL histdef(hist2_id, 'lwnet', 'Net surface longwave radiation', 'W/m^2', &
1875	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(7), dt, dw2)
1876	CALL histdef(hist2_id, 'ptn_pftmean', 'Soil temperature, PFT-mean','K', &
1877	& iim,jjm, hori_id2, ngrnd, 1, ngrnd, solax_id, 32,avescatter2(7), dt,dw2)
1878	!-
1879	!- SECHIBA_HISTLEVEL2 = 8
1880	!-
1881	IF ( river_routing ) THEN
1882	CALL histdef(hist2_id, 'fastr', 'Fast flow reservoir', 'kg/m^2', &
1883	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(8), dt, dw2)
1884	CALL histdef(hist2_id, 'slowr', 'Slow flow reservoir', 'kg/m^2', &
1885	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(8), dt, dw2)
1886	CALL histdef(hist2_id, 'streamr', 'Stream flow reservoir', 'kg/m^2', &
1887	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(8), dt, dw2)
1888	CALL histdef(hist2_id, 'floodr', 'Floodplains reservoir', 'kg/m^2', &
1889	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(8), dt,dw2)
1890	CALL histdef(hist2_id, 'floodh', 'Floodplains height', 'mm', &
1891	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(8), dt,dw2)
1892	CALL histdef(hist2_id, 'pondr', 'Ponds reservoir', 'kg/m^2', &
1893	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(8), dt,dw2)
1894	CALL histdef(hist2_id, 'lakevol', 'Volume in lake reservoir', 'kg/m^2', &
1895	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(8), dt, dw2)
1896	IF ( do_irrigation ) THEN
1897	! CALL histdef(hist2_id, 'irrigation', 'Net irrigation', 'mm/d', &
1898	! & iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop2(8), dt, dw2)
1899	CALL histdef(hist2_id, 'netirrig', 'Net irrigation requirement', 'mm/d', &
1900	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop2(8), dt, dw2)
1901	CALL histdef(hist2_id, 'irrigmap', 'Map of irrigated areas', 'm^2', &
1902	& iim,jjm, hori_id2, 1,1,1, -99, 32, once2(8), dt, dw2)
1903	ENDIF
1904	CALL histdef(hist2_id, 'floodmap', 'Map of floodplains', 'm^2', &
1905	& iim,jjm, hori_id2, 1,1,1, -99, 32, once2(8), dt,dw2)
1906	CALL histdef(hist2_id, 'swampmap', 'Map of swamps', 'm^2', &
1907	& iim,jjm, hori_id2, 1,1,1, -99, 32, once2(8), dt,dw2)
1908	ENDIF
1909	!! define irrigation regardless of routing and do_irrigation
1910	CALL histdef(hist2_id, 'irrigation', 'Net irrigation', 'mm/d', &
1911	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop2(8), dt, dw2)
1912	!-
1913	!- SECHIBA_HISTLEVEL2 = 9
1914	!-
1915	CALL histdef(hist2_id, 'beta', 'Beta Function', '1', &
1916	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(9), dt, dw2)
1917	CALL histdef(hist2_id, 'raero', 'Aerodynamic resistance', 's/m', &
1918	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(9), dt, dw2)
1919	! Ajouts Nathalie - Novembre 2006
1920	CALL histdef(hist2_id, 'Wind', 'Wind speed', 'm/s', &
1921	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(9), dt, dw2)
1922	! Fin ajouts Nathalie
1923	CALL histdef(hist2_id, 'qsatt' , 'Surface saturated humidity', 'g/g', &
1924	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(9), dt, dw2)
1925	CALL histdef(hist2_id, 'vbeta1', 'Beta for sublimation', '1', &
1926	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(9), dt, dw2)
1927	CALL histdef(hist2_id, 'vbeta4', 'Beta for bare soil', '1', &
1928	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(9), dt, dw2)
1929	IF ( ok_co2 ) THEN
1930	CALL histdef(hist2_id, 'gsmean', 'mean stomatal conductance', 'mol/m2/s', &
1931	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(9), dt, dw2)
1932	ENDIF
1933	CALL histdef(hist2_id, 'vbeta5', 'Beta for floodplains', '1', &
1934	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(9), dt, dw2)
1935	IF ( hydrol_cwrr ) THEN
1936	CALL histdef(hist2_id, 'reinf_slope', 'Slope index for each grid box', '1', &
1937	& iim,jjm, hori_id2, 1,1,1, -99, 32, once2(9), dt,dw2)
1938	CALL histdef(hist2_id, 'soilindex', 'Soil index', '1', &
1939	& iim,jjm, hori_id2, 1, 1, 1, -99, 32, once2(9), dt,dw2)
1940	ENDIF
1941	CALL histdef(hist2_id, 'humrel', 'Soil moisture stress', '-', &
1942	& iim,jjm, hori_id2, nvm,1,nvm, vegax_id2, 32, avescatter2(9), dt, dw2)
1943	!-
1944	!- SECHIBA_HISTLEVEL2 = 10
1945	!-
1946	IF ( ok_co2 ) THEN
1947	CALL histdef(hist2_id, 'cimean', 'Stomatal CO2 concentation', 'mmole/m2/s', &
1948	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt, dw2)
1949	ENDIF
1950	CALL histdef(hist2_id, 'vbeta3', 'Beta for Transpiration', 'mm/d', &
1951	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt, dw2)
1952	CALL histdef(hist2_id, 'rveget', 'Canopy resistance', 's/m', &
1953	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt, dw2)
1954	IF ( .NOT. hydrol_cwrr ) THEN
1955	CALL histdef(hist2_id, 'rsol', 'Soil resistance', 's/m', &
1956	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(10), dt, dw2)
1957	ENDIF
1958	CALL histdef(hist2_id,'vbeta2','Beta for Interception loss','mm/d', &
1959	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt, dw2)
1960	CALL histdef(hist2_id, 'qsintmax', 'Maximum Interception capacity', 'Kg/m^2', &
1961	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt, dw2)
1962
1963	IF ( ok_bvoc ) THEN
1964	CALL histdef(hist2_id, 'PAR', 'PAR', 'umol phot/m^2/s', &
1965	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(10), dt,dw2)
1966	IF ( ok_radcanopy ) THEN
1967	CALL histdef(hist2_id, 'PARsun', 'Sunlit Leaf PAR', 'umol phot/m^2/s', &
1968	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
1969	CALL histdef(hist2_id, 'PARsh', 'Shaded Leaf Area PAR', 'umol phot/m^2/s', &
1970	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
1971	CALL histdef(hist2_id, 'laisun', 'Sunlit Leaf Area Index', '1', &
1972	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
1973	CALL histdef(hist2_id, 'laish', 'Shaded Leaf Area Index', '1', &
1974	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
1975	CALL histdef(hist2_id, 'Fdf', 'Fdf', '1', &
1976	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(10), dt,dw2)
1977	IF ( ok_multilayer ) then
1978	CALL histdef(hist2_id, 'PARsuntab', 'Sunlit Leaf PAR', 'umol phot/m^2/s', &
1979	& iim,jjm, hori_id2, nlai+1, 1, nlai+1, laiax_id2, 32, avescatter2(10), dt,dw2)
1980	CALL histdef(hist2_id, 'PARshtab', 'Shaded Leaf Area PAR', 'umol phot/m^2/s', &
1981	& iim,jjm, hori_id2, nlai+1, 1, nlai+1, laiax_id2, 32, avescatter2(10), dt,dw2)
1982	ENDIF
1983	CALL histdef(hist2_id, 'coszang', 'coszang', '1', &
1984	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(10), dt,dw2)
1985	CALL histdef(hist2_id, 'PARdf', 'PARdf', '1', &
1986	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(10), dt,dw2)
1987	CALL histdef(hist2_id, 'PARdr', 'PARdr', '1', &
1988	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(10), dt,dw2)
1989	CALL histdef(hist2_id, 'Trans', 'Trans', '1', &
1990	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(10), dt,dw2)
1991	END IF
1992
1993	CALL histdef(hist2_id, 'flx_fertil_no', 'flx_fertil_no', 'ngN/m^2/s', &
1994	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
1995	CALL histdef(hist2_id, 'CRF', 'CRF', '1', &
1996	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
1997	CALL histdef(hist2_id, 'flx_co2_bbg_year', 'flx_co2_bbg_year', 'kgC/m^2/yr ', &
1998	& iim,jjm, hori_id2, 1,1,1, -99, 32, once2(10), dt,dw2)
1999	CALL histdef(hist2_id, 'N_qt_WRICE_year', 'N_qt_WRICE_year', 'kgN/yr ', &
2000	& iim,jjm, hori_id2, 1,1,1, -99, 32, once2(10), dt,dw2)
2001	CALL histdef(hist2_id, 'N_qt_OTHER_year', 'N_qt_OTHER_year', 'kgN/yr ', &
2002	& iim,jjm, hori_id2, 1,1,1, -99, 32, once2(10), dt,dw2)
2003	CALL histdef(hist2_id, 'flx_iso', 'flx_iso', 'kgC/m^2/s', &
2004	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
2005	CALL histdef(hist2_id, 'flx_mono', 'flx_mono', 'kgC/m^2/s',&
2006	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
2007	CALL histdef(hist2_id, 'flx_apinen', 'flx_apinen', 'kgC/m^2/s',&
2008	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
2009	CALL histdef(hist2_id, 'flx_bpinen', 'flx_bpinen', 'kgC/m^2/s',&
2010	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
2011	CALL histdef(hist2_id, 'flx_limonen', 'flx_limonen', 'kgC/m^2/s',&
2012	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
2013	CALL histdef(hist2_id, 'flx_myrcen', 'flx_myrcen', 'kgC/m^2/s',&
2014	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
2015	CALL histdef(hist2_id, 'flx_sabinen', 'flx_sabinen', 'kgC/m^2/s',&
2016	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
2017	CALL histdef(hist2_id, 'flx_camphen', 'flx_camphen', 'kgC/m^2/s',&
2018	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
2019	CALL histdef(hist2_id, 'flx_3caren', 'flx_3caren', 'kgC/m^2/s',&
2020	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
2021	CALL histdef(hist2_id, 'flx_tbocimen', 'flx_tbocimen', 'kgC/m^2/s',&
2022	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
2023	CALL histdef(hist2_id, 'flx_othermono', 'flx_othermono', 'kgC/m^2/s',&
2024	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
2025	CALL histdef(hist2_id, 'flx_sesquiter', 'flx_sesquiter', 'kgC/m^2/s',&
2026	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
2027	CALL histdef(hist2_id, 'flx_ORVOC', 'flx_ORVOC', 'kgC/m^2/s',&
2028	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
2029	CALL histdef(hist2_id, 'flx_MBO', 'flx_MBO', 'kgC/m^2/s',&
2030	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
2031	CALL histdef(hist2_id, 'flx_methanol', 'flx_methanol', 'kgC/m^2/s',&
2032	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
2033	CALL histdef(hist2_id, 'flx_acetone', 'flx_acetone', 'kgC/m^2/s',&
2034	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(1), dt,dw2) !! LDF TEST modificato a 1... !!
2035	CALL histdef(hist2_id, 'flx_acetal', 'flx_acetal', 'kgC/m^2/s',&
2036	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(1), dt,dw2) !! LDF TEST modificato a 1... !!
2037	CALL histdef(hist2_id, 'flx_formal', 'flx_formal', 'kgC/m^2/s',&
2038	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
2039	CALL histdef(hist2_id, 'flx_acetic', 'flx_acetic', 'kgC/m^2/s',&
2040	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
2041	CALL histdef(hist2_id, 'flx_formic', 'flx_formic', 'kgC/m^2/s',&
2042	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
2043	CALL histdef(hist2_id, 'flx_no_soil', 'flx_no_soil', 'ngN/m^2/s',&
2044	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
2045	CALL histdef(hist2_id, 'flx_no', 'flx_no', 'ngN/m^2/s',&
2046	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(10), dt,dw2)
2047	ENDIF
2048	ELSE
2049	!-
2050	!- This is the ALMA convention output now
2051	!-
2052	!-
2053	IF ( GridType == "RegLonLat" ) THEN
2054	#ifdef CPP_PARA
2055	CALL histbeg(histname2, iim, lon_rect, jjm, lat_rect, 1, iim, 1, jjm, &
2056	& istp_old, date0, dt, hori_id2, hist2_id,orch_domain_id)
2057	#else
2058	CALL histbeg(histname2, iim, lon_rect, jjm, lat_rect, 1, iim, 1, jjm, &
2059	& istp_old, date0, dt, hori_id2, hist2_id)
2060	#endif
2061	IF (printlev >= 2) WRITE(numout,*) 'HISTBEG2 --->',istp_old,date0,dt,dw2,hist2_id
2062	ELSE
2063	#ifdef CPP_PARA
2064	CALL histbeg(histname2, iim, lon, jjm, lat, 1, iim, 1, jjm, &
2065	& istp_old, date0, dt, hori_id2, hist2_id,domain_id=orch_domain_id)
2066	#else
2067	CALL histbeg(histname2, iim, lon, jjm, lat, 1, iim, 1, jjm, &
2068	& istp_old, date0, dt, hori_id2, hist2_id)
2069	#endif
2070	ENDIF
2071	!-
2072	CALL histvert(hist2_id, 'veget', 'Vegetation types', '1', &
2073	& nvm, veg, vegax_id2)
2074	CALL histvert(hist2_id, 'solth', 'Soil levels', 'm', &
2075	& ngrnd, sol, solax_id2)
2076	CALL histvert(hist2_id, 'soiltyp', 'Soil types', '1', &
2077	& nstm, soltyp, soltax_id2)
2078	CALL histvert(hist2_id, 'nobio', 'Other surface types', '1', &
2079	& nnobio, nobiotyp, nobioax_id2)
2080	IF ( hydrol_cwrr ) THEN
2081	CALL histvert(hist2_id, 'solay', 'Hydrol soil levels', 'm', &
2082	& nslm, diaglev(1:nslm), solayax_id2)
2083	ENDIF
2084	!-
2085	!- Vegetation
2086	!-
2087	CALL histdef(hist2_id, 'vegetfrac', 'Fraction of vegetation', '1', &
2088	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(3), dt, dw2)
2089	CALL histdef(hist2_id, 'maxvegetfrac', 'Maximum fraction of vegetation', '1', &
2090	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, avescatter2(3), dt, dw2)
2091	CALL histdef(hist2_id, 'nobiofrac', 'Fraction of other surface types', '1', &
2092	& iim,jjm, hori_id2, nnobio, 1, nnobio, nobioax_id2, 32, avescatter2(3), dt, dw2)
2093	!-
2094	!- General energy balance
2095	!-
2096	CALL histdef(hist2_id, 'SWnet', 'Net shortwave radiation', 'W/m^2', &
2097	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(1), dt, dw2)
2098	CALL histdef(hist2_id, 'LWnet', 'Net longwave radiation', 'W/m^2', &
2099	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(1), dt, dw2)
2100	CALL histdef(hist2_id, 'Qh', 'Sensible heat flux', 'W/m^2', &
2101	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(1), dt, dw2)
2102	CALL histdef(hist2_id, 'Qle', 'Latent heat flux', 'W/m^2', &
2103	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(1), dt, dw2)
2104	CALL histdef(hist2_id, 'Qg', 'Ground heat flux', 'W/m^2', &
2105	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(1), dt, dw2)
2106	CALL histdef(hist2_id, 'Qf', 'Energy of fusion', 'W/m^2', &
2107	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(5), dt, dw2)
2108	CALL histdef(hist2_id, 'Qv', 'Energy of sublimation', 'W/m^2', &
2109	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(5), dt, dw2)
2110	CALL histdef(hist2_id, 'DelSurfHeat', 'Change in surface layer heat', 'J/m^2', &
2111	& iim,jjm, hori_id2, 1,1,1, -99, 32, sumscatter2(7), dt, dw2)
2112	CALL histdef(hist2_id, 'DelColdCont', 'Change in snow surface layer cold content', 'J/m^2', &
2113	& iim,jjm, hori_id2, 1,1,1, -99, 32, sumscatter2(7), dt, dw2)
2114	!-
2115	!- General water balance
2116	!-
2117	CALL histdef(hist2_id, 'Snowf', 'Snowfall rate', 'kg/m^2/s', &
2118	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop_scinsec2(1), dt, dw2)
2119	CALL histdef(hist2_id, 'Rainf', 'Rainfall rate', 'kg/m^2/s', &
2120	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop_scinsec2(1), dt, dw2)
2121	CALL histdef(hist2_id, 'Evap', 'Total Evapotranspiration', 'kg/m^2/s', &
2122	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop_scinsec2(1), dt, dw2)
2123	CALL histdef(hist2_id, 'Qs', 'Surface runoff', 'kg/m^2/s', &
2124	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop_scinsec2(1), dt, dw2)
2125	CALL histdef(hist2_id, 'Qsb', 'Sub-surface runoff', 'kg/m^2/s', &
2126	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop_scinsec2(1), dt, dw2)
2127	CALL histdef(hist2_id, 'Qsm', 'Snowmelt', 'kg/m^2/s', &
2128	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop_scinsec2(1), dt, dw2)
2129	CALL histdef(hist2_id, 'DelSoilMoist', 'Change in soil moisture', 'kg/m^2', &
2130	& iim,jjm, hori_id2, 1, 1, 1, -99, 32, sumscatter2(7), dt, dw2)
2131	CALL histdef(hist2_id, 'DelSurfStor', 'Change in Surface Water Storage','kg/m^2',&
2132	& iim,jjm, hori_id2, 1, 1, 1, -99, 32, sumscatter2(7), dt,dw2)
2133	CALL histdef(hist2_id, 'DelIntercept', 'Change in interception storage', 'kg/m^2', &
2134	& iim,jjm, hori_id2, 1, 1, 1, -99, 32, sumscatter2(7), dt, dw2)
2135	CALL histdef(hist2_id, 'DelSWE', 'Change in interception storage Snow Water Equivalent', 'kg/m^2', &
2136	& iim,jjm, hori_id2, 1, 1, 1, -99, 32, sumscatter2(7), dt, dw2)
2137	!-
2138	!- Surface state
2139	!-
2140	CALL histdef(hist2_id, 'AvgSurfT', 'Average surface temperature', 'K', &
2141	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(1), dt, dw2)
2142	CALL histdef(hist2_id, 'RadT', 'Surface radiative temperature', 'K', &
2143	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(5), dt, dw2)
2144	CALL histdef(hist2_id, 'Albedo', 'Albedo', '1', &
2145	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(7), dt, dw2)
2146	CALL histdef(hist2_id, 'SurfStor', 'Surface Water Storage','kg/m^2', &
2147	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(1), dt, dw2)
2148	CALL histdef(hist2_id, 'SWE', 'Snow Water Equivalent', 'kg/m^2', &
2149	& iim,jjm, hori_id, 1,1,1, -99, 32, avescatter2(1), dt,dw2)
2150	!!-
2151	!- Sub-surface state
2152	!-
2153	IF ( .NOT. hydrol_cwrr ) THEN
2154	CALL histdef(hist2_id, 'SoilMoist', '3D average layer soil moisture', 'kg/m^2', &
2155	& iim,jjm, hori_id2, 1, 1, 1, -99, 32, avescatter2(7), dt, dw2)
2156	ELSE
2157	CALL histdef(hist2_id, 'SoilMoist', '3D average layer soil moisture', 'kg/m^2', &
2158	& iim,jjm, hori_id2, nslm, 1, nslm, solayax_id2, 32, avescatter2(7), dt, dw2)
2159	ENDIF
2160	CALL histdef(hist2_id, 'SoilWet', 'Total soil wetness', '-', &
2161	& iim,jjm, hori_id2, 1, 1, 1, -99, 32, avescatter2(1), dt, dw2)
2162	CALL histdef(hist2_id, 'SoilTemp', 'Soil temperature profile', 'K', &
2163	& iim,jjm, hori_id2, ngrnd, 1, ngrnd, solax_id2, 32, avescatter2(7), dt, dw2)
2164	!-
2165	!- Evaporation components
2166	!-
2167	CALL histdef(hist2_id, 'PotEvap', 'Potential evapotranspiration', 'kg/m^2/s', &
2168	& iim,jjm, hori_id2, 1, 1, 1, -99, 32, fluxop_scinsec2(1), dt, dw2)
2169	CALL histdef(hist2_id, 'transpot', 'Potential transpiration', 'kg/m^2/s', &
2170	& iim,jjm, hori_id2, nvm,1,nvm, vegax_id2, 32,fluxop_scinsec2(1), dt, dw2)
2171	CALL histdef(hist2_id, 'ECanop', 'Interception evaporation', 'kg/m^2/s', &
2172	& iim,jjm, hori_id2, 1, 1, 1, -99, 32, fluxop_scinsec2(5), dt, dw2)
2173	CALL histdef(hist2_id, 'TVeg', 'Transpiration', 'kg/m^2/s', &
2174	& iim,jjm, hori_id2, 1, 1, 1, -99, 32, fluxop_scinsec2(5), dt, dw2)
2175	CALL histdef(hist2_id, 'ESoil', 'Bare soil evaporation', 'kg/m^2/s', &
2176	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop_scinsec2(5), dt, dw2)
2177	CALL histdef(hist2_id, 'RootMoist','Root zone soil water', 'kg/m^2', &
2178	& iim,jjm, hori_id2, 1, 1, 1, -99, 32, avescatter2(1), dt, dw2)
2179	CALL histdef(hist2_id, 'SubSnow','Snow sublimation','kg/m^2/s', &
2180	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop_scinsec2(1), dt, dw2)
2181	CALL histdef(hist2_id, 'ACond', 'Aerodynamic conductance', 'm/s', &
2182	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(5), dt, dw2)
2183	!-
2184	!-
2185	!- Cold Season Processes
2186	!-
2187	CALL histdef(hist2_id, 'SnowFrac', 'Snow cover fraction', '1', &
2188	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(7), dt, dw2)
2189	CALL histdef(hist2_id, 'SAlbedo', 'Snow albedo', '1', &
2190	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(7), dt, dw2)
2191	CALL histdef(hist2_id, 'SnowDepth', '3D snow depth', 'm', &
2192	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(7), dt, dw2)
2193	!-
2194	!- Hydrologic variables
2195	!-
2196	IF ( river_routing ) THEN
2197	!
2198	IF (do_floodplains) THEN
2199	CALL histdef(hist2_id, 'EWater', 'Open water evaporation', 'kg/m^2/s', &
2200	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop_scinsec2(5), dt, dw2)
2201	CALL histdef(hist2_id, 'FloodFrac', 'Floodplain Fraction', '-', &
2202	& iim,jjm, hori_id2, 1,1,1, -99, 32, avescatter2(1), dt,dw2)
2203	ENDIF
2204	!
2205	CALL histdef(hist2_id, 'IrrigationMap', 'Map of irrigated areas', 'm^2', &
2206	& iim,jjm, hori_id2, 1,1,1, -99, 32, once2(1), dt, dw2)
2207	CALL histdef(hist2_id, 'FloodplainsMap', 'Map of flooded areas', 'm^2', &
2208	& iim,jjm, hori_id2, 1,1,1, -99, 32, once2(1), dt,dw2)
2209	CALL histdef(hist2_id, 'SwampMap', 'Map of swamp areas', 'm^2', &
2210	& iim,jjm, hori_id2, 1,1,1, -99, 32, once2(1), dt,dw2)
2211	CALL histdef(hist2_id, 'Dis', 'Simulated River Discharge', 'm^3/s', &
2212	& iim,jjm, hori_id2, 1,1,1, -99, 32, fluxop_scinsec2(1), dt,dw2)
2213	ENDIF
2214	!-
2215	!-
2216	!-
2217	CALL histdef(hist2_id, 'humrel', 'Soil moisture stress', '-', &
2218	& iim,jjm, hori_id2, nvm,1,nvm, vegax_id2, 32, avescatter2(9), dt, dw2)
2219	CALL histdef(hist2_id, 'vegstress', 'Vegetation growth stress', '-', &
2220	& iim,jjm, hori_id2, nvm,1,nvm, vegax_id2, 32, avescatter2(9), dt, dw2)
2221	!-
2222	!- The carbon budget
2223	!-
2224	IF ( ok_co2 ) THEN
2225	CALL histdef(hist2_id, 'GPP', 'Net assimilation of carbon by the vegetation', 'gC/m^2/s', &
2226	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, fluxop_scinsec2(1), dt, dw2)
2227	ENDIF
2228	IF ( ok_stomate ) THEN
2229	CALL histdef(hist2_id, 'NEE', 'Net Ecosystem Exchange', 'gC/m^2/s', &
2230	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, fluxop_scinsec2(1), dt,dw2)
2231	CALL histdef(hist2_id, 'maint_resp', 'Maintenance respiration', 'gC/m^2/s', &
2232	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, fluxop_scinsec2(1), dt,dw2)
2233	CALL histdef(hist2_id, 'hetero_resp', 'Heterotrophic respiration', 'gC/m^2/s', &
2234	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, fluxop_scinsec2(1), dt,dw2)
2235	CALL histdef(hist2_id, 'growth_resp', 'Growth respiration', 'gC/m^2/s', &
2236	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, fluxop_scinsec2(1), dt, dw2)
2237	CALL histdef(hist2_id, 'npp', 'Net Primary Production', 'gC/m^2/s', &
2238	& iim,jjm, hori_id2, nvm, 1, nvm, vegax_id2, 32, fluxop_scinsec2(1), dt, dw2)
2239	ENDIF
2240	!
2241	ENDIF
2242	!-
2243	CALL histdef(hist2_id, 'LandPoints', 'Land Points', '1', &
2244	& iim,jjm, hori_id2, 1,1,1, -99, 32, once2(10), dt, dw2)
2245	CALL histdef(hist2_id, 'Areas', 'Mesh areas', 'm2', &
2246	& iim,jjm, hori_id2, 1,1,1, -99, 32, once2(1), dt, dw2)
2247	CALL histdef(hist2_id, 'Contfrac', 'Continental fraction', '1', &
2248	& iim,jjm, hori_id2, 1,1,1, -99, 32, once2(1), dt, dw2)
2249	!-
2250	! Write the names of the pfts in the high frequency sechiba history files
2251	global_attribute="PFT_name"
2252	DO i=1,nvm
2253	WRITE(global_attribute(9:10),"(I2.2)") i
2254	CALL histglobal_attr(hist2_id, global_attribute, PFT_name(i))
2255	ENDDO
2256	!-
2257	CALL histend(hist2_id)
2258	ENDIF
2259	ENDIF
2260
2261	!-
2262	!=====================================================================
2263	!- 3.2 STOMATE's history file
2264	!=====================================================================
2265	IF ( ok_stomate ) THEN
2266	!-
2267	! STOMATE IS ACTIVATED
2268	!-
2269	!Config Key = STOMATE_OUTPUT_FILE
2270	!Config Desc = Name of file in which STOMATE's output is going to be written
2271	!Config If = OK_STOMATE
2272	!Config Def = stomate_history.nc
2273	!Config Help = This file is going to be created by the model
2274	!Config and will contain the output from the model.
2275	!Config This file is a truly COADS compliant netCDF file.
2276	!Config It will be generated by the hist software from
2277	!Config the IOIPSL package.
2278	!Config Units = [FILE]
2279	!-
2280	stom_histname='stomate_history.nc'
2281	CALL getin_p('STOMATE_OUTPUT_FILE', stom_histname)
2282	IF (printlev >= 2) WRITE(numout,*) 'STOMATE_OUTPUT_FILE', TRIM(stom_histname)
2283	!-
2284	!Config Key = STOMATE_HIST_DT
2285	!Config Desc = STOMATE history time step
2286	!Config If = OK_STOMATE
2287	!Config Def = 10.
2288	!Config Help = Time step of the STOMATE history file
2289	!Config Units = [days]
2290	!-
2291	hist_days_stom = 10.
2292	CALL getin_p('STOMATE_HIST_DT', hist_days_stom)
2293
2294	IF ( hist_id < 0 ) THEN
2295	! Deactivate all history files if sechiba_history file is deactivated
2296	hist_dt_stom=0
2297	IF (printlev >= 2) WRITE(numout,*) &
2298	'STOMATE history file will not be created because sechiba_history file is deactivated.'
2299	ELSE IF ( hist_days_stom == moins_un ) THEN
2300	hist_dt_stom = moins_un
2301	IF (printlev >= 2) WRITE(numout,*) 'output frequency for STOMATE history file (d): one month.'
2302	ELSE IF ( hist_days_stom == 0 ) THEN
2303	! Deactivate this file
2304	hist_dt_stom=0
2305	IF (printlev >= 2) WRITE(numout,*) 'STOMATE history file will not be created'
2306	ELSE
2307	hist_dt_stom = NINT( hist_days_stom ) * one_day
2308	IF (printlev >= 2) WRITE(numout,*) 'output frequency for STOMATE history file (d): ', &
2309	hist_dt_stom/one_day
2310	ENDIF
2311
2312	! test consistency between STOMATE_HIST_DT and DT_STOMATE parameters
2313	dt_stomate_loc = one_day
2314	CALL getin_p('DT_STOMATE', dt_stomate_loc)
2315	IF ( hist_days_stom /= moins_un .AND. hist_dt_stom/=0) THEN
2316	IF (dt_stomate_loc > hist_dt_stom) THEN
2317	IF (printlev >= 2) WRITE(numout,*) "DT_STOMATE = ",dt_stomate_loc," , STOMATE_HIST_DT = ",hist_dt_stom
2318	CALL ipslerr_p (3,'intsurf_history', &
2319	& 'Problem with DT_STOMATE > STOMATE_HIST_DT','', &
2320	& '(must be less or equal)')
2321	ENDIF
2322	ENDIF
2323	!-
2324	!- Initialize stomate_history file
2325	IF ( hist_dt_stom == 0 ) THEN
2326	! Case hist_dt_stom=0 : No creation of stomate_history.nc file
2327	! Nothing will be done.
2328	hist_id_stom=-1
2329	ELSE
2330	! Initialise stomate_history file
2331	IF (is_omp_root) THEN
2332	IF ( GridType == "RegLonLat" ) THEN
2333	#ifdef CPP_PARA
2334	CALL histbeg(stom_histname, iim, lon_rect, jjm, lat_rect, 1, iim, 1, jjm, &
2335	& istp_old, date0, dt, hori_id, hist_id_stom,domain_id=orch_domain_id)
2336	#else
2337	CALL histbeg(stom_histname, iim, lon_rect, jjm, lat_rect, 1, iim, 1, jjm, &
2338	& istp_old, date0, dt, hori_id, hist_id_stom)
2339	#endif
2340	ELSE
2341	#ifdef CPP_PARA
2342	CALL histbeg(stom_histname, iim, lon, jjm, lat, 1, iim, 1, jjm, &
2343	& istp_old, date0, dt, hori_id, hist_id_stom,domain_id=orch_domain_id)
2344	#else
2345	CALL histbeg(stom_histname, iim, lon, jjm, lat, 1, iim, 1, jjm, &
2346	& istp_old, date0, dt, hori_id, hist_id_stom)
2347	#endif
2348	ENDIF
2349	!- define PFT axis
2350	hist_PFTaxis = (/ ( REAL(i,r_std), i=1,nvm ) /)
2351	!- declare this axis
2352	CALL histvert (hist_id_stom, 'PFT', 'Plant functional type', &
2353	& '1', nvm, hist_PFTaxis, hist_PFTaxis_id)
2354	! deforestation
2355	!- define Pool_10 axis
2356	hist_pool_10axis = (/ ( REAL(i,r_std), i=1,10 ) /)
2357	!- declare this axis
2358	CALL histvert (hist_id_stom, 'P10', 'Pool 10 years', &
2359	& '1', 10, hist_pool_10axis, hist_pool_10axis_id)
2360
2361	!- define Pool_100 axis
2362	hist_pool_100axis = (/ ( REAL(i,r_std), i=1,100 ) /)
2363	!- declare this axis
2364	CALL histvert (hist_id_stom, 'P100', 'Pool 100 years', &
2365	& '1', 100, hist_pool_100axis, hist_pool_100axis_id)
2366
2367	!- define Pool_11 axis
2368	hist_pool_11axis = (/ ( REAL(i,r_std), i=1,11 ) /)
2369	!- declare this axis
2370	CALL histvert (hist_id_stom, 'P11', 'Pool 10 years + 1', &
2371	& '1', 11, hist_pool_11axis, hist_pool_11axis_id)
2372
2373	!- define Pool_101 axis
2374	hist_pool_101axis = (/ ( REAL(i,r_std), i=1,101 ) /)
2375	!- declare this axis
2376	CALL histvert (hist_id_stom, 'P101', 'Pool 100 years + 1', &
2377	& '1', 101, hist_pool_101axis, hist_pool_101axis_id)
2378	!- define deep permafrost axis for stomate variables
2379	CALL histvert(hist_id_stom, 'solth', 'deep soil levels', 'm', &
2380	& ngrnd, sol, hist_stomate_deepsoil)
2381
2382	snowlev = (/ ( REAL(i,r_std), i=1,nsnow ) /)
2383	CALL histvert(hist_id_stom, 'snowlev', 'snow levels', 'index', &
2384	& nsnow, snowlev, hist_stomate_snow)
2385	ENDIF
2386	!! yidi
2387	! IF (ok_oilpalm) THEN
2388	phylev = (/ ( REAL(i,r_std), i=1,nphs ) /)
2389	!- define oilpalm phytomer axis for stomate variables
2390	CALL histvert(hist_id_stom, 'nphs', 'phytomer numbers', 'index', &
2391	& nphs, phylev, hist_stomate_phytomer)
2392	! ENDIF
2393	!! yidi
2394	!- define STOMATE history file
2395	CALL ioipslctrl_histstom (hist_id_stom, nvm, iim, jjm, &
2396	& dt, hist_dt_stom, hori_id, hist_PFTaxis_id, &
2397	& hist_pool_10axis_id, hist_pool_100axis_id, &
2398	& hist_pool_11axis_id, hist_pool_101axis_id, &
2399	& hist_stomate_phytomer, & !! yidi
2400	& hist_stomate_deepsoil, hist_stomate_snow)
2401
2402	!- Write the names of the pfts in the stomate history files
2403	IF (is_omp_root) THEN
2404	global_attribute="PFT_name"
2405	DO i=1,nvm
2406	WRITE(global_attribute(9:10),"(I2.2)") i
2407	CALL histglobal_attr(hist_id_stom, global_attribute, PFT_name(i))
2408	ENDDO
2409
2410	!- end definition
2411	CALL histend(hist_id_stom)
2412	ENDIF
2413	END IF ! IF ( hist_dt_stom == 0 )
2414
2415	!-
2416	!-
2417	!-
2418	! STOMATE IPCC OUTPUTS IS ACTIVATED
2419	!-
2420	!Config Key = STOMATE_IPCC_OUTPUT_FILE
2421	!Config Desc = Name of file in which STOMATE's output is going to be written
2422	!Config If = OK_STOMATE
2423	!Config Def = stomate_ipcc_history.nc
2424	!Config Help = This file is going to be created by the model
2425	!Config and will contain the output from the model.
2426	!Config This file is a truly COADS compliant netCDF file.
2427	!Config It will be generated by the hist software from
2428	!Config the IOIPSL package.
2429	!Config Units = [FILE]
2430	!-
2431	stom_ipcc_histname='stomate_ipcc_history.nc'
2432	CALL getin_p('STOMATE_IPCC_OUTPUT_FILE', stom_ipcc_histname)
2433	IF (printlev >= 2) WRITE(numout,*) 'STOMATE_IPCC_OUTPUT_FILE', TRIM(stom_ipcc_histname)
2434	!-
2435	!Config Key = STOMATE_IPCC_HIST_DT
2436	!Config Desc = STOMATE IPCC history time step
2437	!Config If = OK_STOMATE
2438	!Config Def = 0.
2439	!Config Help = Time step of the STOMATE IPCC history file
2440	!Config Units = [days]
2441	!-
2442	hist_days_stom_ipcc = zero
2443	CALL getin_p('STOMATE_IPCC_HIST_DT', hist_days_stom_ipcc)
2444	IF ( hist_days_stom_ipcc == moins_un ) THEN
2445	hist_dt_stom_ipcc = moins_un
2446	IF (printlev >= 2) WRITE(numout,*) 'output frequency for STOMATE IPCC history file (d): one month.'
2447	ELSE
2448	hist_dt_stom_ipcc = NINT( hist_days_stom_ipcc ) * one_day
2449	IF (printlev >= 2) WRITE(numout,*) 'output frequency for STOMATE IPCC history file (d): ', &
2450	hist_dt_stom_ipcc/one_day
2451	ENDIF
2452
2453	IF ( hist_dt_stom_ipcc /= 0 .AND. hist_id < 0 ) THEN
2454	! sechiba_history file is not created therefore STOMATE IPCC history file will be deactivated
2455	hist_dt_stom_ipcc=0
2456	hist_days_stom_ipcc=0
2457	IF (printlev >= 2) WRITE(numout,*) 'STOMATE IPCC history file is not created.'
2458	END IF
2459
2460	! test consistency between STOMATE_IPCC_HIST_DT and DT_STOMATE parameters
2461	dt_stomate_loc = one_day
2462	CALL getin_p('DT_STOMATE', dt_stomate_loc)
2463	IF ( hist_days_stom_ipcc > zero ) THEN
2464	IF (dt_stomate_loc > hist_dt_stom_ipcc) THEN
2465	IF (printlev >= 2) WRITE(numout,*) "DT_STOMATE = ",dt_stomate_loc," , STOMATE_IPCC_HIST_DT = ",hist_dt_stom_ipcc
2466	CALL ipslerr_p (3,'intsurf_history', &
2467	& 'Problem with DT_STOMATE > STOMATE_IPCC_HIST_DT','', &
2468	& '(must be less or equal)')
2469	ENDIF
2470	ENDIF
2471
2472	!Config Key = OK_HISTSYNC
2473	!Config Desc = Syncronize and write IOIPSL output files at each time step
2474	!Config If =
2475	!Config Def = FALSE
2476	!Config Help = Setting this flag to true might affect run performance. Only use it for debug perpose.
2477	!Config Units = [FLAG]
2478	ok_histsync=.FALSE.
2479	CALL getin_p('OK_HISTSYNC', ok_histsync)
2480
2481
2482
2483	IF ( hist_dt_stom_ipcc == 0 ) THEN
2484	hist_id_stom_ipcc = -1
2485	ELSE
2486	!-
2487	!- initialize
2488	IF (is_omp_root) THEN
2489	IF ( GridType == "RegLonLat" ) THEN
2490	#ifdef CPP_PARA
2491	CALL histbeg(stom_ipcc_histname, iim, lon_rect, jjm, lat_rect, 1, iim, 1, jjm, &
2492	& istp_old, date0, dt, hori_id, hist_id_stom_ipcc,domain_id=orch_domain_id)
2493	#else
2494	CALL histbeg(stom_ipcc_histname, iim, lon_rect, jjm, lat_rect, 1, iim, 1, jjm, &
2495	& istp_old, date0, dt, hori_id, hist_id_stom_ipcc)
2496	#endif
2497	ELSE
2498	#ifdef CPP_PARA
2499	CALL histbeg(stom_ipcc_histname, iim, lon, jjm, lat, 1, iim, 1, jjm, &
2500	& istp_old, date0, dt, hori_id, hist_id_stom_ipcc,domain_id=orch_domain_id)
2501	#else
2502	CALL histbeg(stom_ipcc_histname, iim, lon, jjm, lat, 1, iim, 1, jjm, &
2503	& istp_old, date0, dt, hori_id, hist_id_stom_ipcc)
2504	#endif
2505	ENDIF
2506	!- declare this axis
2507	CALL histvert (hist_id_stom_IPCC, 'PFT', 'Plant functional type', &
2508	& '1', nvm, hist_PFTaxis, hist_IPCC_PFTaxis_id)
2509
2510	!- define STOMATE history file
2511	CALL ioipslctrl_histstomipcc (hist_id_stom_IPCC, nvm, iim, jjm, &
2512	& dt, hist_dt_stom_ipcc, hori_id, hist_IPCC_PFTaxis_id)
2513
2514	!- Write the names of the pfts in the stomate history files
2515	global_attribute="PFT_name"
2516	DO i=1,nvm
2517	WRITE(global_attribute(9:10),"(I2.2)") i
2518	CALL histglobal_attr(hist_id_stom_IPCC, global_attribute, PFT_name(i))
2519	ENDDO
2520
2521	!- end definition
2522	CALL histend(hist_id_stom_IPCC)
2523	ENDIF
2524	ENDIF
2525	ENDIF
2526
2527
2528	RETURN
2529
2530	END SUBROUTINE ioipslctrl_history
2531
2532	!! ================================================================================================================================
2533	!! SUBROUTINE : ioipslctrl_histstom
2534	!!
2535	!>\BRIEF This subroutine initialize the IOIPSL stomate output file
2536	!!
2537	!! DESCRIPTION : This subroutine initialize the IOIPSL output file stomate_history.nc(default name).
2538	!! This subroutine was previously named stom_define_history and where located in module intersurf.
2539	!! RECENT CHANGE(S): None
2540	!!
2541	!! \n
2542	!_ ================================================================================================================================
2543	SUBROUTINE ioipslctrl_histstom( &
2544	& hist_id_stom, nvm, iim, jjm, dt, &
2545	& hist_dt, hist_hori_id, hist_PFTaxis_id, &
2546	& hist_pool_10axis_id, hist_pool_100axis_id, &
2547	& hist_pool_11axis_id, hist_pool_101axis_id, &
2548	& hist_stomate_phytomer, & !! yidi
2549	& hist_stomate_deepsoil, hist_stomate_snow)
2550	! deforestation axis added as arguments
2551
2552	!---------------------------------------------------------------------
2553	!- Tell ioipsl which variables are to be written
2554	!- and on which grid they are defined
2555	!---------------------------------------------------------------------
2556	IMPLICIT NONE
2557	!-
2558	!- Input
2559	!-
2560	!- File id
2561	INTEGER(i_std),INTENT(in) :: hist_id_stom
2562	!- number of PFTs
2563	INTEGER(i_std),INTENT(in) :: nvm
2564	!- Domain size
2565	INTEGER(i_std),INTENT(in) :: iim, jjm
2566	!- Time step of STOMATE (seconds)
2567	REAL(r_std),INTENT(in) :: dt
2568	!- Time step of history file (s)
2569	REAL(r_std),INTENT(in) :: hist_dt
2570	!- id horizontal grid
2571	INTEGER(i_std),INTENT(in) :: hist_hori_id
2572	!- id of PFT axis
2573	INTEGER(i_std),INTENT(in) :: hist_PFTaxis_id
2574	!- id of Deforestation axis
2575	INTEGER(i_std),INTENT(in) :: hist_pool_10axis_id,hist_pool_100axis_id
2576	INTEGER(i_std),INTENT(in) :: hist_pool_11axis_id,hist_pool_101axis_id
2577	!- id of permafrost axis
2578	INTEGER(i_std),INTENT(in) :: hist_stomate_deepsoil
2579	INTEGER(i_std),INTENT(in) :: hist_stomate_snow
2580	!! yidi
2581	INTEGER(i_std),INTENT(in) :: hist_stomate_phytomer !! yidi
2582	!! yidi
2583	!- 1 local
2584	!-
2585	!- maximum history level
2586	INTEGER(i_std), PARAMETER :: max_hist_level = 10
2587	!- output level (between 0 and 10)
2588	!- ( 0:nothing is written, 10:everything is written)
2589	INTEGER(i_std) :: hist_level
2590	!- Character strings to define operations for histdef
2591	CHARACTER(LEN=40),DIMENSION(max_hist_level) :: ave, tmax
2592	!- for looping over PFT dimension for permafrost soil variables
2593	INTEGER(i_std) :: jv, m
2594	CHARACTER(LEN=10) :: part_str ! string suffix indicating an index
2595
2596	!---------------------------------------------------------------------
2597	!=====================================================================
2598	!- 1 history level
2599	!=====================================================================
2600	!- 1.1 define history levelx
2601	!=====================================================================
2602	!Config Key = STOMATE_HISTLEVEL
2603	!Config Desc = STOMATE history output level (0..10)
2604	!Config If = OK_STOMATE
2605	!Config Def = 10
2606	!Config Help = 0: nothing is written; 10: everything is written
2607	!Config Units = [-]
2608	!-
2609	hist_level = 10
2610	CALL getin_p('STOMATE_HISTLEVEL', hist_level)
2611	!-
2612	IF (printlev >= 2) WRITE(numout,*) 'STOMATE history level: ',hist_level
2613	IF ( (hist_level > max_hist_level).OR.(hist_level < 0) ) THEN
2614	STOP 'This history level is not allowed'
2615	ENDIF
2616	!=====================================================================
2617	!- 1.2 define operations according to output level
2618	!=====================================================================
2619	ave(1:hist_level) = 'ave(scatter(X))'
2620	ave(hist_level+1:max_hist_level) = 'never '
2621	tmax(1:max_hist_level) = 't_max(scatter(X))'
2622	IF (hist_level<max_hist_level) THEN
2623	tmax(hist_level+1:max_hist_level) = 'never '
2624	ENDIF
2625	!=====================================================================
2626	!- 2 surface fields (2d)
2627	!- 3 PFT: 3rd dimension
2628	!=====================================================================
2629
2630
2631	! structural litter above ground
2632	IF (is_omp_root) THEN
2633	CALL histdef (hist_id_stom, &
2634	& TRIM("LITTER_STR_AB "), &
2635	& TRIM("structural litter above ground "), &
2636	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
2637	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
2638
2639	! metabolic litter above ground
2640	CALL histdef (hist_id_stom, &
2641	& TRIM("LITTER_MET_AB "), &
2642	& TRIM("metabolic litter above ground "), &
2643	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
2644	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
2645
2646	! structural litter below ground
2647	CALL histdef (hist_id_stom, &
2648	& TRIM("LITTER_STR_BE "), &
2649	& TRIM("structural litter below ground "), &
2650	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
2651	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
2652
2653	! metabolic litter below ground
2654	CALL histdef (hist_id_stom, &
2655	& TRIM("LITTER_MET_BE "), &
2656	& TRIM("metabolic litter below ground "), &
2657	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
2658	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
2659
2660	! fraction of soil covered by dead leaves
2661	CALL histdef (hist_id_stom, &
2662	& TRIM("DEADLEAF_COVER "), &
2663	& TRIM("fraction of soil covered by dead leaves "), &
2664	& TRIM("- "), iim,jjm, hist_hori_id, &
2665	& 1,1,1, -99,32, ave(5), dt, hist_dt)
2666
2667	! total soil and litter carbon
2668	CALL histdef (hist_id_stom, &
2669	& TRIM("TOTAL_SOIL_CARB "), &
2670	& TRIM("total soil and litter carbon "), &
2671	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
2672	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
2673
2674	! active soil carbon in ground
2675	CALL histdef (hist_id_stom, &
2676	& TRIM("CARBON_ACTIVE "), &
2677	& TRIM("active soil carbon in ground "), &
2678	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
2679	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
2680
2681	! slow soil carbon in ground
2682	CALL histdef (hist_id_stom, &
2683	& TRIM("CARBON_SLOW "), &
2684	& TRIM("slow soil carbon in ground "), &
2685	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
2686	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
2687
2688	! passive soil carbon in ground
2689	CALL histdef (hist_id_stom, &
2690	& TRIM("CARBON_PASSIVE "), &
2691	& TRIM("passive soil carbon in ground "), &
2692	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
2693	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
2694
2695
2696	! active soil carbon in ground
2697	CALL histdef (hist_id_stom, &
2698	& TRIM("CARBON_ACTIVE_SURF "), &
2699	& TRIM("active soil carbon in ground over surface soils"), &
2700	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id,&
2701	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
2702
2703	! slow soil carbon in ground
2704	CALL histdef (hist_id_stom, &
2705	& TRIM("CARBON_SLOW_SURF "), &
2706	& TRIM("slow soil carbon in ground over surface soils "), &
2707	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
2708	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
2709
2710	! passive soil carbon in ground
2711	CALL histdef (hist_id_stom, &
2712	& TRIM("CARBON_PASSIVE_SURF "), &
2713	& TRIM("passive soil carbon in ground over surface soils"), &
2714	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
2715	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
2716
2717	! Long term 2 m temperature
2718	CALL histdef (hist_id_stom, &
2719	& TRIM("T2M_LONGTERM "), &
2720	& TRIM("Longterm 2 m temperature "), &
2721	& TRIM("K "), iim,jjm, hist_hori_id, &
2722	& 1,1,1, -99,32, ave(9), dt, hist_dt)
2723
2724	! Monthly 2 m temperature
2725	CALL histdef (hist_id_stom, &
2726	& TRIM("T2M_MONTH "), &
2727	& TRIM("Monthly 2 m temperature "), &
2728	& TRIM("K "), iim,jjm, hist_hori_id, &
2729	& 1,1,1, -99,32, ave(1), dt, hist_dt)
2730
2731	! "seasonal" 2 m temperature
2732	CALL histdef (hist_id_stom, &
2733	& TRIM("TSEASON "), &
2734	& TRIM("Seasonal 2 m temperature "), &
2735	& TRIM("K "), iim,jjm, hist_hori_id, &
2736	& 1,1,1, -99,32, ave(10), dt, hist_dt)
2737
2738	! how many days after onset
2739	CALL histdef (hist_id_stom, &
2740	& TRIM("TMIN_SPRING_TIME "), &
2741	& TRIM("how many days after onset "), &
2742	& TRIM("days "), iim,jjm, hist_hori_id, &
2743	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
2744
2745	!
2746	CALL histdef (hist_id_stom, &
2747	& TRIM("ONSET_DATE "), &
2748	& TRIM("onset date "), &
2749	& TRIM("day "), iim,jjm, hist_hori_id, &
2750	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
2751
2752	! minimum 2 m temperature
2753	CALL histdef (hist_id_stom, &
2754	& TRIM("T2M_MIN_DAILY "), &
2755	& TRIM("minimum 2 m temperature "), &
2756	& TRIM("K "), iim,jjm, hist_hori_id, &
2757	& 1,1,1, -99,32, ave(10), dt, hist_dt)
2758	! Weekly 2 m temperature
2759	CALL histdef (hist_id_stom, &
2760	& TRIM("T2M_WEEK "), &
2761	& TRIM("Weekly 2 m temperature "), &
2762	& TRIM("K "), iim,jjm, hist_hori_id, &
2763	& 1,1,1, -99,32, ave(1), dt, hist_dt)
2764
2765	! heterotr. resp. from ground
2766	CALL histdef (hist_id_stom, &
2767	& TRIM("HET_RESP "), &
2768	& TRIM("heterotr. resp. from ground "), &
2769	& TRIM("gC/m^2 tot/pft/day "), iim,jjm, hist_hori_id, &
2770	& nvm,1,nvm, hist_PFTaxis_id,32, ave(3), dt, hist_dt)
2771
2772	! Fire fraction on ground
2773	CALL histdef (hist_id_stom, &
2774	& TRIM("FIREFRAC "), &
2775	& TRIM("Fire fraction on ground "), &
2776	& TRIM("1/day "), iim,jjm, hist_hori_id, &
2777	& nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
2778
2779	! Fire index on ground
2780	CALL histdef (hist_id_stom, &
2781	& TRIM("FIREINDEX "), &
2782	& TRIM("Fire index on ground "), &
2783	& TRIM("- "), iim,jjm, hist_hori_id, &
2784	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
2785
2786	! Litter humidity
2787	CALL histdef (hist_id_stom, &
2788	& TRIM("LITTERHUM "), &
2789	& TRIM("Litter humidity "), &
2790	& TRIM("- "), iim,jjm, hist_hori_id, &
2791	& 1,1,1, -99,32, ave(5), dt, hist_dt)
2792
2793	! CO2 flux
2794	CALL histdef (hist_id_stom, &
2795	& TRIM("CO2FLUX "), &
2796	& TRIM("CO2 flux "), &
2797	& TRIM("gC/m^2/pft/mth "), iim,jjm, hist_hori_id, &
2798	& nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
2799
2800	! NONBIOFRAC
2801	CALL histdef (hist_id_stom, &
2802	& TRIM("NONBIOFRAC "), &
2803	& TRIM("Total nonbio fraction of the land "), &
2804	& TRIM(" "), iim,jjm, hist_hori_id, &
2805	& 1,1,1, -99,32, ave(1), dt, hist_dt)
2806
2807	!!$ CALL histdef(hist_id_stom, &
2808	!!$ & TRIM("CO2FLUX_MONTHLY_SUM "), &
2809	!!$ & TRIM("Monthly CO2 flux Sum "), &
2810	!!$ & TRIM("PgC/m^2/mth "), iim,jjm, hist_hori_id, &
2811	!!$ & 1,1,1, -99, 32, 'inst(scatter(X))', dt, hist_dt)
2812
2813	! Output CO2 flux from fire
2814	CALL histdef (hist_id_stom, &
2815	& TRIM("CO2_FIRE "), &
2816	& TRIM("Output Carbon flux from fire including deforestation fire if simulated"), &
2817	& TRIM("gC/day/m^2/pft "), iim,jjm, hist_hori_id, &
2818	& nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
2819
2820	! CO2 taken from atmosphere for initiate growth
2821	CALL histdef (hist_id_stom, &
2822	& TRIM("CO2_TAKEN "), &
2823	& TRIM("CO2 taken from atmosphere for initiate growth "), &
2824	& TRIM("gC/day/m^2/pft "), iim,jjm, hist_hori_id, &
2825	& nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
2826	! Carbon flux from fire
2827	CALL histdef (hist_id_stom, &
2828	& TRIM("CO2_FIRE_NonDef "), &
2829	& TRIM("Fire carbon emissions not including deforestation fire"), &
2830	& TRIM("gC/day/m^2/pft "), iim,jjm, hist_hori_id, &
2831	& nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
2832
2833	! Carbon flux from fire
2834	CALL histdef (hist_id_stom, &
2835	& TRIM("CO2_FIRE_Def "), &
2836	& TRIM("Fire carbon emissions from including deforestation fire"), &
2837	& TRIM("gC/day/m^2/pft "), iim,jjm, hist_hori_id, &
2838	& nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
2839
2840
2841	IF (ok_dgvm) THEN
2842	! total co2 flux (sum over 13 PFTs). when DGVM is activated, the previous
2843	! SUM(CO2FLUX*veget_max) is wrong. We should look at this variable.
2844	CALL histdef (hist_id_stom, &
2845	& TRIM("tCO2FLUX "), &
2846	& TRIM("total CO2flux of 13 PFTs (after adjustment) "), &
2847	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
2848	& 1,1,1, -99,32, ave(10), dt, hist_dt)
2849
2850	! should be the same with tCO2FLUX
2851	CALL histdef (hist_id_stom, &
2852	& TRIM("tCO2FLUX_OLD "), &
2853	& TRIM("total CO2flux of 13 PFTs(multiply by veget_max_old"), &
2854	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
2855	& 1,1,1, -99,32, ave(10), dt, hist_dt)
2856
2857	CALL histdef (hist_id_stom, &
2858	& TRIM("tGPP "), &
2859	& TRIM("total GPP of 13 PFTs (after adjustment) "), &
2860	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
2861	& 1,1,1, -99,32, ave(1), dt, hist_dt)
2862
2863	CALL histdef (hist_id_stom, &
2864	& TRIM("tRESP_GROWTH "), &
2865	& TRIM("total resp growth of 13 PFTs (after adjustment) "), &
2866	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
2867	& 1,1,1, -99,32, ave(1), dt, hist_dt)
2868
2869	CALL histdef (hist_id_stom, &
2870	& TRIM("tRESP_MAINT "), &
2871	& TRIM("total resp maint of 13 PFTs (after adjustment) "), &
2872	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
2873	& 1,1,1, -99,32, ave(1), dt, hist_dt)
2874
2875	CALL histdef (hist_id_stom, &
2876	& TRIM("tRESP_HETERO "), &
2877	& TRIM("total resp hetero of 13 PFTs (after adjustment) "), &
2878	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
2879	& 1,1,1, -99,32, ave(1), dt, hist_dt)
2880
2881	CALL histdef (hist_id_stom, &
2882	& TRIM("tCARBON "), &
2883	& TRIM("total carbon of 13 PFTs (after adjustment) "), &
2884	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
2885	& 1,1,1, -99,32, ave(1), dt, hist_dt)
2886
2887	CALL histdef (hist_id_stom, &
2888	& TRIM("tBIOMASS "), &
2889	& TRIM("total biomass of 13 PFTs (after adjustment) "), &
2890	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
2891	& 1,1,1, -99,32, ave(1), dt, hist_dt)
2892
2893	CALL histdef (hist_id_stom, &
2894	& TRIM("tLITTER "), &
2895	& TRIM("total litter of 13 PFTs (after adjustment) "), &
2896	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
2897	& 1,1,1, -99,32, ave(1), dt, hist_dt)
2898
2899	CALL histdef (hist_id_stom, &
2900	& TRIM("tFUEL1HR "), &
2901	& TRIM("Fuel 1hr of 13 PFTs (after adjustment) "), &
2902	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
2903	& 1,1,1, -99,32, ave(1), dt, hist_dt)
2904
2905	CALL histdef (hist_id_stom, &
2906	& TRIM("tFUEL10HR "), &
2907	& TRIM("Fuel 10hr of 13 PFTs (after adjustment) "), &
2908	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
2909	& 1,1,1, -99,32, ave(1), dt, hist_dt)
2910
2911	CALL histdef (hist_id_stom, &
2912	& TRIM("tFUEL100HR "), &
2913	& TRIM("Fuel 100hr of 13 PFTs (after adjustment) "), &
2914	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
2915	& 1,1,1, -99,32, ave(1), dt, hist_dt)
2916
2917	CALL histdef (hist_id_stom, &
2918	& TRIM("tFUEL1000HR "), &
2919	& TRIM("Fuel 1000hr of 13 PFTs (after adjustment) "), &
2920	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
2921	& 1,1,1, -99,32, ave(1), dt, hist_dt)
2922
2923	CALL histdef (hist_id_stom, &
2924	& TRIM("tSOILC "), &
2925	& TRIM("total soil carbon of 13 PFTs (after adjustment) "), &
2926	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
2927	& 1,1,1, -99,32, ave(1), dt, hist_dt)
2928
2929	CALL histdef (hist_id_stom, &
2930	& TRIM("tDEEPCa "), &
2931	& TRIM("Active permafrost soil carbon of 13 PFTs (after adjustment) "), &
2932	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
2933	& 1,1,1, -99,32, ave(1), dt, hist_dt)
2934
2935	CALL histdef (hist_id_stom, &
2936	& TRIM("tDEEPCs "), &
2937	& TRIM("Slow permafrost soil carbon of 13 PFTs (after adjustment) "), &
2938	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
2939	& 1,1,1, -99,32, ave(1), dt, hist_dt)
2940
2941	CALL histdef (hist_id_stom, &
2942	& TRIM("tDEEPCp "), &
2943	& TRIM("Passive permafrost soil carbon of 13 PFTs (after adjustment) "), &
2944	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
2945	& 1,1,1, -99,32, ave(1), dt, hist_dt)
2946
2947
2948	CALL histdef (hist_id_stom, &
2949	& TRIM("tCO2_TAKEN "), &
2950	& TRIM("total co2_to_bm 13 PFTs (after adjustment) "), &
2951	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
2952	& 1,1,1, -99,32, ave(10), dt, hist_dt)
2953
2954	CALL histdef (hist_id_stom, &
2955	& TRIM("tCO2_FIRE "), &
2956	& TRIM("total co2_fire 13 PFTs (after adjustment) "), &
2957	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
2958	& 1,1,1, -99,32, ave(10), dt, hist_dt)
2959	END IF
2960
2961	! Leaf Area Index
2962	CALL histdef (hist_id_stom, &
2963	& TRIM("LAI "), &
2964	& TRIM("Leaf Area Index "), &
2965	& TRIM("- "), iim,jjm, hist_hori_id, &
2966	& nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
2967
2968	! Leaf Area Index CL1
2969	CALL histdef (hist_id_stom, &
2970	& TRIM("LAI_CL1 "), &
2971	& TRIM("Leaf Area Index CL1 "), &
2972	& TRIM("- "), iim,jjm, hist_hori_id, &
2973	& nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
2974
2975	! Leaf Area Index CL2
2976	CALL histdef (hist_id_stom, &
2977	& TRIM("LAI_CL2 "), &
2978	& TRIM("Leaf Area Index CL2 "), &
2979	& TRIM("- "), iim,jjm, hist_hori_id, &
2980	& nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
2981
2982	! Leaf Area Index CL3
2983	CALL histdef (hist_id_stom, &
2984	& TRIM("LAI_CL3 "), &
2985	& TRIM("Leaf Area Index CL3 "), &
2986	& TRIM("- "), iim,jjm, hist_hori_id, &
2987	& nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
2988
2989	! Leaf Area Index CL4
2990	CALL histdef (hist_id_stom, &
2991	& TRIM("LAI_CL4 "), &
2992	& TRIM("Leaf Area Index CL4 "), &
2993	& TRIM("- "), iim,jjm, hist_hori_id, &
2994	& nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
2995
2996	CALL histdef (hist_id_stom, &
2997	& TRIM("FPC_MAX "), &
2998	& TRIM("foliage projective cover "), &
2999	& TRIM("- "), iim,jjm, hist_hori_id, &
3000	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
3001
3002	CALL histdef (hist_id_stom, &
3003	& TRIM("MAXFPC_LASTYEAR "), &
3004	& TRIM("foliage projective cover of last year "), &
3005	& TRIM("- "), iim,jjm, hist_hori_id, &
3006	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
3007
3008	! Maximum vegetation fraction (LAI -> infinity)
3009	CALL histdef (hist_id_stom, &
3010	& TRIM("VEGET_COV_MAX "), &
3011	& TRIM("Maximum vegetation fraction (LAI -> infinity) "), &
3012	& TRIM("- "), iim,jjm, hist_hori_id, &
3013	& nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
3014
3015	! Net primary productivity
3016	CALL histdef (hist_id_stom, &
3017	& TRIM("NPP "), &
3018	& TRIM("Net primary productivity "), &
3019	& TRIM("gC/day/(m^2 tot) "), iim,jjm, hist_hori_id, &
3020	& nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
3021
3022	! Gross primary productivity
3023	CALL histdef (hist_id_stom, &
3024	& TRIM("GPP "), &
3025	& TRIM("Gross primary productivity "), &
3026	& TRIM("gC/day/m^2 "), iim,jjm, hist_hori_id, &
3027	& nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
3028
3029	! Gross primary productivity CL1
3030	!CALL histdef (hist_id_stom, &
3031	! & TRIM("GPP_CL1 "), &
3032	! & TRIM("Gross primary productivity CL1 "), &
3033	! & TRIM("gC/day/m^2 "), iim,jjm, hist_hori_id, &
3034	! & nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
3035
3036	! Gross primary productivity CL2
3037	!CALL histdef (hist_id_stom, &
3038	! & TRIM("GPP_CL2 "), &
3039	! & TRIM("Gross primary productivity CL2 "), &
3040	! & TRIM("gC/day/m^2 "), iim,jjm, hist_hori_id, &
3041	! & nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
3042
3043	! Gross primary productivity CL3
3044	!CALL histdef (hist_id_stom, &
3045	! & TRIM("GPP_CL3 "), &
3046	! & TRIM("Gross primary productivity CL3 "), &
3047	! & TRIM("gC/day/m^2 "), iim,jjm, hist_hori_id, &
3048	! & nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
3049
3050	! Gross primary productivity CL4
3051	!CALL histdef (hist_id_stom, &
3052	! & TRIM("GPP_CL4 "), &
3053	! & TRIM("Gross primary productivity CL4 "), &
3054	! & TRIM("gC/day/m^2 "), iim,jjm, hist_hori_id, &
3055	! & nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
3056
3057	! Gross primary productivity xc
3058	!CALL histdef (hist_id_stom, &
3059	! & TRIM("GPP_xc "), &
3060	! & TRIM("Gross primary productivity_xc "), &
3061	! & TRIM("gC/day/m^2 "), iim,jjm, hist_hori_id, &
3062	! & nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
3063
3064	! Density of individuals
3065	CALL histdef (hist_id_stom, &
3066	& TRIM("IND "), &
3067	& TRIM("Density of individuals "), &
3068	& TRIM("1/ m^2 "), iim,jjm, hist_hori_id, &
3069	& nvm,1,nvm, hist_PFTaxis_id,32, ave(3), dt, hist_dt)
3070
3071	! Adaptation to climate
3072	CALL histdef (hist_id_stom, &
3073	& TRIM("ADAPTATION "), &
3074	& TRIM("Adaptation to climate (DGVM) "), &
3075	& TRIM("- "), iim,jjm, hist_hori_id, &
3076	& nvm,1,nvm, hist_PFTaxis_id,32, ave(3), dt, hist_dt)
3077
3078	! Probability from regenerative
3079	CALL histdef (hist_id_stom, &
3080	& TRIM("REGENERATION "), &
3081	& TRIM("Probability from regenerative (DGVM) "), &
3082	& TRIM("- "), iim,jjm, hist_hori_id, &
3083	& nvm,1,nvm, hist_PFTaxis_id,32, ave(3), dt, hist_dt)
3084
3085	! crown area of individuals (m**2)
3086	CALL histdef (hist_id_stom, &
3087	& TRIM("CN_IND "), &
3088	& TRIM("crown area of individuals "), &
3089	& TRIM("m^2 "), iim,jjm, hist_hori_id, &
3090	& nvm,1,nvm, hist_PFTaxis_id,32, ave(3), dt, hist_dt)
3091
3092	! woodmass of individuals (gC)
3093	CALL histdef (hist_id_stom, &
3094	& TRIM("WOODMASS_IND "), &
3095	& TRIM("Woodmass of individuals "), &
3096	& TRIM("gC/pft "), iim,jjm, hist_hori_id, &
3097	& nvm,1,nvm, hist_PFTaxis_id,32, ave(3), dt, hist_dt)
3098
3099	! total living biomass
3100	CALL histdef (hist_id_stom, &
3101	& TRIM("TOTAL_M "), &
3102	& TRIM("Total living biomass "), &
3103	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
3104	& nvm,1,nvm, hist_PFTaxis_id,32, ave(4), dt, hist_dt)
3105
3106	! Leaf mass
3107	CALL histdef (hist_id_stom, &
3108	& TRIM("LEAF_M "), &
3109	& TRIM("Leaf mass "), &
3110	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3111	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
3112
3113	! Leaf mass
3114	CALL histdef (hist_id_stom, &
3115	& TRIM("LEAF_BM_CL1 "), &
3116	& TRIM("Leaf mass cl1 "), &
3117	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3118	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
3119
3120	! Leaf mass
3121	CALL histdef (hist_id_stom, &
3122	& TRIM("LEAF_BM_CL2 "), &
3123	& TRIM("Leaf mass cl2 "), &
3124	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3125	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
3126	! Leaf mass
3127	CALL histdef (hist_id_stom, &
3128	& TRIM("LEAF_BM_CL3 "), &
3129	& TRIM("Leaf mass cl3 "), &
3130	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3131	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
3132
3133	! Leaf mass
3134	CALL histdef (hist_id_stom, &
3135	& TRIM("LEAF_BM_CL4 "), &
3136	& TRIM("Leaf mass cl4 "), &
3137	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3138	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
3139
3140	!! yidi
3141	IF (ok_oilpalm) THEN
3142	! PHYTOMER AGE PRE
3143	DO jv = 1, nvm
3144	IF (is_oilpalm(jv)) THEN
3145	WRITE(part_str,'(I2)') jv
3146	IF (jv < 10) part_str(1:1) = '0'
3147	CALL histdef (hist_id_stom, &
3148	& TRIM("PHYTOMER_AGE_PRE_"//part_str(1:LEN_TRIM(part_str))), &
3149	& TRIM("PHYTOMER_AGE_PRE "), &
3150	& TRIM("days "), iim,jjm, hist_hori_id, &
3151	& nphs, 1, nphs, hist_stomate_phytomer,32, ave(2),dt,hist_dt)
3152	END IF
3153	END DO
3154	! PHYTOMER AGE PRIOR
3155	DO jv = 1, nvm
3156	IF (is_oilpalm(jv)) THEN
3157	WRITE(part_str,'(I2)') jv
3158	IF (jv < 10) part_str(1:1) = '0'
3159	CALL histdef (hist_id_stom, &
3160	& TRIM("PHYTOMER_AGE_PRI_"//part_str(1:LEN_TRIM(part_str))), &
3161	& TRIM("PHYTOMER_AGE_PRI "), &
3162	& TRIM("days "), iim,jjm, hist_hori_id, &
3163	& nphs, 1, nphs, hist_stomate_phytomer,32, ave(2),dt,hist_dt)
3164	END IF
3165	END DO
3166	! EACH FFB mass
3167	DO jv = 1, nvm
3168	IF (is_oilpalm(jv)) THEN
3169	WRITE(part_str,'(I2)') jv
3170	IF (jv < 10) part_str(1:1) = '0'
3171	CALL histdef (hist_id_stom, &
3172	& TRIM("BM_FFB_"//part_str(1:LEN_TRIM(part_str))), &
3173	& TRIM("EACH FFB mass "), &
3174	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3175	& nphs, 1, nphs, hist_stomate_phytomer,32, ave(2),dt,hist_dt)
3176	ENDIF
3177	ENDDO
3178
3179	! EACH PHY mass
3180	DO jv = 1, nvm
3181	IF (is_oilpalm(jv)) THEN
3182	WRITE(part_str,'(I2)') jv
3183	IF (jv < 10) part_str(1:1) = '0'
3184	CALL histdef (hist_id_stom, &
3185	& TRIM("BM_PHYTOMER_"//part_str(1:LEN_TRIM(part_str))), &
3186	& TRIM("EACH PHY mass "), &
3187	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3188	& nphs, 1, nphs, hist_stomate_phytomer,32, ave(2),dt,hist_dt)
3189	ENDIF
3190	ENDDO
3191
3192	! EACH alloc FFB mass
3193	DO jv = 1, nvm
3194	IF (is_oilpalm(jv)) THEN
3195	WRITE(part_str,'(I2)') jv
3196	IF (jv < 10) part_str(1:1) = '0'
3197	CALL histdef (hist_id_stom, &
3198	& TRIM("BM_ALLOC_FFB_"//part_str(1:LEN_TRIM(part_str))), &
3199	& TRIM("EACH ALLOC FFB mass "), &
3200	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3201	& nphs, 1, nphs, hist_stomate_phytomer,32, ave(2),dt,hist_dt)
3202	ENDIF
3203	ENDDO
3204
3205	! EACH alloc PHY mass
3206	DO jv = 1, nvm
3207	IF (is_oilpalm(jv)) THEN
3208	WRITE(part_str,'(I2)') jv
3209	IF (jv < 10) part_str(1:1) = '0'
3210	CALL histdef (hist_id_stom, &
3211	& TRIM("BM_ALLOC_PHY_"//part_str(1:LEN_TRIM(part_str))), &
3212	& TRIM("EACH ALLOC PHY mass "), &
3213	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3214	& nphs, 1, nphs, hist_stomate_phytomer,32, ave(2),dt,hist_dt)
3215	ENDIF
3216	ENDDO
3217
3218	ENDIF
3219
3220	! sum op PHY mass
3221	CALL histdef (hist_id_stom, &
3222	& TRIM("PHYBM "), &
3223	& TRIM("SUM PHY mass "), &
3224	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3225	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
3226
3227	! sum op FFB mass
3228	CALL histdef (hist_id_stom, &
3229	& TRIM("FFBBM "), &
3230	& TRIM("SUM FFB mass "), &
3231	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3232	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
3233
3234	! sum op FFBharvest mass
3235	CALL histdef (hist_id_stom, &
3236	& TRIM("FFBHARVEST "), &
3237	& TRIM("FFBHARVEST mass "), &
3238	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3239	& 1,1,1, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
3240
3241	! sum op PHYturn mass
3242	CALL histdef (hist_id_stom, &
3243	& TRIM("PHYTURN "), &
3244	& TRIM("PHYturn mass total "), &
3245	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3246	& 1,1,1, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
3247
3248	! op FFB mass of AGE1
3249	! CALL histdef (hist_id_stom, &
3250	! & TRIM("BM_FFB_AGE1 "), &
3251	! & TRIM("The FFB mass of age1 "), &
3252	! & TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3253	! & nphs,1,nphs, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
3254	!
3255	! ! op phytomer mass of AGE1
3256	! CALL histdef (hist_id_stom, &
3257	! & TRIM("BM_PHYTOMER_AGE1 "), &
3258	! & TRIM("The PHYTOMER mass of age1 "), &
3259	! & TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3260	! & nphs,1,nphs, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
3261	!
3262	! op phytomer mass of AGE2
3263	! CALL histdef (hist_id_stom, &
3264	! & TRIM("BM_PHYTOMER_AGE2 "), &
3265	! & TRIM("The PHYTOMER mass of age2 "), &
3266	! & TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3267	! & nphs,1,nphs, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
3268	!
3269	! ! op phytomer mass of AGE3
3270	! CALL histdef (hist_id_stom, &
3271	! & TRIM("BM_PHYTOMER_AGE3 "), &
3272	! & TRIM("The PHYTOMER mass of age3 "), &
3273	! & TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3274	! & nphs,1,nphs, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
3275	!
3276	! ! op phytomer mass of AGE4
3277	! CALL histdef (hist_id_stom, &
3278	! & TRIM("BM_PHYTOMER_AGE4 "), &
3279	! & TRIM("The PHYTOMER mass of age4 "), &
3280	! & TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3281	! & nphs,1,nphs, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
3282	!
3283	! ! op phytomer mass of AGE5
3284	! CALL histdef (hist_id_stom, &
3285	! & TRIM("BM_PHYTOMER_AGE5 "), &
3286	! & TRIM("The PHYTOMER mass of age5 "), &
3287	! & TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3288	! & nphs,1,nphs, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
3289	!
3290	! ! op phytomer mass of AGE6
3291	! CALL histdef (hist_id_stom, &
3292	! & TRIM("BM_PHYTOMER_AGE6 "), &
3293	! & TRIM("The PHYTOMER mass of age6 "), &
3294	! & TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3295	! & nphs,1,nphs, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
3296	!
3297	!! yidi
3298
3299	! Sap mass above ground
3300	CALL histdef (hist_id_stom, &
3301	& TRIM("SAP_M_AB "), &
3302	& TRIM("Sap mass above ground "), &
3303	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3304	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
3305
3306	! Sap mass below ground
3307	CALL histdef (hist_id_stom, &
3308	& TRIM("SAP_M_BE "), &
3309	& TRIM("Sap mass below ground "), &
3310	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3311	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
3312
3313	! Heartwood mass above ground
3314	CALL histdef (hist_id_stom, &
3315	& TRIM("HEART_M_AB "), &
3316	& TRIM("Heartwood mass above ground "), &
3317	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3318	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
3319
3320	! Heartwood mass below ground
3321	CALL histdef (hist_id_stom, &
3322	& TRIM("HEART_M_BE "), &
3323	& TRIM("Heartwood mass below ground "), &
3324	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3325	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
3326
3327	! Root mass
3328	CALL histdef (hist_id_stom, &
3329	& TRIM("ROOT_M "), &
3330	& TRIM("Root mass "), &
3331	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3332	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
3333
3334	! Fruit mass
3335	CALL histdef (hist_id_stom, &
3336	& TRIM("FRUIT_M "), &
3337	& TRIM("Fruit mass "), &
3338	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3339	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
3340	!!!!! crops
3341
3342	! Fruit mass -- here we assign the fruit mass to cropyield
3343	CALL histdef (hist_id_stom, &
3344	& TRIM("CROPYIELD "), &
3345	& TRIM("crop yield "), &
3346	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3347	& nvm,1,nvm, hist_PFTaxis_id,32, tmax(1), dt, hist_dt)
3348
3349
3350	CALL histdef (hist_id_stom, &
3351	& TRIM("BIOMYIELD "), &
3352	& TRIM("total biomass yield "), &
3353	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3354	& nvm,1,nvm, hist_PFTaxis_id,32, tmax(1), dt, hist_dt)
3355
3356
3357	CALL histdef (hist_id_stom, &
3358	& TRIM("CROP_EXPORT "), &
3359	& TRIM("c export from cropland (harvest + straws) "), &
3360	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3361	& nvm,1,nvm, hist_PFTaxis_id,32, ave(3), dt, hist_dt)
3362
3363	! SLA of crop PFTs
3364	CALL histdef (hist_id_stom, &
3365	& TRIM("SLA_CROP "), &
3366	& TRIM("specific leaf area of crop PFTs"), &
3367	& TRIM("- "), iim,jjm, hist_hori_id, &
3368	& nvm,1,nvm, hist_PFTaxis_id,32, ave(3), dt, hist_dt)
3369
3370	CALL histdef(hist_id_stom, 'N_add', 'Nitrogen Fertilizer', 'kgN/ha', &
3371	& iim,jjm, hist_hori_id, nvm,1,nvm, hist_PFTaxis_id, 32, 'once(scatter(X))', dt, hist_dt)
3372	!!!! this could be overlapping with PLNTDT
3373	CALL histdef(hist_id_stom, 'PlantDate', 'Planting Date of the crop', 'DOY', &
3374	& iim,jjm, hist_hori_id, nvm,1,nvm, hist_PFTaxis_id, 32, 'once(scatter(X))', dt, hist_dt)
3375
3376
3377	!STICS variables, xuhui
3378	! UDEVAIR
3379	CALL histdef (hist_id_stom, &
3380	& TRIM("UDEVCULT "), &
3381	& TRIM("UDEV USING CROP TEMPERATURE "), &
3382	& TRIM("- "), iim,jjm, hist_hori_id, &
3383	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
3384	! UDEVCULT
3385	CALL histdef (hist_id_stom, &
3386	& TRIM("UDEVAIR "), &
3387	& TRIM("UDEV USING AIR TEMPERATURE "), &
3388	& TRIM("- "), iim,jjm, hist_hori_id, &
3389	& nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
3390
3391	! TCULT
3392	CALL histdef (hist_id_stom, &
3393	& TRIM("TCULT "), &
3394	& TRIM("CROP TEMPERATURE "), &
3395	& TRIM("degree celsius "), iim,jjm, hist_hori_id, &
3396	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
3397	! SHUMREL
3398	CALL histdef (hist_id_stom, &
3399	& TRIM("SHUMREL "), &
3400	& TRIM("RELATIVE SOIL MOISURE TO HOLDING CAPACITY AT SOWING DEPTH "), &
3401	& TRIM("- "), iim,jjm, hist_hori_id, &
3402	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
3403	! TURFAC
3404	CALL histdef (hist_id_stom, &
3405	& TRIM("TURFAC "), &
3406	& TRIM("WATER STRESS FOR LEAF GROWTH "), &
3407	& TRIM("- "), iim,jjm, hist_hori_id, &
3408	& nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
3409	! TURSLA
3410	CALL histdef (hist_id_stom, &
3411	& TRIM("TURSLA "), &
3412	& TRIM("STRESS FOR SPECIFIC LEAF AREA "), &
3413	& TRIM("- "), iim,jjm, hist_hori_id, &
3414	& nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
3415	! DLTLAI
3416	CALL histdef (hist_id_stom, &
3417	& TRIM("DLTLAI "), &
3418	& TRIM("LAI CHANGE ESTIMATED BY CROP MODULE "), &
3419	& TRIM("- "), iim,jjm, hist_hori_id, &
3420	& nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
3421
3422	! DLTLAISEN
3423	CALL histdef (hist_id_stom, &
3424	& TRIM("DLTLAISEN "), &
3425	& TRIM("LAI SENECENSE ESTIMATED BY CROP MODULE "), &
3426	& TRIM("- "), iim,jjm, hist_hori_id, &
3427	& nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
3428	! IRCARB
3429	CALL histdef (hist_id_stom, &
3430	& TRIM("IRCARB "), &
3431	& TRIM("PARTITIONING OF GRAIN BIOMASS "), &
3432	& TRIM("- "), iim,jjm, hist_hori_id, &
3433	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
3434
3435	! SWFAC
3436	CALL histdef (hist_id_stom, &
3437	& TRIM("SWFAC "), &
3438	& TRIM("WATER STRESS FOR RUE "), &
3439	& TRIM("- "), iim,jjm, hist_hori_id, &
3440	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
3441	! SENFAC
3442	CALL histdef (hist_id_stom, &
3443	& TRIM("SENFAC "), &
3444	& TRIM("WATER STRESS FOR LEAF SENESCENCE "), &
3445	& TRIM("- "), iim,jjm, hist_hori_id, &
3446	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
3447	! REPRAC
3448	CALL histdef (hist_id_stom, &
3449	& TRIM("REPRAC "), &
3450	& TRIM("ratio of root to total living biomass "), &
3451	& TRIM("- "), iim,jjm, hist_hori_id, &
3452	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
3453	! NLEV
3454	CALL histdef (hist_id_stom, &
3455	& TRIM("NLEV "), &
3456	& TRIM("DATE FOR LEAF EMERGE "), &
3457	& TRIM("JULIE DAY "), iim,jjm, hist_hori_id, &
3458	& nvm,1,nvm, hist_PFTaxis_id,32, tmax(3), dt, hist_dt)
3459
3460	! NFLO
3461	CALL histdef (hist_id_stom, &
3462	& TRIM("NFLO "), &
3463	& TRIM("DATE FOR CROP FLOWERING "), &
3464	& TRIM("JULIE DAY "), iim,jjm, hist_hori_id, &
3465	& nvm,1,nvm, hist_PFTaxis_id,32, tmax(1), dt, hist_dt)
3466	! NDRP
3467	CALL histdef (hist_id_stom, &
3468	& TRIM("NDRP "), &
3469	& TRIM("DATE FOR GRAIN FILLING "), &
3470	& TRIM("JULIE DAY "), iim,jjm, hist_hori_id, &
3471	& nvm,1,nvm, hist_PFTaxis_id,32, tmax(1), dt, hist_dt)
3472	! NREC
3473	CALL histdef (hist_id_stom, &
3474	& TRIM("NREC "), &
3475	& TRIM("DATE FOR HARVEST "), &
3476	& TRIM("JULIE DAY "), iim,jjm, hist_hori_id, &
3477	& nvm,1,nvm, hist_PFTaxis_id,32, tmax(1), dt, hist_dt)
3478	! NMAT
3479	CALL histdef (hist_id_stom, &
3480	& TRIM("NMAT "), &
3481	& TRIM("DATE FOR PHYSIOLOGICAL MATURE "), &
3482	& TRIM("JULIE DAY "), iim,jjm, hist_hori_id, &
3483	& nvm,1,nvm, hist_PFTaxis_id,32, tmax(3), dt, hist_dt)
3484
3485
3486	! ! N_ADD
3487	! CALL histdef (hist_id_stom, &
3488	! & TRIM("N_ADD "), &
3489	! & TRIM("AVERAGE N FERTILIZATION AMOUNT "), &
3490	! & TRIM("KG N HA-1 "), iim,jjm, hist_hori_id, &
3491	! & nvm,1,nvm, hist_PFTaxis_id,32, tmax(1), dt, hist_dt)
3492
3493
3494	! N_LIMFERT
3495	CALL histdef (hist_id_stom, &
3496	& TRIM("N_LIMFERT "), &
3497	& TRIM("THE EFFECTIVE OF N FERTILIZATION ON PHOTOSYNTHESE "), &
3498	& TRIM("UNITLESS "), iim,jjm, hist_hori_id, &
3499	& nvm,1,nvm, hist_PFTaxis_id,32, tmax(1), dt, hist_dt)
3500	! PLNTDT
3501	CALL histdef (hist_id_stom, &
3502	& TRIM("PLNTDT "), &
3503	& TRIM("DATE FOR PLANTING "), &
3504	& TRIM("JULIE DAY "), iim,jjm, hist_hori_id, &
3505	& nvm,1,nvm, hist_PFTaxis_id,32, tmax(3), dt, hist_dt)
3506
3507
3508
3509	!!!!! end crops, xuhui
3510
3511	! Carbohydrate reserve mass
3512	CALL histdef (hist_id_stom, &
3513	& TRIM("RESERVE_M "), &
3514	& TRIM("Carbohydrate reserve mass "), &
3515	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
3516	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
3517
3518	! total turnover rate
3519	CALL histdef (hist_id_stom, &
3520	& TRIM("TOTAL_TURN "), &
3521	& TRIM("total turnover rate "), &
3522	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
3523	& nvm,1,nvm, hist_PFTaxis_id,32, ave(4), dt, hist_dt)
3524
3525	! Leaf turnover
3526	CALL histdef (hist_id_stom, &
3527	& TRIM("LEAF_TURN "), &
3528	& TRIM("Leaf turnover "), &
3529	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
3530	& nvm,1,nvm, hist_PFTaxis_id,32, ave(4), dt, hist_dt)
3531
3532	! Sap turnover above
3533	CALL histdef (hist_id_stom, &
3534	& TRIM("SAP_AB_TURN "), &
3535	& TRIM("Sap turnover above "), &
3536	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
3537	& nvm,1,nvm, hist_PFTaxis_id,32, ave(4), dt, hist_dt)
3538
3539	! Root turnover
3540	CALL histdef (hist_id_stom, &
3541	& TRIM("ROOT_TURN "), &
3542	& TRIM("Root turnover "), &
3543	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
3544	& nvm,1,nvm, hist_PFTaxis_id,32, ave(4), dt, hist_dt)
3545
3546	! Fruit turnover
3547	CALL histdef (hist_id_stom, &
3548	& TRIM("FRUIT_TURN "), &
3549	& TRIM("Fruit turnover "), &
3550	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
3551	& nvm,1,nvm, hist_PFTaxis_id,32, ave(4), dt, hist_dt)
3552
3553	! total conversion of biomass to litter
3554	CALL histdef (hist_id_stom, &
3555	& TRIM("TOTAL_BM_LITTER "), &
3556	& TRIM("total conversion of biomass to litter "), &
3557	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
3558	& nvm,1,nvm, hist_PFTaxis_id,32, ave(4), dt, hist_dt)
3559
3560	! Leaf death
3561	CALL histdef (hist_id_stom, &
3562	& TRIM("LEAF_BM_LITTER "), &
3563	& TRIM("Leaf death "), &
3564	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
3565	& nvm,1,nvm, hist_PFTaxis_id,32, ave(4), dt, hist_dt)
3566
3567	! Sap death above ground
3568	CALL histdef (hist_id_stom, &
3569	& TRIM("SAP_AB_BM_LITTER "), &
3570	& TRIM("Sap death above ground "), &
3571	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
3572	& nvm,1,nvm, hist_PFTaxis_id,32, ave(4), dt, hist_dt)
3573
3574	! Sap death below ground
3575	CALL histdef (hist_id_stom, &
3576	& TRIM("SAP_BE_BM_LITTER "), &
3577	& TRIM("Sap death below ground "), &
3578	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
3579	& nvm,1,nvm, hist_PFTaxis_id,32, ave(4), dt, hist_dt)
3580
3581	! Heartwood death above ground
3582	CALL histdef (hist_id_stom, &
3583	& TRIM("HEART_AB_BM_LITTER "), &
3584	& TRIM("Heartwood death above ground "), &
3585	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
3586	& nvm,1,nvm, hist_PFTaxis_id,32, ave(4), dt, hist_dt)
3587
3588	! Heartwood death below ground
3589	CALL histdef (hist_id_stom, &
3590	& TRIM("HEART_BE_BM_LITTER "), &
3591	& TRIM("Heartwood death below ground "), &
3592	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
3593	& nvm,1,nvm, hist_PFTaxis_id,32, ave(4), dt, hist_dt)
3594
3595	! Root death
3596	CALL histdef (hist_id_stom, &
3597	& TRIM("ROOT_BM_LITTER "), &
3598	& TRIM("Root death "), &
3599	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
3600	& nvm,1,nvm, hist_PFTaxis_id,32, ave(4), dt, hist_dt)
3601
3602	! Fruit death
3603	CALL histdef (hist_id_stom, &
3604	& TRIM("FRUIT_BM_LITTER "), &
3605	& TRIM("Fruit death "), &
3606	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
3607	& nvm,1,nvm, hist_PFTaxis_id,32, ave(4), dt, hist_dt)
3608
3609	! Carbohydrate reserve death
3610	CALL histdef (hist_id_stom, &
3611	& TRIM("RESERVE_BM_LITTER "), &
3612	& TRIM("Carbohydrate reserve death "), &
3613	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
3614	& nvm,1,nvm, hist_PFTaxis_id,32, ave(4), dt, hist_dt)
3615
3616	! Maintenance respiration
3617	CALL histdef (hist_id_stom, &
3618	& TRIM("MAINT_RESP "), &
3619	& TRIM("Maintenance respiration "), &
3620	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
3621	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
3622
3623	! Growth respiration
3624	CALL histdef (hist_id_stom, &
3625	& TRIM("GROWTH_RESP "), &
3626	& TRIM("Growth respiration "), &
3627	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
3628	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
3629
3630	! age
3631	CALL histdef (hist_id_stom, &
3632	& TRIM("AGE "), &
3633	& TRIM("age "), &
3634	& TRIM("years "), iim,jjm, hist_hori_id, &
3635	& nvm,1,nvm, hist_PFTaxis_id,32, ave(7), dt, hist_dt)
3636
3637	! height
3638	CALL histdef (hist_id_stom, &
3639	& TRIM("HEIGHT "), &
3640	& TRIM("height "), &
3641	& TRIM("m "), iim,jjm, hist_hori_id, &
3642	& nvm,1,nvm, hist_PFTaxis_id,32, ave(7), dt, hist_dt)
3643
3644	! weekly moisture stress
3645	CALL histdef (hist_id_stom, &
3646	& TRIM("MOISTRESS "), &
3647	& TRIM("weekly moisture stress "), &
3648	& TRIM("- "), iim,jjm, hist_hori_id, &
3649	& nvm,1,nvm, hist_PFTaxis_id,32, ave(3), dt, hist_dt)
3650
3651	! Maximum rate of carboxylation
3652	CALL histdef (hist_id_stom, &
3653	& TRIM("VCMAX "), &
3654	& TRIM("Maximum rate of carboxylation "), &
3655	& TRIM("- "), iim,jjm, hist_hori_id, &
3656	& nvm,1,nvm, hist_PFTaxis_id,32, ave(6), dt, hist_dt)
3657
3658
3659	! VCMAX_CL1
3660	CALL histdef (hist_id_stom, &
3661	& TRIM("VCMAX_CL1 "), &
3662	& TRIM("Maximum rate of carboxylation of CL1 "), &
3663	& TRIM("- "), iim,jjm, hist_hori_id, &
3664	& nvm,1,nvm, hist_PFTaxis_id,32, ave(6), dt, hist_dt)
3665
3666
3667	! VCMAX_CL2
3668	CALL histdef (hist_id_stom, &
3669	& TRIM("VCMAX_CL2 "), &
3670	& TRIM("Maximum rate of carboxylation of CL2 "), &
3671	& TRIM("- "), iim,jjm, hist_hori_id, &
3672	& nvm,1,nvm, hist_PFTaxis_id,32, ave(6), dt, hist_dt)
3673
3674
3675	! VCMAX_CL3
3676	CALL histdef (hist_id_stom, &
3677	& TRIM("VCMAX_CL3 "), &
3678	& TRIM("Maximum rate of carboxylation of CL3 "), &
3679	& TRIM("- "), iim,jjm, hist_hori_id, &
3680	& nvm,1,nvm, hist_PFTaxis_id,32, ave(6), dt, hist_dt)
3681
3682	! VCMAX_CL4
3683	CALL histdef (hist_id_stom, &
3684	& TRIM("VCMAX_CL4 "), &
3685	& TRIM("Maximum rate of carboxylation of CL4 "), &
3686	& TRIM("- "), iim,jjm, hist_hori_id, &
3687	& nvm,1,nvm, hist_PFTaxis_id,32, ave(6), dt, hist_dt)
3688
3689	! leaf age
3690	CALL histdef (hist_id_stom, &
3691	& TRIM("LEAF_AGE "), &
3692	& TRIM("leaf age "), &
3693	& TRIM("days "), iim,jjm, hist_hori_id, &
3694	& nvm,1,nvm, hist_PFTaxis_id,32, ave(6), dt, hist_dt)
3695
3696	! leaf age CL1
3697	CALL histdef (hist_id_stom, &
3698	& TRIM("LEAF_AGE_CL1 "), &
3699	& TRIM("leaf age cl1 "), &
3700	& TRIM("days "), iim,jjm, hist_hori_id, &
3701	& nvm,1,nvm, hist_PFTaxis_id,32, ave(6), dt, hist_dt)
3702
3703	! leaf age CL2
3704	CALL histdef (hist_id_stom, &
3705	& TRIM("LEAF_AGE_CL2 "), &
3706	& TRIM("leaf age cl2 "), &
3707	& TRIM("days "), iim,jjm, hist_hori_id, &
3708	& nvm,1,nvm, hist_PFTaxis_id,32, ave(6), dt, hist_dt)
3709
3710	! leaf age CL3
3711	CALL histdef (hist_id_stom, &
3712	& TRIM("LEAF_AGE_CL3 "), &
3713	& TRIM("leaf age cl3 "), &
3714	& TRIM("days "), iim,jjm, hist_hori_id, &
3715	& nvm,1,nvm, hist_PFTaxis_id,32, ave(6), dt, hist_dt)
3716
3717
3718	! leaf age CL4
3719	CALL histdef (hist_id_stom, &
3720	& TRIM("LEAF_AGE_CL4 "), &
3721	& TRIM("leaf age cl4 "), &
3722	& TRIM("days "), iim,jjm, hist_hori_id, &
3723	& nvm,1,nvm, hist_PFTaxis_id,32, ave(6), dt, hist_dt)
3724
3725	! Fraction of trees that dies (gap)
3726	! Fraction of trees that dies (gap)
3727	CALL histdef (hist_id_stom, &
3728	& TRIM("MORTALITY "), &
3729	& TRIM("Fraction of trees that dies (gap) "), &
3730	& TRIM("1/day "), iim,jjm, hist_hori_id, &
3731	& nvm,1,nvm, hist_PFTaxis_id,32, ave(6), dt, hist_dt)
3732
3733	! Fraction of plants killed by fire
3734	CALL histdef (hist_id_stom, &
3735	& TRIM("FIREDEATH "), &
3736	& TRIM("Fraction of plants killed by fire "), &
3737	& TRIM("1/day "), iim,jjm, hist_hori_id, &
3738	& nvm,1,nvm, hist_PFTaxis_id,32, ave(6), dt, hist_dt)
3739
3740	! Density of newly established saplings
3741	CALL histdef (hist_id_stom, &
3742	& TRIM("IND_ESTAB "), &
3743	& TRIM("Density of newly established saplings "), &
3744	& TRIM("1/day "), iim,jjm, hist_hori_id, &
3745	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
3746
3747	! Establish tree
3748	CALL histdef (hist_id_stom, &
3749	& TRIM("ESTABTREE "), &
3750	& TRIM("Rate of tree establishement "), &
3751	& TRIM("1/day "), iim,jjm, hist_hori_id, &
3752	& 1,1,1, -99,32, ave(10), dt, hist_dt)
3753
3754	! Establish grass
3755	CALL histdef (hist_id_stom, &
3756	& TRIM("ESTABGRASS "), &
3757	& TRIM("Rate of grass establishement "), &
3758	& TRIM("1/day "), iim,jjm, hist_hori_id, &
3759	& 1,1,1, -99,32, ave(6), dt, hist_dt)
3760
3761	! Fraction of plants that dies (light competition)
3762	CALL histdef (hist_id_stom, &
3763	& TRIM("LIGHT_DEATH "), &
3764	& TRIM("Fraction of plants that dies (light competition) "), &
3765	& TRIM("1/day "), iim,jjm, hist_hori_id, &
3766	& nvm,1,nvm, hist_PFTaxis_id,32, ave(6), dt, hist_dt)
3767
3768	! biomass allocated to leaves
3769	CALL histdef (hist_id_stom, &
3770	& TRIM("BM_ALLOC_LEAF "), &
3771	& TRIM("biomass allocated to leaves "), &
3772	& TRIM("gC/m**2/pft/dt "), iim,jjm, hist_hori_id, &
3773	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
3774
3775	! biomass allocated to sapwood above ground
3776	CALL histdef (hist_id_stom, &
3777	& TRIM("BM_ALLOC_SAP_AB "), &
3778	& TRIM("biomass allocated to sapwood above ground "), &
3779	& TRIM("gC/m**2/pft/dt "), iim,jjm, hist_hori_id, &
3780	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
3781
3782	! biomass allocated to sapwood below ground
3783	CALL histdef (hist_id_stom, &
3784	& TRIM("BM_ALLOC_SAP_BE "), &
3785	& TRIM("biomass allocated to sapwood below ground "), &
3786	& TRIM("gC/m**2/pft/dt "), iim,jjm, hist_hori_id, &
3787	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
3788
3789	! biomass allocated to roots
3790	CALL histdef (hist_id_stom, &
3791	& TRIM("BM_ALLOC_ROOT "), &
3792	& TRIM("biomass allocated to roots "), &
3793	& TRIM("gC/m**2/pft/dt "), iim,jjm, hist_hori_id, &
3794	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
3795
3796	! biomass allocated to fruits
3797	CALL histdef (hist_id_stom, &
3798	& TRIM("BM_ALLOC_FRUIT "), &
3799	& TRIM("biomass allocated to fruits "), &
3800	& TRIM("gC/m**2/pft/dt "), iim,jjm, hist_hori_id, &
3801	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
3802
3803	! biomass allocated to carbohydrate reserve
3804	CALL histdef (hist_id_stom, &
3805	& TRIM("BM_ALLOC_RES "), &
3806	& TRIM("biomass allocated to carbohydrate reserve "), &
3807	& TRIM("gC/m**2/pft/dt "), iim,jjm, hist_hori_id, &
3808	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
3809
3810	! time constant of herbivore activity
3811	CALL histdef (hist_id_stom, &
3812	& TRIM("HERBIVORES "), &
3813	& TRIM("time constant of herbivore activity "), &
3814	& TRIM("days "), iim,jjm, hist_hori_id, &
3815	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
3816
3817	CALL histdef (hist_id_stom, &
3818	& TRIM("SENESCENCE "), &
3819	& TRIM("Signal to senescence "), &
3820	& TRIM("- "), iim,jjm, hist_hori_id, &
3821	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
3822
3823	! turnover time for grass leaves
3824	CALL histdef (hist_id_stom, &
3825	& TRIM("TURNOVER_TIME "), &
3826	& TRIM("turnover time for grass leaves "), &
3827	& TRIM("days "), iim,jjm, hist_hori_id, &
3828	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
3829
3830	! 10 year wood product pool
3831	CALL histdef (hist_id_stom, &
3832	& TRIM("PROD10_LCC "), &
3833	& TRIM("10 year wood product pool "), &
3834	& TRIM("gC/m**2 "), iim,jjm, hist_hori_id, &
3835	& 11,1,11, hist_pool_11axis_id,32, ave(5), dt, hist_dt)
3836
3837	! 10 year wood product pool
3838	CALL histdef (hist_id_stom, &
3839	& TRIM("PROD10_HAR "), &
3840	& TRIM("10 year wood product pool "), &
3841	& TRIM("gC/m**2 "), iim,jjm, hist_hori_id, &
3842	& 11,1,11, hist_pool_11axis_id,32, ave(5), dt, hist_dt)
3843
3844	! annual flux for each 10 year wood product pool
3845	CALL histdef (hist_id_stom, &
3846	& TRIM("FLUX10_LCC "), &
3847	& TRIM("annual flux for each 10 year wood product pool "), &
3848	& TRIM("gC/m**2/yr "), iim,jjm, hist_hori_id, &
3849	& 10,1,10, hist_pool_10axis_id,32, ave(5), dt, hist_dt)
3850	! annual flux for each 10 year wood product pool
3851	CALL histdef (hist_id_stom, &
3852	& TRIM("FLUX10_HAR "), &
3853	& TRIM("annual flux for each 10 year wood product pool "), &
3854	& TRIM("gC/m**2/yr "), iim,jjm, hist_hori_id, &
3855	& 10,1,10, hist_pool_10axis_id,32, ave(5), dt, hist_dt)
3856
3857	! 100 year wood product pool
3858	CALL histdef (hist_id_stom, &
3859	& TRIM("PROD100_LCC "), &
3860	& TRIM("100 year wood product pool "), &
3861	& TRIM("gC/m**2 "), iim,jjm, hist_hori_id, &
3862	& 101,1,101, hist_pool_101axis_id,32, ave(5), dt, hist_dt)
3863
3864	! 100 year wood product pool
3865	CALL histdef (hist_id_stom, &
3866	& TRIM("PROD100_HAR "), &
3867	& TRIM("100 year wood product pool "), &
3868	& TRIM("gC/m**2 "), iim,jjm, hist_hori_id, &
3869	& 101,1,101, hist_pool_101axis_id,32, ave(5), dt, hist_dt)
3870
3871	! annual flux for each 100 year wood product pool
3872	CALL histdef (hist_id_stom, &
3873	& TRIM("FLUX100_LCC "), &
3874	& TRIM("annual flux for each 100 year wood product pool "), &
3875	& TRIM("gC/m**2/yr "), iim,jjm, hist_hori_id, &
3876	& 100,1,100, hist_pool_100axis_id,32, ave(5), dt, hist_dt)
3877
3878	! annual flux for each 100 year wood product pool
3879	CALL histdef (hist_id_stom, &
3880	& TRIM("FLUX100_HAR "), &
3881	& TRIM("annual flux for each 100 year wood product pool "), &
3882	& TRIM("gC/m**2/yr "), iim,jjm, hist_hori_id, &
3883	& 100,1,100, hist_pool_100axis_id,32, ave(5), dt, hist_dt)
3884
3885	! annual release right after deforestation
3886	CALL histdef (hist_id_stom, &
3887	& TRIM("CONVFLUX_LCC "), &
3888	& TRIM("annual release right after deforestation "), &
3889	& TRIM("gC/m**2/day "), iim,jjm, hist_hori_id, &
3890	& 1,1,1, -99,32, ave(5), dt, hist_dt)
3891
3892	! annual release right after deforestation
3893	CALL histdef (hist_id_stom, &
3894	& TRIM("CONVFLUX_HAR "), &
3895	& TRIM("annual release right after deforestation "), &
3896	& TRIM("gC/m**2/day "), iim,jjm, hist_hori_id, &
3897	& 1,1,1, -99,32, ave(5), dt, hist_dt)
3898	! annual release from all 10 year wood product pools
3899	CALL histdef (hist_id_stom, &
3900	& TRIM("CFLUX_PROD10_LCC "), &
3901	& TRIM("annual release from all 10 year wood product pools"), &
3902	& TRIM("gC/m**2/day "), iim,jjm, hist_hori_id, &
3903	& 1,1,1, -99,32, ave(5), dt, hist_dt)
3904
3905	! annual release from all 10 year wood product pools
3906	CALL histdef (hist_id_stom, &
3907	& TRIM("CFLUX_PROD10_HAR "), &
3908	& TRIM("annual release from all 10 year wood product pools"), &
3909	& TRIM("gC/m**2/day "), iim,jjm, hist_hori_id, &
3910	& 1,1,1, -99,32, ave(5), dt, hist_dt)
3911
3912	! annual release from all 100year wood product pools
3913	CALL histdef (hist_id_stom, &
3914	& TRIM("CFLUX_PROD100_LCC "), &
3915	& TRIM("annual release from all 100year wood product pools"), &
3916	& TRIM("gC/m**2/day "), iim,jjm, hist_hori_id, &
3917	& 1,1,1, -99,32, ave(5), dt, hist_dt)
3918
3919	! annual release from all 100year wood product pools
3920	CALL histdef (hist_id_stom, &
3921	& TRIM("CFLUX_PROD100_HAR "), &
3922	& TRIM("annual release from all 100year wood product pools"), &
3923	& TRIM("gC/m**2/day "), iim,jjm, hist_hori_id, &
3924	& 1,1,1, -99,32, ave(5), dt, hist_dt)
3925
3926	! WOOD HARVEST
3927	CALL histdef (hist_id_stom, &
3928	& TRIM("WOOD_HARVEST "), &
3929	& TRIM("harvested wood biomass"), &
3930	& TRIM("gC/m**2/day "), iim,jjm, hist_hori_id, &
3931	& 1,1,1, -99,32, ave(5), dt, hist_dt)
3932
3933	CALL histdef (hist_id_stom, &
3934	& TRIM("WOOD_HARVEST_PFT "), &
3935	& TRIM("harvested wood biomass per PFT"), &
3936	& TRIM("gC/m**2/day "), iim,jjm, hist_hori_id, &
3937	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
3938
3939	! agriculure product
3940	CALL histdef (hist_id_stom, &
3941	& TRIM("HARVEST_ABOVE "), &
3942	& TRIM("annual release product after harvest "), &
3943	& TRIM("gC/m**2/day "), iim,jjm, hist_hori_id, &
3944	& 1,1,1, -99,32, ave(5), dt, hist_dt)
3945
3946
3947	CALL histdef(hist_id_stom, 'RESOLUTION_X', 'E-W resolution', 'm', &
3948	& iim,jjm, hist_hori_id, 1,1,1, -99, 32, 'once(scatter(X))', dt, hist_dt)
3949	CALL histdef(hist_id_stom, 'RESOLUTION_Y', 'N-S resolution', 'm', &
3950	& iim,jjm, hist_hori_id, 1,1,1, -99, 32, 'once(scatter(X))', dt, hist_dt)
3951	CALL histdef(hist_id_stom, 'CONTFRAC', 'Continental fraction', '1', &
3952	& iim,jjm, hist_hori_id, 1,1,1, -99, 32, 'once(scatter(X))', dt, hist_dt)
3953	CALL histdef(hist_id_stom, 'Areas', 'Mesh areas', 'm2', &
3954	& iim,jjm, hist_hori_id, 1,1,1, -99, 32, 'once(scatter(X))', dt, hist_dt)
3955
3956	! Special outputs for phenology
3957	CALL histdef (hist_id_stom, &
3958	& TRIM("WHEN_GROWTHINIT "), &
3959	& TRIM("Time elapsed from season beginning "), &
3960	& TRIM("d "), iim,jjm, hist_hori_id, &
3961	& nvm,1,nvm, hist_PFTaxis_id,32, ave(9), dt, hist_dt)
3962
3963	CALL histdef (hist_id_stom, &
3964	& TRIM("PFTPRESENT "), &
3965	& TRIM("PFT exists "), &
3966	& TRIM("d "), iim,jjm, hist_hori_id, &
3967	& nvm,1,nvm, hist_PFTaxis_id,32, ave(9), dt, hist_dt)
3968
3969	CALL histdef (hist_id_stom, &
3970	& TRIM("GDD_MIDWINTER "), &
3971	& TRIM("Growing degree days, since midwinter "), &
3972	& TRIM("degK "), iim,jjm, hist_hori_id, &
3973	& nvm,1,nvm, hist_PFTaxis_id,32, ave(9), dt, hist_dt)
3974
3975	CALL histdef (hist_id_stom, &
3976	& TRIM("GDD_M5_DORMANCE "), &
3977	& TRIM("Growing degree days, since dormance "), &
3978	& TRIM("degK "), iim,jjm, hist_hori_id, &
3979	& nvm,1,nvm, hist_PFTaxis_id,32, ave(9), dt, hist_dt)
3980
3981	CALL histdef (hist_id_stom, &
3982	& TRIM("NCD_DORMANCE "), &
3983	& TRIM("Number of chilling days, since leaves were lost "), &
3984	& TRIM("d "), iim,jjm, hist_hori_id, &
3985	& nvm,1,nvm, hist_PFTaxis_id,32, ave(9), dt, hist_dt)
3986
3987	CALL histdef (hist_id_stom, &
3988	& TRIM("ALLOW_INITPHENO "), &
3989	& TRIM("Allow to declare beginning of the growing season "), &
3990	& TRIM("- "), iim,jjm, hist_hori_id, &
3991	& nvm,1,nvm, hist_PFTaxis_id,32, ave(9), dt, hist_dt)
3992
3993	CALL histdef (hist_id_stom, &
3994	& TRIM("BEGIN_LEAVES "), &
3995	& TRIM("Signal to start putting leaves on "), &
3996	& TRIM("- "), iim,jjm, hist_hori_id, &
3997	& nvm,1,nvm, hist_PFTaxis_id,32, ave(9), dt, hist_dt)
3998
3999	!gmjc
4000	!GM0
4001	CALL histdef (hist_id_stom, &
4002	& TRIM("GRAZINGC "), &
4003	& TRIM("Grazing C "), &
4004	& TRIM("kgC/m^2/day "), iim,jjm, hist_hori_id, &
4005	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4006	!GM1
4007	CALL histdef (hist_id_stom, &
4008	& TRIM("GRAZINGCSUM "), &
4009	& TRIM("- "), &
4010	& TRIM("- "), iim,jjm, hist_hori_id, &
4011	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4012
4013	CALL histdef (hist_id_stom, &
4014	& TRIM("NANIMALTOT "), &
4015	& TRIM("- "), &
4016	& TRIM("- "), iim,jjm, hist_hori_id, &
4017	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4018
4019	CALL histdef (hist_id_stom, &
4020	& TRIM("INTAKE_ANIMAL "), &
4021	& TRIM("- "), &
4022	& TRIM("- "), iim,jjm, hist_hori_id, &
4023	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4024
4025	CALL histdef (hist_id_stom, &
4026	& TRIM("INTAKE "), &
4027	& TRIM("grazing animal intake "), &
4028	& TRIM("kgDM/m^2/day "), iim,jjm, hist_hori_id, &
4029	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4030
4031	CALL histdef (hist_id_stom, &
4032	& TRIM("INTAKESUM "), &
4033	& TRIM("- "), &
4034	& TRIM("- "), iim,jjm, hist_hori_id, &
4035	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4036
4037	CALL histdef (hist_id_stom, &
4038	& TRIM("TRAMPLING "), &
4039	& TRIM("litter from trample by animals "), &
4040	& TRIM("kgC/m^2/day "), iim,jjm, hist_hori_id, &
4041	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4042
4043	CALL histdef (hist_id_stom, &
4044	& TRIM("MILK "), &
4045	& TRIM("- "), &
4046	& TRIM("- "), iim,jjm, hist_hori_id, &
4047	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4048
4049	CALL histdef (hist_id_stom, &
4050	& TRIM("MILKSUM "), &
4051	& TRIM("- "), &
4052	& TRIM("- "), iim,jjm, hist_hori_id, &
4053	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4054
4055	CALL histdef (hist_id_stom, &
4056	& TRIM("MILKCSUM "), &
4057	& TRIM("- "), &
4058	& TRIM("- "), iim,jjm, hist_hori_id, &
4059	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4060
4061	CALL histdef (hist_id_stom, &
4062	& TRIM("MILKC "), &
4063	& TRIM("C export by milk production during animal grazing "), &
4064	& TRIM("kgC/m^2/day "), iim,jjm, hist_hori_id, &
4065	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4066	!GM11
4067	CALL histdef (hist_id_stom, &
4068	& TRIM("MILKN "), &
4069	& TRIM("- "), &
4070	& TRIM("- "), iim,jjm, hist_hori_id, &
4071	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4072
4073	CALL histdef (hist_id_stom, &
4074	& TRIM("MILKANIMAL "), &
4075	& TRIM("- "), &
4076	& TRIM("- "), iim,jjm, hist_hori_id, &
4077	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4078
4079	CALL histdef (hist_id_stom, &
4080	& TRIM("METHANE "), &
4081	& TRIM("Methane emission by grazing animal "), &
4082	& TRIM("kgC/m^2/day "), iim,jjm, hist_hori_id, &
4083	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4084
4085	CALL histdef (hist_id_stom, &
4086	& TRIM("METHANE_ANI "), &
4087	& TRIM("- "), &
4088	& TRIM("- "), iim,jjm, hist_hori_id, &
4089	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4090
4091	CALL histdef (hist_id_stom, &
4092	& TRIM("RANIMALSUM "), &
4093	& TRIM("- "), &
4094	& TRIM("- "), iim,jjm, hist_hori_id, &
4095	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4096
4097	CALL histdef (hist_id_stom, &
4098	& TRIM("METHANESUM "), &
4099	& TRIM("- "), &
4100	& TRIM("- "), iim,jjm, hist_hori_id, &
4101	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4102
4103	CALL histdef (hist_id_stom, &
4104	& TRIM("RANIMAL "), &
4105	& TRIM("C loss through grazing animal respiration "), &
4106	& TRIM("kgC/m^2/day "), iim,jjm, hist_hori_id, &
4107	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4108
4109	CALL histdef (hist_id_stom, &
4110	& TRIM("FAECESNSUM "), &
4111	& TRIM("- "), &
4112	& TRIM("- "), iim,jjm, hist_hori_id, &
4113	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4114
4115	CALL histdef (hist_id_stom, &
4116	& TRIM("FAECESCSUM "), &
4117	& TRIM("- "), &
4118	& TRIM("- "), iim,jjm, hist_hori_id, &
4119	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4120
4121	CALL histdef (hist_id_stom, &
4122	& TRIM("URINECSUM "), &
4123	& TRIM("- "), &
4124	& TRIM("- "), iim,jjm, hist_hori_id, &
4125	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4126	!GM21
4127	CALL histdef (hist_id_stom, &
4128	& TRIM("URINENSUM "), &
4129	& TRIM("- "), &
4130	& TRIM("- "), iim,jjm, hist_hori_id, &
4131	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4132
4133	CALL histdef (hist_id_stom, &
4134	& TRIM("NEL "), &
4135	& TRIM("- "), &
4136	& TRIM("- "), iim,jjm, hist_hori_id, &
4137	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4138
4139	CALL histdef (hist_id_stom, &
4140	& TRIM("URINEN "), &
4141	& TRIM("- "), &
4142	& TRIM("- "), iim,jjm, hist_hori_id, &
4143	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4144
4145	CALL histdef (hist_id_stom, &
4146	& TRIM("URINEC "), &
4147	& TRIM("C in urine "), &
4148	& TRIM("kgC/m^2/day "), iim,jjm, hist_hori_id, &
4149	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4150
4151	CALL histdef (hist_id_stom, &
4152	& TRIM("FAECESC "), &
4153	& TRIM("C in faeces "), &
4154	& TRIM("kgC/m^2/day "), iim,jjm, hist_hori_id, &
4155	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4156
4157	CALL histdef (hist_id_stom, &
4158	& TRIM("FAECESN "), &
4159	& TRIM("- "), &
4160	& TRIM("- "), iim,jjm, hist_hori_id, &
4161	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4162
4163	CALL histdef (hist_id_stom, &
4164	& TRIM("GRAZED_FRAC "), &
4165	& TRIM("- "), &
4166	& TRIM("- "), iim,jjm, hist_hori_id, &
4167	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4168
4169	CALL histdef (hist_id_stom, &
4170	& TRIM("NB_ANI "), &
4171	& TRIM("- "), &
4172	& TRIM("- "), iim,jjm, hist_hori_id, &
4173	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4174
4175	CALL histdef (hist_id_stom, &
4176	& TRIM("IMPORT_YIELD "), &
4177	& TRIM("potential harvest yield of last year "), &
4178	& TRIM("kgDM/m^2/yr "), iim,jjm, hist_hori_id, &
4179	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4180
4181	CALL histdef (hist_id_stom, &
4182	& TRIM("EXTRA_FEED "), &
4183	& TRIM("- "), &
4184	& TRIM("- "), iim,jjm, hist_hori_id, &
4185	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4186	!GM31
4187	CALL histdef (hist_id_stom, &
4188	& TRIM("COMPT_UGB "), &
4189	& TRIM("- "), &
4190	& TRIM("- "), iim,jjm, hist_hori_id, &
4191	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4192
4193	CALL histdef (hist_id_stom, &
4194	& TRIM("NB_GRAZINGDAYS "), &
4195	& TRIM("number of grazing days of last year "), &
4196	& TRIM("days "), iim,jjm, hist_hori_id, &
4197	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4198
4199	CALL histdef (hist_id_stom, &
4200	& TRIM("AMOUNT_YIELD "), &
4201	& TRIM("- "), &
4202	& TRIM("- "), iim,jjm, hist_hori_id, &
4203	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4204
4205	CALL histdef (hist_id_stom, &
4206	& TRIM("CONSUMP "), &
4207	& TRIM("- "), &
4208	& TRIM("- "), iim,jjm, hist_hori_id, &
4209	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4210
4211	CALL histdef (hist_id_stom, &
4212	& TRIM("OUTSIDE_FOOD "), &
4213	& TRIM("- "), &
4214	& TRIM("- "), iim,jjm, hist_hori_id, &
4215	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4216
4217	CALL histdef (hist_id_stom, &
4218	& TRIM("ADD_NB_ANI "), &
4219	& TRIM("- "), &
4220	& TRIM("- "), iim,jjm, hist_hori_id, &
4221	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4222
4223	CALL histdef (hist_id_stom, &
4224	& TRIM("BCSyoung "), &
4225	& TRIM("- "), &
4226	& TRIM("- "), iim,jjm, hist_hori_id, &
4227	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4228
4229	CALL histdef (hist_id_stom, &
4230	& TRIM("BCSmature "), &
4231	& TRIM("- "), &
4232	& TRIM("- "), iim,jjm, hist_hori_id, &
4233	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4234
4235	CALL histdef (hist_id_stom, &
4236	& TRIM("Weightyoung "), &
4237	& TRIM("- "), &
4238	& TRIM("- "), iim,jjm, hist_hori_id, &
4239	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4240
4241	CALL histdef (hist_id_stom, &
4242	& TRIM("Weightmature "), &
4243	& TRIM("- "), &
4244	& TRIM("- "), iim,jjm, hist_hori_id, &
4245	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4246	!GM41
4247	CALL histdef (hist_id_stom, &
4248	& TRIM("Weightcalf "), &
4249	& TRIM("- "), &
4250	& TRIM("- "), iim,jjm, hist_hori_id, &
4251	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4252
4253	CALL histdef (hist_id_stom, &
4254	& TRIM("MPyoung "), &
4255	& TRIM("- "), &
4256	& TRIM("- "), iim,jjm, hist_hori_id, &
4257	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4258
4259	CALL histdef (hist_id_stom, &
4260	& TRIM("MPmature "), &
4261	& TRIM("- "), &
4262	& TRIM("- "), iim,jjm, hist_hori_id, &
4263	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4264
4265	CALL histdef (hist_id_stom, &
4266	& TRIM("MPwyoung "), &
4267	& TRIM("- "), &
4268	& TRIM("- "), iim,jjm, hist_hori_id, &
4269	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4270
4271	CALL histdef (hist_id_stom, &
4272	& TRIM("MPwmature "), &
4273	& TRIM("- "), &
4274	& TRIM("- "), iim,jjm, hist_hori_id, &
4275	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4276
4277	CALL histdef (hist_id_stom, &
4278	& TRIM("MPposyoung "), &
4279	& TRIM("- "), &
4280	& TRIM("- "), iim,jjm, hist_hori_id, &
4281	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4282
4283	CALL histdef (hist_id_stom, &
4284	& TRIM("MPposmature "), &
4285	& TRIM("- "), &
4286	& TRIM("- "), iim,jjm, hist_hori_id, &
4287	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4288
4289	CALL histdef (hist_id_stom, &
4290	& TRIM("NEByoung "), &
4291	& TRIM("- "), &
4292	& TRIM("- "), iim,jjm, hist_hori_id, &
4293	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4294
4295	CALL histdef (hist_id_stom, &
4296	& TRIM("NEBmature "), &
4297	& TRIM("- "), &
4298	& TRIM("- "), iim,jjm, hist_hori_id, &
4299	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4300
4301	CALL histdef (hist_id_stom, &
4302	& TRIM("NEIyoung "), &
4303	& TRIM("- "), &
4304	& TRIM("- "), iim,jjm, hist_hori_id, &
4305	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4306	!GM51
4307	CALL histdef (hist_id_stom, &
4308	& TRIM("NEImature "), &
4309	& TRIM("- "), &
4310	& TRIM("- "), iim,jjm, hist_hori_id, &
4311	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4312
4313	CALL histdef (hist_id_stom, &
4314	& TRIM("DMIcyoung "), &
4315	& TRIM("- "), &
4316	& TRIM("- "), iim,jjm, hist_hori_id, &
4317	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4318
4319	CALL histdef (hist_id_stom, &
4320	& TRIM("DMIcmature "), &
4321	& TRIM("- "), &
4322	& TRIM("- "), iim,jjm, hist_hori_id, &
4323	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4324
4325	CALL histdef (hist_id_stom, &
4326	& TRIM("DMIfyoung "), &
4327	& TRIM("- "), &
4328	& TRIM("- "), iim,jjm, hist_hori_id, &
4329	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4330
4331	CALL histdef (hist_id_stom, &
4332	& TRIM("DMIfmature "), &
4333	& TRIM("- "), &
4334	& TRIM("- "), iim,jjm, hist_hori_id, &
4335	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4336
4337	CALL histdef (hist_id_stom, &
4338	& TRIM("DMIyoung "), &
4339	& TRIM("- "), &
4340	& TRIM("- "), iim,jjm, hist_hori_id, &
4341	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4342
4343	CALL histdef (hist_id_stom, &
4344	& TRIM("DMImature "), &
4345	& TRIM("- "), &
4346	& TRIM("- "), iim,jjm, hist_hori_id, &
4347	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4348
4349	CALL histdef (hist_id_stom, &
4350	& TRIM("DMIcalf "), &
4351	& TRIM("- "), &
4352	& TRIM("- "), iim,jjm, hist_hori_id, &
4353	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4354
4355	CALL histdef (hist_id_stom, &
4356	& TRIM("OMD "), &
4357	& TRIM("- "), &
4358	& TRIM("- "), iim,jjm, hist_hori_id, &
4359	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4360
4361	CALL histdef (hist_id_stom, &
4362	& TRIM("Weightcows "), &
4363	& TRIM("- "), &
4364	& TRIM("- "), iim,jjm, hist_hori_id, &
4365	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4366	!GM61
4367	CALL histdef (hist_id_stom, &
4368	& TRIM("BCScows "), &
4369	& TRIM("- "), &
4370	& TRIM("- "), iim,jjm, hist_hori_id, &
4371	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4372
4373	CALL histdef (hist_id_stom, &
4374	& TRIM("CH4young "), &
4375	& TRIM("- "), &
4376	& TRIM("- "), iim,jjm, hist_hori_id, &
4377	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4378
4379	CALL histdef (hist_id_stom, &
4380	& TRIM("CH4mature "), &
4381	& TRIM("- "), &
4382	& TRIM("- "), iim,jjm, hist_hori_id, &
4383	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4384
4385	CALL histdef (hist_id_stom, &
4386	& TRIM("TSOILCUMM "), &
4387	& TRIM("- "), &
4388	& TRIM("- "), iim,jjm, hist_hori_id, &
4389	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4390
4391	CALL histdef (hist_id_stom, &
4392	& TRIM("YIELD_RETURN "), &
4393	& TRIM("- "), &
4394	& TRIM("- "), iim,jjm, hist_hori_id, &
4395	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4396
4397	CALL histdef (hist_id_stom, &
4398	& TRIM("REGCOUNT "), &
4399	& TRIM("- "), &
4400	& TRIM("- "), iim,jjm, hist_hori_id, &
4401	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4402
4403	CALL histdef (hist_id_stom, &
4404	& TRIM("FERTCOUNT "), &
4405	& TRIM("- "), &
4406	& TRIM("- "), iim,jjm, hist_hori_id, &
4407	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4408
4409	CALL histdef (hist_id_stom, &
4410	& TRIM("GMEAN1 "), &
4411	& TRIM("- "), &
4412	& TRIM("- "), iim,jjm, hist_hori_id, &
4413	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4414
4415	CALL histdef (hist_id_stom, &
4416	& TRIM("GMEAN2 "), &
4417	& TRIM("- "), &
4418	& TRIM("- "), iim,jjm, hist_hori_id, &
4419	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4420
4421	CALL histdef (hist_id_stom, &
4422	& TRIM("GMEAN3 "), &
4423	& TRIM("- "), &
4424	& TRIM("- "), iim,jjm, hist_hori_id, &
4425	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4426	!GM71
4427	CALL histdef (hist_id_stom, &
4428	& TRIM("GMEAN4 "), &
4429	& TRIM("- "), &
4430	& TRIM("- "), iim,jjm, hist_hori_id, &
4431	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4432
4433	CALL histdef (hist_id_stom, &
4434	& TRIM("GMEAN5 "), &
4435	& TRIM("- "), &
4436	& TRIM("- "), iim,jjm, hist_hori_id, &
4437	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4438
4439	CALL histdef (hist_id_stom, &
4440	& TRIM("GMEAN6 "), &
4441	& TRIM("- "), &
4442	& TRIM("- "), iim,jjm, hist_hori_id, &
4443	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4444
4445	CALL histdef (hist_id_stom, &
4446	& TRIM("GMEAN7 "), &
4447	& TRIM("- "), &
4448	& TRIM("- "), iim,jjm, hist_hori_id, &
4449	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4450
4451	CALL histdef (hist_id_stom, &
4452	& TRIM("GMEAN8 "), &
4453	& TRIM("- "), &
4454	& TRIM("- "), iim,jjm, hist_hori_id, &
4455	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4456
4457	CALL histdef (hist_id_stom, &
4458	& TRIM("GMEAN9 "), &
4459	& TRIM("- "), &
4460	& TRIM("- "), iim,jjm, hist_hori_id, &
4461	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4462
4463	CALL histdef (hist_id_stom, &
4464	& TRIM("GMEAN0 "), &
4465	& TRIM("- "), &
4466	& TRIM("- "), iim,jjm, hist_hori_id, &
4467	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4468
4469	CALL histdef (hist_id_stom, &
4470	& TRIM("WSH "), &
4471	& TRIM("shoot structure mass "), &
4472	& TRIM("kgDM/m^2 "), iim,jjm, hist_hori_id, &
4473	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4474
4475	CALL histdef (hist_id_stom, &
4476	& TRIM("WSHTOT "), &
4477	& TRIM("total shoot structure mass "), &
4478	& TRIM("kgDM/m^2 "), iim,jjm, hist_hori_id, &
4479	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4480
4481	CALL histdef (hist_id_stom, &
4482	& TRIM("WR "), &
4483	& TRIM("root structure mass "), &
4484	& TRIM("kgDM/m^2 "), iim,jjm, hist_hori_id, &
4485	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4486	!GM81
4487	CALL histdef (hist_id_stom, &
4488	& TRIM("WRTOT "), &
4489	& TRIM("total root structure mass "), &
4490	& TRIM("kgDM/m^2 "), iim,jjm, hist_hori_id, &
4491	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4492
4493	CALL histdef (hist_id_stom, &
4494	& TRIM("WSHTOTSUM "), &
4495	& TRIM("- "), &
4496	& TRIM("- "), iim,jjm, hist_hori_id, &
4497	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4498
4499	CALL histdef (hist_id_stom, &
4500	& TRIM("SR_UGB "), &
4501	& TRIM("instantaneous stocking rate "), &
4502	& TRIM("HeadorLSU/m^2 "), iim,jjm, hist_hori_id, &
4503	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4504
4505	CALL histdef (hist_id_stom, &
4506	& TRIM("FCORGFERTMET "), &
4507	& TRIM("- "), &
4508	& TRIM("- "), iim,jjm, hist_hori_id, &
4509	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4510
4511	CALL histdef (hist_id_stom, &
4512	& TRIM("FCORGFERTSTR "), &
4513	& TRIM("- "), &
4514	& TRIM("- "), iim,jjm, hist_hori_id, &
4515	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4516
4517	CALL histdef (hist_id_stom, &
4518	& TRIM("FNORGANICFERTURINE "), &
4519	& TRIM("- "), &
4520	& TRIM("- "), iim,jjm, hist_hori_id, &
4521	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4522
4523	CALL histdef (hist_id_stom, &
4524	& TRIM("FNORGANICFERTSTRUCT "), &
4525	& TRIM("- "), &
4526	& TRIM("- "), iim,jjm, hist_hori_id, &
4527	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4528
4529	CALL histdef (hist_id_stom, &
4530	& TRIM("FNORGANICFERTMETABOLIC "), &
4531	& TRIM("- "), &
4532	& TRIM("- "), iim,jjm, hist_hori_id, &
4533	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4534
4535	CALL histdef (hist_id_stom, &
4536	& TRIM("NFERTNITTOT "), &
4537	& TRIM("- "), &
4538	& TRIM("- "), iim,jjm, hist_hori_id, &
4539	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4540
4541	CALL histdef (hist_id_stom, &
4542	& TRIM("NFERTAMMTOT "), &
4543	& TRIM("- "), &
4544	& TRIM("- "), iim,jjm, hist_hori_id, &
4545	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4546	!GM91
4547	CALL histdef (hist_id_stom, &
4548	& TRIM("LOSS "), &
4549	& TRIM("- "), &
4550	& TRIM("- "), iim,jjm, hist_hori_id, &
4551	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4552
4553	CALL histdef (hist_id_stom, &
4554	& TRIM("LOSSC "), &
4555	& TRIM("Carbon loss as litter during cutting "), &
4556	& TRIM("kg C/m**2 "), iim,jjm, hist_hori_id, &
4557	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4558
4559	CALL histdef (hist_id_stom, &
4560	& TRIM("LOSSN "), &
4561	& TRIM("- "), &
4562	& TRIM("- "), iim,jjm, hist_hori_id, &
4563	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4564
4565	CALL histdef (hist_id_stom, &
4566	& TRIM("DM_CUTYEARLY "), &
4567	& TRIM("- "), &
4568	& TRIM("- "), iim,jjm, hist_hori_id, &
4569	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4570
4571	CALL histdef (hist_id_stom, &
4572	& TRIM("C_CUTYEARLY "), &
4573	& TRIM("- "), &
4574	& TRIM("- "), iim,jjm, hist_hori_id, &
4575	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4576
4577	CALL histdef (hist_id_stom, &
4578	& TRIM("NFERT_TOTAL "), &
4579	& TRIM("Total Nitrogen input "), &
4580	& TRIM("kg N/ha "), iim,jjm, hist_hori_id, &
4581	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4582
4583	CALL histdef (hist_id_stom, &
4584	& TRIM("NDEP "), &
4585	& TRIM("Nitrogen deposition from input "), &
4586	& TRIM("kg N/ha "), iim,jjm, hist_hori_id, &
4587	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4588
4589	CALL histdef (hist_id_stom, &
4590	& TRIM("LEGUME_FRACTION "), &
4591	& TRIM("- "), &
4592	& TRIM("- "), iim,jjm, hist_hori_id, &
4593	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4594
4595	CALL histdef (hist_id_stom, &
4596	& TRIM("SOIL_FERTILITY "), &
4597	& TRIM("- "), &
4598	& TRIM("- "), iim,jjm, hist_hori_id, &
4599	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4600
4601	CALL histdef (hist_id_stom, &
4602	& TRIM("C "), &
4603	& TRIM("- "), &
4604	& TRIM("- "), iim,jjm, hist_hori_id, &
4605	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4606	!GM101
4607	CALL histdef (hist_id_stom, &
4608	& TRIM("N "), &
4609	& TRIM("- "), &
4610	& TRIM("- "), iim,jjm, hist_hori_id, &
4611	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4612
4613	CALL histdef (hist_id_stom, &
4614	& TRIM("FN "), &
4615	& TRIM("- "), &
4616	& TRIM("- "), iim,jjm, hist_hori_id, &
4617	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4618
4619	CALL histdef (hist_id_stom, &
4620	& TRIM("NTOT "), &
4621	& TRIM("- "), &
4622	& TRIM("- "), iim,jjm, hist_hori_id, &
4623	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4624
4625	CALL histdef (hist_id_stom, &
4626	& TRIM("NAPO "), &
4627	& TRIM("- "), &
4628	& TRIM("- "), iim,jjm, hist_hori_id, &
4629	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4630
4631	CALL histdef (hist_id_stom, &
4632	& TRIM("NSYM "), &
4633	& TRIM("- "), &
4634	& TRIM("- "), iim,jjm, hist_hori_id, &
4635	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4636
4637	CALL histdef (hist_id_stom, &
4638	& TRIM("DEVSTAGE "), &
4639	& TRIM("- "), &
4640	& TRIM("- "), iim,jjm, hist_hori_id, &
4641	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4642
4643	CALL histdef (hist_id_stom, &
4644	& TRIM("TGROWTH "), &
4645	& TRIM("- "), &
4646	& TRIM("- "), iim,jjm, hist_hori_id, &
4647	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4648
4649	CALL histdef (hist_id_stom, &
4650	& TRIM("GRAZINGCSTRUCT "), &
4651	& TRIM("- "), &
4652	& TRIM("- "), iim,jjm, hist_hori_id, &
4653	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4654
4655	CALL histdef (hist_id_stom, &
4656	& TRIM("GRAZINGNSTRUCT "), &
4657	& TRIM("- "), &
4658	& TRIM("- "), iim,jjm, hist_hori_id, &
4659	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4660
4661	CALL histdef (hist_id_stom, &
4662	& TRIM("GRAZINGWN "), &
4663	& TRIM("- "), &
4664	& TRIM("- "), iim,jjm, hist_hori_id, &
4665	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4666	!GM111
4667	CALL histdef (hist_id_stom, &
4668	& TRIM("GRAZINGWC "), &
4669	& TRIM("- "), &
4670	& TRIM("- "), iim,jjm, hist_hori_id, &
4671	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4672
4673	! 14days 2 m temperature
4674	CALL histdef (hist_id_stom, &
4675	& TRIM("T2M_14 "), &
4676	& TRIM("14days 2 m temperature"), &
4677	& TRIM("K "), iim,jjm, hist_hori_id, &
4678	& 1,1,1, -99,32, ave(5), dt, hist_dt)
4679
4680	CALL histdef (hist_id_stom, &
4681	& TRIM("LITTER_RESP "), &
4682	& TRIM("heterotr. resp. from litter pool "), &
4683	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
4684	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4685
4686	CALL histdef (hist_id_stom, &
4687	& TRIM("ACTIVE_RESP "), &
4688	& TRIM("heterotr. resp. from active carbon pool "), &
4689	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
4690	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4691
4692	CALL histdef (hist_id_stom, &
4693	& TRIM("SLOW_RESP "), &
4694	& TRIM("heterotr. resp. from slow carbon pool "), &
4695	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
4696	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4697
4698	CALL histdef (hist_id_stom, &
4699	& TRIM("PASSIVE_RESP "), &
4700	& TRIM("heterotr. resp. from passive carbon pool "), &
4701	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
4702	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4703
4704	! CALL histdef (hist_id_stom, &
4705	! & TRIM("N_LIMFERT "), &
4706	! & TRIM("Nitrogen limitation factor on vcmax "), &
4707	! & TRIM("- "), iim,jjm, hist_hori_id, &
4708	! & nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4709
4710	CALL histdef (hist_id_stom, &
4711	& TRIM("SLA_CALC "), &
4712	& TRIM("sla calculated by leaf age "), &
4713	& TRIM("m**2/gC "), iim,jjm, hist_hori_id, &
4714	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4715
4716	CALL histdef (hist_id_stom, &
4717	& TRIM("NPP_ABOVE "), &
4718	& TRIM("Net above primary productivity "), &
4719	& TRIM("gC/day/(m^2 (n/a)) "), iim,jjm, hist_hori_id, &
4720	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4721
4722	CALL histdef (hist_id_stom, &
4723	& TRIM("NPP_BELOW "), &
4724	& TRIM("Net below primary productivity "), &
4725	& TRIM("gC/day/(m^2 (n/a)) "), iim,jjm, hist_hori_id, &
4726	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4727	!GMtotal120
4728	CALL histdef (hist_id_stom, &
4729	& TRIM("LITTER_STR_AVAIL "), &
4730	& TRIM("Structural litter available for grazing "), &
4731	& TRIM("gC/day/(m^2 (n/a)) "), iim,jjm, hist_hori_id, &
4732	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4733	CALL histdef (hist_id_stom, &
4734	& TRIM("LITTER_MET_AVAIL "), &
4735	& TRIM("Metabolic litter available for grazing "), &
4736	& TRIM("gC/day/(m^2 (n/a)) "), iim,jjm, hist_hori_id, &
4737	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4738	CALL histdef (hist_id_stom, &
4739	& TRIM("LITTER_STR_NAVAIL "), &
4740	& TRIM("Structural litter not available for grazing "), &
4741	& TRIM("gC/day/(m^2 (n/a)) "), iim,jjm, hist_hori_id, &
4742	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4743	CALL histdef (hist_id_stom, &
4744	& TRIM("LITTER_MET_NAVAIL "), &
4745	& TRIM("Metabolic litter not available for grazing "), &
4746	& TRIM("gC/day/(m^2 (n/a)) "), iim,jjm, hist_hori_id, &
4747	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4748	CALL histdef (hist_id_stom, &
4749	& TRIM("LITTER_STR_AVAILF "), &
4750	& TRIM("Structural litter available fraction for grazing "), &
4751	& TRIM("% "), iim,jjm, hist_hori_id, &
4752	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4753	CALL histdef (hist_id_stom, &
4754	& TRIM("LITTER_MET_AVAILF "), &
4755	& TRIM("Metabolic litter available fraction for grazing "), &
4756	& TRIM("% "), iim,jjm, hist_hori_id, &
4757	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4758	CALL histdef (hist_id_stom, &
4759	& TRIM("INTAKE_ANIMAL_LITTER "), &
4760	& TRIM("Litter intake per animal "), &
4761	& TRIM("kg DM/animal/day "), iim,jjm, hist_hori_id, &
4762	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4763	CALL histdef (hist_id_stom, &
4764	& TRIM("INTAKE_LITTER "), &
4765	& TRIM("Litter intake per m**2 "), &
4766	& TRIM("kg DM/m**2/day "), iim,jjm, hist_hori_id, &
4767	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4768	CALL histdef (hist_id_stom, &
4769	& TRIM("GRAZING_LITTER "), &
4770	& TRIM("Flag of grazing litter 0 AGB 1 Litter 2 none "), &
4771	& TRIM("- "), iim,jjm, hist_hori_id, &
4772	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4773	!GM131
4774	CALL histdef (hist_id_stom, &
4775	& TRIM("COMPT_CUT "), &
4776	& TRIM("Grass harvest time "), &
4777	& TRIM("times "), iim,jjm, hist_hori_id, &
4778	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4779	CALL histdef (hist_id_stom, &
4780	& TRIM("FREQUENCY_CUT "), &
4781	& TRIM("Grass harvest frequency "), &
4782	& TRIM("times "), iim,jjm, hist_hori_id, &
4783	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4784	CALL histdef (hist_id_stom, &
4785	& TRIM("SR_WILD "), &
4786	& TRIM("Wild animal stocking rate "), &
4787	& TRIM("HeadorLSU/m^2 "), iim,jjm, hist_hori_id, &
4788	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4789	CALL histdef (hist_id_stom, &
4790	& TRIM("TMCGRASS_DAILY "), &
4791	& TRIM("daily mean 10 cm soil moisture "), &
4792	& TRIM("m^3/m^3 "), iim,jjm, hist_hori_id, &
4793	& 1,1,1, -99,32, ave(5), dt, hist_dt)
4794	CALL histdef (hist_id_stom, &
4795	& TRIM("FC_GRAZING "), &
4796	& TRIM("field capacity in 10 cm soil moisture "), &
4797	& TRIM("m^3/m^3 "), iim,jjm, hist_hori_id, &
4798	& 1,1,1, -99,32, ave(5), dt, hist_dt)
4799	CALL histdef (hist_id_stom, &
4800	& TRIM("CT_DRY "), &
4801	& TRIM("days after soil dry enough for grazing "), &
4802	& TRIM("days "), iim,jjm, hist_hori_id, &
4803	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
4804	CALL histdef (hist_id_stom, &
4805	& TRIM("N2O_PFT_GM "), &
4806	& TRIM("N2O-N emission from grassland "), &
4807	& TRIM("gN/m^2/day "), iim,jjm, hist_hori_id, &
4808	& nvm,1,nvm, hist_PFTaxis_id,32, ave(10), dt, hist_dt)
4809	CALL histdef (hist_id_stom, &
4810	& TRIM("CO2_GM "), &
4811	& TRIM("CO2 fluxes of grassland"), &
4812	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
4813	& 1,1,1, -99,32, ave(5), dt, hist_dt)
4814	CALL histdef (hist_id_stom, &
4815	& TRIM("CH4_GM "), &
4816	& TRIM("CH4-C fluxes of grassland"), &
4817	& TRIM("gC/m^2/day "), iim,jjm, hist_hori_id, &
4818	& 1,1,1, -99,32, ave(5), dt, hist_dt)
4819	!end gmjc
4820	!
4821	!variables for CH4 flux density from wetlands
4822	!
4823	!pss:+
4824	CALL stomate_wet_ch4_histdef (iim, jjm, dt, hist_hori_id, hist_dt, ave, hist_id_stom)
4825
4826	!tsurf_year
4827	CALL histdef (hist_id_stom, &
4828	& TRIM("TSURF_YEAR "), &
4829	& TRIM("Annual surface temperature "), &
4830	& TRIM("K "), iim,jjm, hist_hori_id, &
4831	& 1,1,1, -99,32, ave(1), dt, hist_dt)
4832	!pss:-
4833
4834	! permafrost variables
4835	! first read logic on which variables to write to hist file. (variables
4836	! are
4837	! stored in constantes_soil.f90)
4838
4839	CALL getin_p ('writehist_deepC',writehist_deepC)
4840	CALL getin_p ('writehist_soilgases',writehist_soilgases)
4841	CALL getin_p ('writehist_deltaC',writehist_deltaC)
4842	CALL getin_p ('writehist_zimovheat',writehist_zimovheat)
4843	CALL getin_p ('writehist_deltaC_litter',writehist_deltaC_litter)
4844	CALL getin_p ('writehist_gascoeff',writehist_gascoeff)
4845
4846	! heterotr. resp. from ground
4847	CALL histdef (hist_id_stom, &
4848	& TRIM("resp_hetero_litter "), &
4849	& TRIM("heterotr. resp. from litter "), &
4850	& TRIM("gC/m^2 tot/day "), iim,jjm, hist_hori_id, &
4851	& nvm,1,nvm, hist_PFTaxis_id,32, ave(3), dt, hist_dt)
4852
4853	CALL histdef (hist_id_stom, &
4854	& TRIM("resp_hetero_soil "), &
4855	& TRIM("heterotr. resp. from standard stomate soil "), &
4856	& TRIM("gC/m^2 tot/day "), iim,jjm, hist_hori_id, &
4857	& nvm,1,nvm, hist_PFTaxis_id,32, ave(3), dt, hist_dt)
4858	!++cdk: end of variables with implicit PFT dimension
4859	IF (writehist_deepC) THEN
4860	DO jv = 1, nvm
4861	IF (permafrost_veg_exists(jv)) THEN
4862	WRITE(part_str,'(I2)') jv
4863	IF (jv < 10) part_str(1:1) = '0'
4864	CALL histdef (hist_id_stom, &
4865	& TRIM("deepC_a_"//part_str(1:LEN_TRIM(part_str))), &
4866	& TRIM("active pool deep soil (permafrost) carbon,PFT:"//part_str(1:LEN_TRIM(part_str))), &
4867	& TRIM("gC/m**3 "), iim,jjm, hist_hori_id, &
4868	& ndeep, 1, ndeep, hist_stomate_deepsoil,32, ave(5),dt,hist_dt)
4869	END IF
4870	END DO
4871	DO jv = 1, nvm
4872	IF (permafrost_veg_exists(jv)) THEN
4873	WRITE(part_str,'(I2)') jv
4874	IF (jv < 10) part_str(1:1) = '0'
4875	CALL histdef (hist_id_stom, &
4876	& TRIM("deepC_s_"//part_str(1:LEN_TRIM(part_str))), &
4877	& TRIM("slow pool deep soil (permafrost) carbon "), &
4878	& TRIM("gC/m**3 "), iim,jjm, hist_hori_id, &
4879	& ndeep, 1, ndeep, hist_stomate_deepsoil,32, ave(5),dt,hist_dt)
4880	END IF
4881	END DO
4882	DO jv = 1, nvm
4883	IF (permafrost_veg_exists(jv)) THEN
4884	WRITE(part_str,'(I2)') jv
4885	IF (jv < 10) part_str(1:1) = '0'
4886	CALL histdef (hist_id_stom, &
4887	& TRIM("deepC_p_"//part_str(1:LEN_TRIM(part_str))), &
4888	& TRIM("passive pool deep soil (permafrost) carbon "), &
4889	& TRIM("gC/m**3 "), iim,jjm, hist_hori_id, &
4890	& ndeep, 1, ndeep, hist_stomate_deepsoil,32, ave(5),dt,hist_dt)
4891	END IF
4892	END DO
4893	ENDIF
4894	IF (writehist_soilgases) THEN
4895	DO jv = 1, nvm
4896	IF (permafrost_veg_exists(jv)) THEN
4897	WRITE(part_str,'(I2)') jv
4898	IF (jv < 10) part_str(1:1) = '0'
4899	CALL histdef (hist_id_stom, &
4900	& TRIM("O2_soil_"//part_str(1:LEN_TRIM(part_str))), &
4901	& TRIM("deep soil (permafrost) oxygen "), &
4902	& TRIM("gC/m**3 "), iim,jjm, hist_hori_id, &
4903	& ndeep, 1, ndeep, hist_stomate_deepsoil,32, ave(5),dt,hist_dt)
4904	END IF
4905	END DO
4906	DO jv = 1, nvm
4907	IF (permafrost_veg_exists(jv)) THEN
4908	WRITE(part_str,'(I2)') jv
4909	IF (jv < 10) part_str(1:1) = '0'
4910	CALL histdef (hist_id_stom, &
4911	& TRIM("CH4_soil_"//part_str(1:LEN_TRIM(part_str))), &
4912	& TRIM("deep soil (permafrost) methane "), &
4913	& TRIM("gC/m**3 "), iim,jjm, hist_hori_id, &
4914	& ndeep, 1, ndeep, hist_stomate_deepsoil,32, ave(5),dt,hist_dt)
4915	END IF
4916	END DO
4917	DO jv = 1, nvm
4918	IF (permafrost_veg_exists(jv)) THEN
4919	WRITE(part_str,'(I2)') jv
4920	IF (jv < 10) part_str(1:1) = '0'
4921	CALL histdef (hist_id_stom, &
4922	& TRIM("O2_snow_"//part_str(1:LEN_TRIM(part_str))), &
4923	& TRIM("snow oxygen "), &
4924	& TRIM("gC/m**3 "), iim,jjm, hist_hori_id, &
4925	& nsnow, 1, nsnow, hist_stomate_snow,32, ave(5), dt,hist_dt)
4926	END IF
4927	END DO
4928	DO jv = 1, nvm
4929	IF (permafrost_veg_exists(jv)) THEN
4930	WRITE(part_str,'(I2)') jv
4931	IF (jv < 10) part_str(1:1) = '0'
4932	CALL histdef (hist_id_stom, &
4933	& TRIM("CH4_snow_"//part_str(1:LEN_TRIM(part_str))), &
4934	& TRIM("snow methane "), &
4935	& TRIM("gC/m**3 "), iim,jjm, hist_hori_id, &
4936	& nsnow, 1, nsnow, hist_stomate_snow,32, ave(5), dt,hist_dt)
4937	END IF
4938	END DO
4939	ENDIF
4940
4941	IF (writehist_deltaC) THEN
4942	DO jv = 1, nvm
4943	IF (permafrost_veg_exists(jv)) THEN
4944	WRITE(part_str,'(I2)') jv
4945	IF (jv < 10) part_str(1:1) = '0'
4946	CALL histdef (hist_id_stom, &
4947	& TRIM("deltaCH4g_"//part_str(1:LEN_TRIM(part_str))), &
4948	& TRIM("methanogenesis "), &
4949	& TRIM("gCH4/m**3 air/s "), iim,jjm, hist_hori_id, &
4950	& ndeep, 1, ndeep, hist_stomate_deepsoil,32, ave(5),dt,hist_dt)
4951	END IF
4952	END DO
4953	DO jv = 1, nvm
4954	IF (permafrost_veg_exists(jv)) THEN
4955	WRITE(part_str,'(I2)') jv
4956	IF (jv < 10) part_str(1:1) = '0'
4957	CALL histdef (hist_id_stom, &
4958	& TRIM("deltaCH4_"//part_str(1:LEN_TRIM(part_str))), &
4959	& TRIM("methanotrophy "), &
4960	& TRIM("gCH4/m**3 air/s "), iim,jjm, hist_hori_id, &
4961	& ndeep, 1, ndeep, hist_stomate_deepsoil,32, ave(5),dt,hist_dt)
4962	END IF
4963	END DO
4964	DO jv = 1, nvm
4965	IF (permafrost_veg_exists(jv)) THEN
4966	WRITE(part_str,'(I2)') jv
4967	IF (jv < 10) part_str(1:1) = '0'
4968	CALL histdef (hist_id_stom, &
4969	& TRIM("deltaC1_"//part_str(1:LEN_TRIM(part_str))), &
4970	& TRIM("oxic decomposition "), &
4971	& TRIM("gC/m**3/s "), iim,jjm, hist_hori_id, &
4972	& ndeep, 1, ndeep, hist_stomate_deepsoil,32, ave(5),dt,hist_dt)
4973	END IF
4974	END DO
4975	DO jv = 1, nvm
4976	IF (permafrost_veg_exists(jv)) THEN
4977	WRITE(part_str,'(I2)') jv
4978	IF (jv < 10) part_str(1:1) = '0'
4979	CALL histdef (hist_id_stom, &
4980	& TRIM("deltaC2_"//part_str(1:LEN_TRIM(part_str))), &
4981	& TRIM("methanogenesis "), &
4982	& TRIM("gC/m**3 soil/s "), iim,jjm, hist_hori_id, &
4983	& ndeep, 1, ndeep, hist_stomate_deepsoil,32, ave(5),dt,hist_dt)
4984	END IF
4985	END DO
4986	DO jv = 1, nvm
4987	IF (permafrost_veg_exists(jv)) THEN
4988	WRITE(part_str,'(I2)') jv
4989	IF (jv < 10) part_str(1:1) = '0'
4990	CALL histdef (hist_id_stom, &
4991	& TRIM("deltaC3_"//part_str(1:LEN_TRIM(part_str))), &
4992	& TRIM("methanotrophy "), &
4993	& TRIM("gC/m**3 soil/s "), iim,jjm, hist_hori_id, &
4994	& ndeep, 1, ndeep, hist_stomate_deepsoil,32, ave(5),dt,hist_dt)
4995	END IF
4996	END DO
4997	ENDIF
4998	IF (writehist_zimovheat) THEN
4999	DO jv = 1, nvm
5000	IF (permafrost_veg_exists(jv)) THEN
5001	WRITE(part_str,'(I2)') jv
5002	IF (jv < 10) part_str(1:1) = '0'
5003	CALL histdef (hist_id_stom, &
5004	& TRIM("heat_Zimov_"//part_str(1:LEN_TRIM(part_str))), &
5005	& TRIM("heating due to decomposition "), &
5006	& TRIM("W/m**3 "), iim,jjm, hist_hori_id, &
5007	& ndeep, 1, ndeep, hist_stomate_deepsoil,32, ave(5),dt,hist_dt)
5008	END IF
5009	END DO
5010	ENDIF
5011	IF (writehist_deltaC_litter) THEN
5012	DO jv = 1, nvm
5013	IF (permafrost_veg_exists(jv)) THEN
5014	WRITE(part_str,'(I2)') jv
5015	IF (jv < 10) part_str(1:1) = '0'
5016	CALL histdef (hist_id_stom, &
5017	& TRIM("deltaC_litter_act_"//part_str(1:LEN_TRIM(part_str))), &
5018	& TRIM("litter C input to soil active C pool "), &
5019	& TRIM("gC/m**3 soil/s "), iim,jjm, hist_hori_id, &
5020	& ndeep, 1, ndeep, hist_stomate_deepsoil,32, ave(5),dt,hist_dt)
5021	END IF
5022	END DO
5023	DO jv = 1, nvm
5024	IF (permafrost_veg_exists(jv)) THEN
5025	WRITE(part_str,'(I2)') jv
5026	IF (jv < 10) part_str(1:1) = '0'
5027	CALL histdef (hist_id_stom, &
5028	& TRIM("deltaC_litter_slo_"//part_str(1:LEN_TRIM(part_str))), &
5029	& TRIM("litter C input to soil slow C pool "), &
5030	& TRIM("gC/m**3 soil/s "), iim,jjm, hist_hori_id, &
5031	& ndeep, 1, ndeep, hist_stomate_deepsoil,32, ave(5),dt,hist_dt)
5032	END IF
5033	END DO
5034	ENDIF
5035	IF (writehist_gascoeff) THEN
5036	CALL histdef (hist_id_stom, &
5037	& TRIM("deltaC_litter_pas_"//part_str(1:LEN_TRIM(part_str))), &
5038	& TRIM("litter C input to soil passive C pool "),&
5039	& TRIM("gC/m**3 soil/s "), iim,jjm, hist_hori_id,&
5040	& ndeep, 1, ndeep, hist_stomate_deepsoil,32,ave(5),dt, hist_dt)
5041	DO jv = 1, nvm
5042	WRITE(part_str,'(I2)') jv
5043	IF (jv < 10) part_str(1:1) = '0'
5044	CALL histdef (hist_id_stom, &
5045	& TRIM("totporO2_soil_"//part_str(1:LEN_TRIM(part_str))), &
5046	& TRIM(" "), &
5047	& TRIM(" "), iim,jjm, hist_hori_id, &
5048	& ndeep, 1, ndeep, hist_stomate_deepsoil,32, ave(5), dt,hist_dt)
5049	END DO
5050
5051	DO jv = 1, nvm
5052	WRITE(part_str,'(I2)') jv
5053	IF (jv < 10) part_str(1:1) = '0'
5054	CALL histdef (hist_id_stom, &
5055	& TRIM("diffO2_soil_"//part_str(1:LEN_TRIM(part_str))), &
5056	& TRIM(" "), &
5057	& TRIM(" "), iim,jjm, hist_hori_id, &
5058	& ndeep, 1, ndeep, hist_stomate_deepsoil,32, ave(5), dt,hist_dt)
5059	END DO
5060
5061	DO jv = 1, nvm
5062	WRITE(part_str,'(I2)') jv
5063	IF (jv < 10) part_str(1:1) = '0'
5064	CALL histdef (hist_id_stom, &
5065	& TRIM("alphaO2_soil_"//part_str(1:LEN_TRIM(part_str))), &
5066	& TRIM(" "), &
5067	& TRIM(" "), iim,jjm, hist_hori_id, &
5068	& ndeep, 1, ndeep, hist_stomate_deepsoil,32, ave(5), dt,hist_dt)
5069	END DO
5070
5071	DO jv = 1, nvm
5072	WRITE(part_str,'(I2)') jv
5073	IF (jv < 10) part_str(1:1) = '0'
5074	CALL histdef (hist_id_stom, &
5075	& TRIM("betaO2_soil_"//part_str(1:LEN_TRIM(part_str))), &
5076	& TRIM(" "), &
5077	& TRIM(" "), iim,jjm, hist_hori_id, &
5078	& ndeep, 1, ndeep, hist_stomate_deepsoil,32, ave(5), dt,hist_dt)
5079	END DO
5080	DO jv = 1, nvm
5081	WRITE(part_str,'(I2)') jv
5082	IF (jv < 10) part_str(1:1) = '0'
5083	CALL histdef (hist_id_stom, &
5084	& TRIM("totporCH4_soil_"//part_str(1:LEN_TRIM(part_str))), &
5085	& TRIM(" "), &
5086	& TRIM(" "), iim,jjm, hist_hori_id, &
5087	& ndeep, 1, ndeep, hist_stomate_deepsoil,32, ave(5), dt,hist_dt)
5088	END DO
5089
5090	DO jv = 1, nvm
5091	WRITE(part_str,'(I2)') jv
5092	IF (jv < 10) part_str(1:1) = '0'
5093	CALL histdef (hist_id_stom, &
5094	& TRIM("diffCH4_soil_"//part_str(1:LEN_TRIM(part_str))), &
5095	& TRIM(" "), &
5096	& TRIM(" "), iim,jjm, hist_hori_id, &
5097	& ndeep, 1, ndeep, hist_stomate_deepsoil,32, ave(5), dt,hist_dt)
5098	END DO
5099
5100	DO jv = 1, nvm
5101	WRITE(part_str,'(I2)') jv
5102	IF (jv < 10) part_str(1:1) = '0'
5103	CALL histdef (hist_id_stom, &
5104	& TRIM("alphaCH4_soil_"//part_str(1:LEN_TRIM(part_str))), &
5105	& TRIM(" "), &
5106	& TRIM(" "), iim,jjm, hist_hori_id, &
5107	& ndeep, 1, ndeep, hist_stomate_deepsoil,32, ave(5), dt,hist_dt)
5108	END DO
5109	DO jv = 1, nvm
5110	WRITE(part_str,'(I2)') jv
5111	IF (jv < 10) part_str(1:1) = '0'
5112	CALL histdef (hist_id_stom, &
5113	& TRIM("betaCH4_soil_"//part_str(1:LEN_TRIM(part_str))), &
5114	& TRIM(" "), &
5115	& TRIM(" "), iim,jjm, hist_hori_id, &
5116	& ndeep, 1, ndeep, hist_stomate_deepsoil,32, ave(5), dt, hist_dt)
5117	END DO
5118	ENDIF
5119
5120	call histdef (hist_id_stom, &
5121	& trim("deepC_a_pftmean"), &
5122	& trim("active pool deep soil (permafrost) carbon, mean of all PFTs"), &
5123	& trim("gC/m**3 "), iim,jjm, hist_hori_id, &
5124	& ndeep, 1, ndeep, hist_stomate_deepsoil,32, ave(5), dt, hist_dt)
5125	call histdef (hist_id_stom, &
5126	& trim("deepC_s_pftmean"), &
5127	& trim("slow pool deep soil (permafrost) carbon, mean of all PFTs"), &
5128	& trim("gC/m**3 "), iim,jjm, hist_hori_id, &
5129	& ndeep, 1, ndeep, hist_stomate_deepsoil,32, ave(5), dt, hist_dt)
5130	call histdef (hist_id_stom, &
5131	& trim("deepC_p_pftmean"), &
5132	& trim("passive pool deep soil (permafrost) carbon, mean of all PFTs"),&
5133	& trim("gC/m**3 "), iim,jjm, hist_hori_id, &
5134	& ndeep, 1, ndeep, hist_stomate_deepsoil,32, ave(5), dt, hist_dt)
5135
5136	CALL histdef (hist_id_stom, &
5137	& TRIM("fluxCH4 "), &
5138	& TRIM(" "), &
5139	& TRIM("gCH4/m**2/day "), iim,jjm, hist_hori_id, &
5140	& nvm, 1, nvm, hist_PFTaxis_id,32, ave(5), dt,hist_dt)
5141	CALL histdef (hist_id_stom, &
5142	& TRIM("febul "), &
5143	& TRIM(" "), &
5144	& TRIM("gCH4/m**2/day "), iim,jjm, hist_hori_id, &
5145	& nvm, 1, nvm, hist_PFTaxis_id,32, ave(5), dt,hist_dt)
5146	CALL histdef (hist_id_stom, &
5147	& TRIM("flupmt "), &
5148	& TRIM(" "), &
5149	& TRIM("gCH4/m**2/day "), iim,jjm, hist_hori_id, &
5150	& nvm, 1, nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5151	CALL histdef (hist_id_stom, &
5152	& TRIM("alt "), &
5153	& TRIM("active layer thickness "), &
5154	& TRIM("m "), iim,jjm, hist_hori_id, &
5155	& nvm, 1, nvm, hist_PFTaxis_id,32, ave(5), dt,hist_dt)
5156	CALL histdef (hist_id_stom, &
5157	& TRIM("altmax "), &
5158	& TRIM("max annual alt "), &
5159	& TRIM("m "), iim,jjm, hist_hori_id, &
5160	& nvm, 1, nvm, hist_PFTaxis_id,32, ave(5), dt,hist_dt)
5161	CALL histdef (hist_id_stom, &
5162	& TRIM("sfluxCH4_deep "), &
5163	& TRIM("total surface CH4 flux "), &
5164	& TRIM("gCH4/m**2/sec "), iim,jjm, hist_hori_id, &
5165	& 1, 1, 1, -99,32, ave(5), dt, hist_dt)
5166	CALL histdef (hist_id_stom, &
5167	& TRIM("sfluxCO2_deep "), &
5168	& TRIM("total surface CO2 C flux "), &
5169	& TRIM("gC/m**2/sec "), iim,jjm, hist_hori_id, &
5170	& 1, 1, 1, -99,32, ave(5), dt, hist_dt)
5171
5172	CALL histdef (hist_id_stom, &
5173	& TRIM("z_organic "), &
5174	& TRIM("depth of organic soil "), &
5175	& TRIM("m "), iim,jjm, hist_hori_id, &
5176	& 1, 1, 1, -99,32, 'once(scatter(X))', dt, hist_dt)
5177	CALL histdef (hist_id_stom, &
5178	& TRIM("tsurf "), &
5179	& TRIM("surface temp "), &
5180	& TRIM("K "), iim,jjm, hist_hori_id, &
5181	& 1, 1, 1, -99,32, ave(5), dt, hist_dt)
5182
5183	CALL histdef (hist_id_stom, &
5184	& TRIM("pb "), &
5185	& TRIM("surface pressure "), &
5186	& TRIM("pa "), iim,jjm, hist_hori_id, &
5187	& 1, 1, 1, -99,32, ave(5), dt, hist_dt)
5188
5189	CALL histdef (hist_id_stom, &
5190	& TRIM("mu_soil "), &
5191	& TRIM("mu_soil "), &
5192	& TRIM(" "), iim,jjm, hist_hori_id, &
5193	& 1, 1, 1, -99,32, ave(5), dt, hist_dt)
5194
5195	!spitfire
5196	! Fire fraction from spitfire
5197	CALL histdef (hist_id_stom, &
5198	& TRIM("FIREFRAC_SPITFIRE "), &
5199	& TRIM("Fire fraction on ground by spitfire "), &
5200	& TRIM("1/day "), iim,jjm, hist_hori_id, &
5201	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5202
5203	! fire danger index
5204	CALL histdef (hist_id_stom, &
5205	& TRIM("D_FDI "), &
5206	& TRIM("daily fire danger index "), &
5207	& TRIM("1/day "), iim,jjm, hist_hori_id, &
5208	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5209
5210	! fire danger index
5211	CALL histdef (hist_id_stom, &
5212	& TRIM("ROS_F "), &
5213	& TRIM("forward fire spread rate "), &
5214	& TRIM("m/min "), iim,jjm, hist_hori_id, &
5215	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5216
5217	! number of fires
5218	CALL histdef (hist_id_stom, &
5219	& TRIM("D_NUMFIRE "), &
5220	& TRIM("daily number of fires "), &
5221	& TRIM("1/ha/day "), iim,jjm, hist_hori_id, &
5222	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5223
5224	! number of fires by lightning
5225	CALL histdef (hist_id_stom, &
5226	& TRIM("LIGHTN_NUMFIRE "), &
5227	& TRIM("daily number of fires by lightning "), &
5228	& TRIM("1/day "), iim,jjm, hist_hori_id, &
5229	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5230
5231	! number of fires by human
5232	CALL histdef (hist_id_stom, &
5233	& TRIM("HUMAN_NUMFIRE "), &
5234	& TRIM("daily number of fires by human "), &
5235	& TRIM("1/day "), iim,jjm, hist_hori_id, &
5236	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5237
5238	! area burnt
5239	CALL histdef (hist_id_stom, &
5240	& TRIM("D_AREA_BURNT "), &
5241	& TRIM("daily area burnt "), &
5242	& TRIM("ha/day "), iim,jjm, hist_hori_id, &
5243	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5244
5245	!Escape area burnt
5246	CALL histdef (hist_id_stom, &
5247	& TRIM("BA_ESCAPE "), &
5248	& TRIM("Escaped area burnt "), &
5249	& TRIM("ha/day "), iim,jjm, hist_hori_id, &
5250	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5251
5252	! observed burned area
5253	CALL histdef (hist_id_stom, &
5254	& TRIM("OBSERVED_BA "), &
5255	& TRIM("observed burned area "), &
5256	& TRIM("ha/day "), iim,jjm, hist_hori_id, &
5257	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5258
5259	! number of fire days
5260	CALL histdef (hist_id_stom, &
5261	& TRIM("FIRE_NUMDAY "), &
5262	& TRIM("Number of days burned since beginning of year"), &
5263	& TRIM("day "), iim,jjm, hist_hori_id, &
5264	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5265
5266	! crown_consump
5267	CALL histdef (hist_id_stom, &
5268	& TRIM("CROWN_CONSUMP "), &
5269	& TRIM("C emission from ground litter and grass leaf/fruit burnning "), &
5270	& TRIM("gC/m**2/day "), iim,jjm, hist_hori_id, &
5271	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5272
5273	! litter_consump
5274	CALL histdef (hist_id_stom, &
5275	& TRIM("LITTER_CONSUMP "), &
5276	& TRIM("C emission from ground litter and grass leaf/fruit burnning "), &
5277	& TRIM("gC/m**2/day "), iim,jjm, hist_hori_id, &
5278	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5279
5280	! total lightning ignition
5281	CALL histdef (hist_id_stom, &
5282	& TRIM("LIGHTN_IGN_TOTAL "), &
5283	& TRIM("Lightning ignitions "), &
5284	& TRIM("1/km**2/day "), iim,jjm, hist_hori_id, &
5285	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5286
5287	! lightning ignition
5288	CALL histdef (hist_id_stom, &
5289	& TRIM("LIGHTN_IGN "), &
5290	& TRIM("Number of fires contributed by lightning ignitions "), &
5291	& TRIM("1/km**2/day "), iim,jjm, hist_hori_id, &
5292	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5293
5294	! human ignitions
5295	CALL histdef (hist_id_stom, &
5296	& TRIM("HUMAN_IGN "), &
5297	& TRIM("Number of fires contributed by human ignitions "), &
5298	& TRIM("1/km**2/day "), iim,jjm, hist_hori_id, &
5299	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5300
5301	! trace gas emissions
5302	CALL histdef (hist_id_stom, &
5303	& TRIM("TRACE_GAS_CO2 "), &
5304	& TRIM("CO2 emissions by fire "), &
5305	& TRIM("g/m**2/day "), iim,jjm, hist_hori_id, &
5306	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5307
5308	CALL histdef (hist_id_stom, &
5309	& TRIM("TRACE_GAS_CO "), &
5310	& TRIM("CO emissions by fire "), &
5311	& TRIM("g/m**2/day "), iim,jjm, hist_hori_id, &
5312	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5313	CALL histdef (hist_id_stom, &
5314	& TRIM("TRACE_GAS_CH4 "), &
5315	& TRIM("CH4 emissions by fire "), &
5316	& TRIM("g/m**2/day "), iim,jjm, hist_hori_id, &
5317	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5318	CALL histdef (hist_id_stom, &
5319	& TRIM("TRACE_GAS_VOC "), &
5320	& TRIM("VOC emissions by fire "), &
5321	& TRIM("g/m**2/day "), iim,jjm, hist_hori_id, &
5322	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5323	CALL histdef (hist_id_stom, &
5324	& TRIM("TRACE_GAS_TPM "), &
5325	& TRIM("TPM emissions by fire "), &
5326	& TRIM("g/m**2/day "), iim,jjm, hist_hori_id, &
5327	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5328	CALL histdef (hist_id_stom, &
5329	& TRIM("TRACE_GAS_NOx "), &
5330	& TRIM("NOx emissions by fire "), &
5331	& TRIM("g/m**2/day "), iim,jjm, hist_hori_id, &
5332	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5333
5334	CALL histdef (hist_id_stom, &
5335	& TRIM("bafrac_deforest "), &
5336	& TRIM("Deforestation fire burned fraction "), &
5337	& TRIM("- "), iim,jjm, hist_hori_id, &
5338	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5339
5340	CALL histdef (hist_id_stom, &
5341	& TRIM("bafrac_deforest_accu "), &
5342	& TRIM("Cumulative deforestation fire burned fraction "), &
5343	& TRIM("- "), iim,jjm, hist_hori_id, &
5344	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5345
5346
5347	!! Chao test LCC
5348
5349	! Leaf mass
5350	CALL histdef (hist_id_stom, &
5351	& TRIM("DefLitSurplus"), &
5352	& TRIM(" "), &
5353	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5354	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5355
5356	! Leaf mass
5357	CALL histdef (hist_id_stom, &
5358	& TRIM("DefBioSurplus"), &
5359	& TRIM(" "), &
5360	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5361	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5362
5363
5364
5365	CALL histdef (hist_id_stom, &
5366	& TRIM("AccEDlitSTR"), &
5367	& TRIM(" "), &
5368	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5369	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5370	CALL histdef (hist_id_stom, &
5371	& TRIM("AccEDlitMET"), &
5372	& TRIM(" "), &
5373	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5374	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5375	CALL histdef (hist_id_stom, &
5376	& TRIM("EDlitSTR"), &
5377	& TRIM(" "), &
5378	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5379	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5380	CALL histdef (hist_id_stom, &
5381	& TRIM("EDlitMET"), &
5382	& TRIM(" "), &
5383	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5384	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5385
5386
5387	!!Surplus and deficit
5388	CALL histdef (hist_id_stom, &
5389	& TRIM("DefiLitSTR"), &
5390	& TRIM(" "), &
5391	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5392	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5393	CALL histdef (hist_id_stom, &
5394	& TRIM("DefiLitMET"), &
5395	& TRIM(" "), &
5396	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5397	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5398	CALL histdef (hist_id_stom, &
5399	& TRIM("DefiBioLEAF"), &
5400	& TRIM(" "), &
5401	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5402	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5403	CALL histdef (hist_id_stom, &
5404	& TRIM("DefiBioRESERVE"), &
5405	& TRIM(" "), &
5406	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5407	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5408	CALL histdef (hist_id_stom, &
5409	& TRIM("DefiBioFRUIT"), &
5410	& TRIM(" "), &
5411	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5412	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5413	CALL histdef (hist_id_stom, &
5414	& TRIM("DefiBioSapABOVE"), &
5415	& TRIM(" "), &
5416	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5417	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5418	CALL histdef (hist_id_stom, &
5419	& TRIM("DefiBioHeartABOVE"), &
5420	& TRIM(" "), &
5421	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5422	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5423	CALL histdef (hist_id_stom, &
5424	& TRIM("DefiBioSapBELOW"), &
5425	& TRIM(" "), &
5426	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5427	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5428	CALL histdef (hist_id_stom, &
5429	& TRIM("DefiBioHeartBELOW"), &
5430	& TRIM(" "), &
5431	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5432	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5433	CALL histdef (hist_id_stom, &
5434	& TRIM("DefiBioROOT"), &
5435	& TRIM(" "), &
5436	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5437	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5438
5439	CALL histdef (hist_id_stom, &
5440	& TRIM("SurpLitSTR"), &
5441	& TRIM(" "), &
5442	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5443	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5444	CALL histdef (hist_id_stom, &
5445	& TRIM("SurpLitMET"), &
5446	& TRIM(" "), &
5447	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5448	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5449	CALL histdef (hist_id_stom, &
5450	& TRIM("SurpBioLEAF"), &
5451	& TRIM(" "), &
5452	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5453	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5454	CALL histdef (hist_id_stom, &
5455	& TRIM("SurpBioRESERVE"), &
5456	& TRIM(" "), &
5457	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5458	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5459	CALL histdef (hist_id_stom, &
5460	& TRIM("SurpBioFRUIT"), &
5461	& TRIM(" "), &
5462	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5463	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5464	CALL histdef (hist_id_stom, &
5465	& TRIM("SurpBioSapABOVE"), &
5466	& TRIM(" "), &
5467	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5468	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5469	CALL histdef (hist_id_stom, &
5470	& TRIM("SurpBioHeartABOVE"), &
5471	& TRIM(" "), &
5472	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5473	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5474	CALL histdef (hist_id_stom, &
5475	& TRIM("SurpBioSapBELOW"), &
5476	& TRIM(" "), &
5477	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5478	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5479	CALL histdef (hist_id_stom, &
5480	& TRIM("SurpBioHeartBELOW"), &
5481	& TRIM(" "), &
5482	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5483	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5484	CALL histdef (hist_id_stom, &
5485	& TRIM("SurpBioROOT"), &
5486	& TRIM(" "), &
5487	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5488	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5489
5490
5491
5492	CALL histdef (hist_id_stom, &
5493	& TRIM("EDbioLEAF"), &
5494	& TRIM(" "), &
5495	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5496	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5497	CALL histdef (hist_id_stom, &
5498	& TRIM("EDbioRESERVE"), &
5499	& TRIM(" "), &
5500	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5501	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5502	CALL histdef (hist_id_stom, &
5503	& TRIM("EDbioFRUIT"), &
5504	& TRIM(" "), &
5505	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5506	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5507	CALL histdef (hist_id_stom, &
5508	& TRIM("EDbioSapABOVE"), &
5509	& TRIM(" "), &
5510	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5511	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5512	CALL histdef (hist_id_stom, &
5513	& TRIM("EDbioHeartABOVE"), &
5514	& TRIM(" "), &
5515	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5516	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5517	CALL histdef (hist_id_stom, &
5518	& TRIM("EDbioSapBELOW"), &
5519	& TRIM(" "), &
5520	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5521	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5522	CALL histdef (hist_id_stom, &
5523	& TRIM("EDbioHeartBELOW"), &
5524	& TRIM(" "), &
5525	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5526	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5527	CALL histdef (hist_id_stom, &
5528	& TRIM("EDbioROOT"), &
5529	& TRIM(" "), &
5530	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5531	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5532	CALL histdef (hist_id_stom, &
5533	& TRIM("AccEDbioLEAF"), &
5534	& TRIM(" "), &
5535	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5536	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5537	CALL histdef (hist_id_stom, &
5538	& TRIM("AccEDbioRESERVE"), &
5539	& TRIM(" "), &
5540	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5541	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5542	CALL histdef (hist_id_stom, &
5543	& TRIM("AccEDbioFRUIT"), &
5544	& TRIM(" "), &
5545	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5546	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5547	CALL histdef (hist_id_stom, &
5548	& TRIM("AccEDbioSapABOVE"), &
5549	& TRIM(" "), &
5550	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5551	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5552	CALL histdef (hist_id_stom, &
5553	& TRIM("AccEDbioHeartABOVE"), &
5554	& TRIM(" "), &
5555	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5556	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5557	CALL histdef (hist_id_stom, &
5558	& TRIM("AccEDbioSapBELOW"), &
5559	& TRIM(" "), &
5560	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5561	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5562	CALL histdef (hist_id_stom, &
5563	& TRIM("AccEDbioHeartBELOW"), &
5564	& TRIM(" "), &
5565	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5566	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5567	CALL histdef (hist_id_stom, &
5568	& TRIM("AccEDbioROOT"), &
5569	& TRIM(" "), &
5570	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5571	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5572
5573	CALL histdef (hist_id_stom, &
5574	& TRIM("LCC"), &
5575	& TRIM(" "), &
5576	& TRIM("gC/m^2 "), iim,jjm, hist_hori_id, &
5577	& nvm,1,nvm, hist_PFTaxis_id,32, ave(2), dt, hist_dt)
5578
5579	CALL histdef (hist_id_stom, &
5580	& TRIM("dilu_lit_met "), &
5581	& TRIM(""), &
5582	& TRIM(""), iim,jjm, hist_hori_id, &
5583	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5584	CALL histdef (hist_id_stom, &
5585	& TRIM("dilu_lit_str "), &
5586	& TRIM(""), &
5587	& TRIM(""), iim,jjm, hist_hori_id, &
5588	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5589
5590
5591	!for test in spitfire
5592	CALL histdef (hist_id_stom, &
5593	& TRIM("alpha_fuel "), &
5594	& TRIM(""), &
5595	& TRIM(""), iim,jjm, hist_hori_id, &
5596	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5597	CALL histdef (hist_id_stom, &
5598	& TRIM("char_moistfactor "), &
5599	& TRIM(""), &
5600	& TRIM(""), iim,jjm, hist_hori_id, &
5601	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5602	CALL histdef (hist_id_stom, &
5603	& TRIM("ni_acc "), &
5604	& TRIM(""), &
5605	& TRIM(""), iim,jjm, hist_hori_id, &
5606	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5607	CALL histdef (hist_id_stom, &
5608	& TRIM("t2m_min_daily "), &
5609	& TRIM(""), &
5610	& TRIM(""), iim,jjm, hist_hori_id, &
5611	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5612	CALL histdef (hist_id_stom, &
5613	& TRIM("t2m_max_daily "), &
5614	& TRIM(""), &
5615	& TRIM(""), iim,jjm, hist_hori_id, &
5616	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5617	CALL histdef (hist_id_stom, &
5618	& TRIM("precip_daily "), &
5619	& TRIM(""), &
5620	& TRIM(""), iim,jjm, hist_hori_id, &
5621	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5622
5623	CALL histdef (hist_id_stom, &
5624	& TRIM("topsoilhum_daily "), &
5625	& TRIM("daily top soil layer humidity"), &
5626	& TRIM(""), iim,jjm, hist_hori_id, &
5627	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5628
5629	CALL histdef (hist_id_stom, &
5630	& TRIM("moist_extinction "), &
5631	& TRIM("combined livegrass and dead fuel moisture of extinction"), &
5632	& TRIM(""), iim,jjm, hist_hori_id, &
5633	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5634
5635	CALL histdef (hist_id_stom, &
5636	& TRIM("dfm_1hr "), &
5637	& TRIM("daily 1hr fule moisture as influenced by NI"), &
5638	& TRIM(""), iim,jjm, hist_hori_id, &
5639	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5640
5641	CALL histdef (hist_id_stom, &
5642	& TRIM("dfm_lg "), &
5643	& TRIM("daily live grass fuel moisture as influenced by top soil layer humidity"), &
5644	& TRIM(""), iim,jjm, hist_hori_id, &
5645	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5646
5647	CALL histdef (hist_id_stom, &
5648	& TRIM("dfm_lg_d1hr "), &
5649	& TRIM("combined livegrass and 1hr-fuel fuel moisture"), &
5650	& TRIM(""), iim,jjm, hist_hori_id, &
5651	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5652
5653	CALL histdef (hist_id_stom, &
5654	& TRIM("dfm "), &
5655	& TRIM("daily dead fuel moisture"), &
5656	& TRIM(""), iim,jjm, hist_hori_id, &
5657	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5658
5659	CALL histdef (hist_id_stom, &
5660	& TRIM("wetness "), &
5661	& TRIM("wetness"), &
5662	& TRIM(""), iim,jjm, hist_hori_id, &
5663	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5664
5665	CALL histdef (hist_id_stom, &
5666	& TRIM("wetness_lg "), &
5667	& TRIM(""), &
5668	& TRIM(""), iim,jjm, hist_hori_id, &
5669	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5670
5671	CALL histdef (hist_id_stom, &
5672	& TRIM("wetness_1hr "), &
5673	& TRIM(""), &
5674	& TRIM(""), iim,jjm, hist_hori_id, &
5675	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5676
5677	CALL histdef (hist_id_stom, &
5678	& TRIM("fire_durat "), &
5679	& TRIM(""), &
5680	& TRIM(""), iim,jjm, hist_hori_id, &
5681	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5682	CALL histdef (hist_id_stom, &
5683	& TRIM("ros_b "), &
5684	& TRIM(""), &
5685	& TRIM(""), iim,jjm, hist_hori_id, &
5686	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5687	CALL histdef (hist_id_stom, &
5688	& TRIM("ros_f "), &
5689	& TRIM(""), &
5690	& TRIM(""), iim,jjm, hist_hori_id, &
5691	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5692	CALL histdef (hist_id_stom, &
5693	& TRIM("wind_speed "), &
5694	& TRIM(""), &
5695	& TRIM(""), iim,jjm, hist_hori_id, &
5696	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5697
5698	CALL histdef (hist_id_stom, &
5699	& TRIM("cf_lg "), &
5700	& TRIM(""), &
5701	& TRIM(""), iim,jjm, hist_hori_id, &
5702	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5703
5704
5705	CALL histdef (hist_id_stom, &
5706	& TRIM("cf_1hr "), &
5707	& TRIM(""), &
5708	& TRIM(""), iim,jjm, hist_hori_id, &
5709	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5710
5711	CALL histdef (hist_id_stom, &
5712	& TRIM("cf_10hr "), &
5713	& TRIM(""), &
5714	& TRIM(""), iim,jjm, hist_hori_id, &
5715	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5716
5717	CALL histdef (hist_id_stom, &
5718	& TRIM("cf_100hr "), &
5719	& TRIM(""), &
5720	& TRIM(""), iim,jjm, hist_hori_id, &
5721	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5722
5723	CALL histdef (hist_id_stom, &
5724	& TRIM("cf_1000hr "), &
5725	& TRIM(""), &
5726	& TRIM(""), iim,jjm, hist_hori_id, &
5727	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5728
5729	CALL histdef (hist_id_stom, &
5730	& TRIM("cf_coarse "), &
5731	& TRIM(""), &
5732	& TRIM(""), iim,jjm, hist_hori_id, &
5733	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5734
5735	CALL histdef (hist_id_stom, &
5736	& TRIM("cf_fine "), &
5737	& TRIM(""), &
5738	& TRIM(""), iim,jjm, hist_hori_id, &
5739	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5740
5741	CALL histdef (hist_id_stom, &
5742	& TRIM("cf_ave "), &
5743	& TRIM(""), &
5744	& TRIM(""), iim,jjm, hist_hori_id, &
5745	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5746	!spitfiretest
5747	! CALL histdef (hist_id_stom, &
5748	! & TRIM("fuel_nlitt_total_pft_met "), &
5749	! & TRIM(" "), &
5750	! & TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
5751	! & nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5752	!
5753	! CALL histdef (hist_id_stom, &
5754	! & TRIM("fuel_nlitt_total_pft_str "), &
5755	! & TRIM(" "), &
5756	! & TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
5757	! & nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5758	!
5759	CALL histdef (hist_id_stom, &
5760	& TRIM("fuel_1hr_met_b "), &
5761	& TRIM(" "), &
5762	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
5763	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5764
5765	CALL histdef (hist_id_stom, &
5766	& TRIM("fuel_1hr_str_b "), &
5767	& TRIM(" "), &
5768	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
5769	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5770
5771	CALL histdef (hist_id_stom, &
5772	& TRIM("fuel_10hr_met_b "), &
5773	& TRIM(" "), &
5774	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
5775	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5776
5777	CALL histdef (hist_id_stom, &
5778	& TRIM("fuel_10hr_str_b "), &
5779	& TRIM(" "), &
5780	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
5781	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5782
5783	CALL histdef (hist_id_stom, &
5784	& TRIM("fuel_100hr_met_b "), &
5785	& TRIM(" "), &
5786	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
5787	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5788
5789	CALL histdef (hist_id_stom, &
5790	& TRIM("fuel_100hr_str_b "), &
5791	& TRIM(" "), &
5792	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
5793	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5794
5795	CALL histdef (hist_id_stom, &
5796	& TRIM("fuel_1000hr_met_b "), &
5797	& TRIM(" "), &
5798	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
5799	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5800
5801	CALL histdef (hist_id_stom, &
5802	& TRIM("fuel_1000hr_str_b "), &
5803	& TRIM(" "), &
5804	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
5805	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5806	!endspittest
5807
5808	CALL histdef (hist_id_stom, &
5809	& TRIM("fc_1hr_carbon "), &
5810	& TRIM(" "), &
5811	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
5812	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5813
5814	CALL histdef (hist_id_stom, &
5815	& TRIM("fc_10hr_carbon "), &
5816	& TRIM(" "), &
5817	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
5818	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5819
5820	CALL histdef (hist_id_stom, &
5821	& TRIM("fc_100hr_carbon "), &
5822	& TRIM(" "), &
5823	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
5824	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5825
5826	CALL histdef (hist_id_stom, &
5827	& TRIM("fc_1000hr_carbon "), &
5828	& TRIM(" "), &
5829	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
5830	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5831
5832	CALL histdef (hist_id_stom, &
5833	& TRIM("fuel_1hr_met "), &
5834	& TRIM(" "), &
5835	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
5836	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5837
5838	CALL histdef (hist_id_stom, &
5839	& TRIM("fuel_1hr_str "), &
5840	& TRIM(" "), &
5841	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
5842	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5843
5844	CALL histdef (hist_id_stom, &
5845	& TRIM("fuel_10hr_met "), &
5846	& TRIM(" "), &
5847	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
5848	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5849
5850	CALL histdef (hist_id_stom, &
5851	& TRIM("fuel_10hr_str "), &
5852	& TRIM(" "), &
5853	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
5854	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5855
5856	CALL histdef (hist_id_stom, &
5857	& TRIM("fuel_100hr_met "), &
5858	& TRIM(" "), &
5859	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
5860	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5861
5862	CALL histdef (hist_id_stom, &
5863	& TRIM("fuel_100hr_str "), &
5864	& TRIM(" "), &
5865	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
5866	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5867
5868	CALL histdef (hist_id_stom, &
5869	& TRIM("fuel_1000hr_met "), &
5870	& TRIM(" "), &
5871	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
5872	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5873
5874	CALL histdef (hist_id_stom, &
5875	& TRIM("fuel_1000hr_str "), &
5876	& TRIM(" "), &
5877	& TRIM("gC/m^2/pft "), iim,jjm, hist_hori_id, &
5878	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5879
5880	CALL histdef (hist_id_stom, &
5881	& TRIM("sh "), &
5882	& TRIM(" "), &
5883	& TRIM(" "), iim,jjm, hist_hori_id, &
5884	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5885	CALL histdef (hist_id_stom, &
5886	& TRIM("ck "), &
5887	& TRIM(" "), &
5888	& TRIM(" "), iim,jjm, hist_hori_id, &
5889	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5890
5891	CALL histdef (hist_id_stom, &
5892	& TRIM("pm_ck "), &
5893	& TRIM(" "), &
5894	& TRIM(" "), iim,jjm, hist_hori_id, &
5895	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5896	CALL histdef (hist_id_stom, &
5897	& TRIM("pm_tau "), &
5898	& TRIM(" "), &
5899	& TRIM(" "), iim,jjm, hist_hori_id, &
5900	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5901	CALL histdef (hist_id_stom, &
5902	& TRIM("postf_mort "), &
5903	& TRIM(" "), &
5904	& TRIM(" "), iim,jjm, hist_hori_id, &
5905	& nvm,1,nvm, hist_PFTaxis_id,32, ave(5), dt, hist_dt)
5906
5907	CALL histdef (hist_id_stom, &
5908	& TRIM("mean_fire_size_or "), &
5909	& TRIM("mean fire size before intensity correction"), &
5910	& TRIM(""), iim,jjm, hist_hori_id, &
5911	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5912
5913	CALL histdef (hist_id_stom, &
5914	& TRIM("mean_fire_size "), &
5915	& TRIM("mean fire size after intensity correction"), &
5916	& TRIM(""), iim,jjm, hist_hori_id, &
5917	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5918
5919	CALL histdef (hist_id_stom, &
5920	& TRIM("char_dens_fuel_ave "), &
5921	& TRIM(""), &
5922	& TRIM(""), iim,jjm, hist_hori_id, &
5923	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5924
5925	CALL histdef (hist_id_stom, &
5926	& TRIM("sigma "), &
5927	& TRIM(""), &
5928	& TRIM(""), iim,jjm, hist_hori_id, &
5929	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5930
5931	CALL histdef (hist_id_stom, &
5932	& TRIM("d_i_surface "), &
5933	& TRIM(""), &
5934	& TRIM(""), iim,jjm, hist_hori_id, &
5935	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5936
5937	CALL histdef (hist_id_stom, &
5938	& TRIM("dead_fuel "), &
5939	& TRIM(""), &
5940	& TRIM(" "), iim,jjm, hist_hori_id, &
5941	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5942	CALL histdef (hist_id_stom, &
5943	& TRIM("dead_fuel_all "), &
5944	& TRIM(""), &
5945	& TRIM(" "), iim,jjm, hist_hori_id, &
5946	& 1,1,1, -99,32, ave(5), dt, hist_dt)
5947
5948
5949	!endspit
5950
5951	!glcc
5952	IF (use_age_class) THEN
5953	! Loss of fraction of each PFT
5954	CALL histdef (hist_id_stom, &
5955	& TRIM("glcc_pft "), &
5956	& TRIM("Loss of fraction in each PFT "), &
5957	& TRIM(" "), iim,jjm, hist_hori_id, &
5958	& nvm,1,nvm, hist_PFTaxis_id,32, 'once(scatter(X))', dt, hist_dt)
5959
5960	! Loss of fraction of each PFT for foretry harvest
5961	CALL histdef (hist_id_stom, &
5962	& TRIM("glcc_harvest "), &
5963	& TRIM("Loss of fraction due to forestry harvest in each PFT "), &
5964	& TRIM(" "), iim,jjm, hist_hori_id, &
5965	& nvm,1,nvm, hist_PFTaxis_id,32, 'once(scatter(X))', dt, hist_dt)
5966
5967	CALL histdef (hist_id_stom, &
5968	& TRIM("harvest_wood "), &
5969	& TRIM("harvest aboveground wood from forestry "), &
5970	& TRIM("gC/m**2/yr-1 "), iim,jjm, hist_hori_id, &
5971	& 1,1,1, -99,32, 'once(scatter(X))', dt, hist_dt)
5972
5973	! Transition of each PFT to MTC
5974	DO jv = 1, nvmap
5975	WRITE(part_str,'(I2)') jv
5976	IF (jv < 10) part_str(1:1) = '0'
5977	CALL histdef (hist_id_stom, &
5978	& TRIM("glcc_pftmtc_"//part_str(1:LEN_TRIM(part_str))), &
5979	& TRIM("Transition of each PFT to MTC "//part_str(1:LEN_TRIM(part_str))), &
5980	& TRIM(" "), iim,jjm, hist_hori_id, &
5981	& nvm,1,nvm, hist_PFTaxis_id,32, 'once(scatter(X))', dt, hist_dt)
5982	END DO
5983
5984	! Transition of each PFT to MTC
5985	DO jv = 1, nvmap
5986	WRITE(part_str,'(I2)') jv
5987	IF (jv < 10) part_str(1:1) = '0'
5988	CALL histdef (hist_id_stom, &
5989	& TRIM("glcc_pftmtc_H_"//part_str(1:LEN_TRIM(part_str))), &
5990	& TRIM("Transition of each PFT to MTC "//part_str(1:LEN_TRIM(part_str))), &
5991	& TRIM(" "), iim,jjm, hist_hori_id, &
5992	& nvm,1,nvm, hist_PFTaxis_id,32, 'once(scatter(X))', dt, hist_dt)
5993	END DO
5994
5995	! Transition of each PFT to MTC
5996	DO jv = 1, nvmap
5997	WRITE(part_str,'(I2)') jv
5998	IF (jv < 10) part_str(1:1) = '0'
5999	CALL histdef (hist_id_stom, &
6000	& TRIM("glcc_pftmtc_SF_"//part_str(1:LEN_TRIM(part_str))), &
6001	& TRIM("Transition of each PFT to MTC "//part_str(1:LEN_TRIM(part_str))), &
6002	& TRIM(" "), iim,jjm, hist_hori_id, &
6003	& nvm,1,nvm, hist_PFTaxis_id,32, 'once(scatter(X))', dt, hist_dt)
6004	END DO
6005
6006	! Transition of each PFT to MTC
6007	DO jv = 1, nvmap
6008	WRITE(part_str,'(I2)') jv
6009	IF (jv < 10) part_str(1:1) = '0'
6010	CALL histdef (hist_id_stom, &
6011	& TRIM("glcc_pftmtc_NPF_"//part_str(1:LEN_TRIM(part_str))), &
6012	& TRIM("Transition of each PFT to MTC "//part_str(1:LEN_TRIM(part_str))), &
6013	& TRIM(" "), iim,jjm, hist_hori_id, &
6014	& nvm,1,nvm, hist_PFTaxis_id,32, 'once(scatter(X))', dt, hist_dt)
6015	END DO
6016
6017	! Real glcc matrix used
6018	CALL histdef (hist_id_stom, &
6019	& TRIM("glccReal "), &
6020	& TRIM("The glcc matrix used in the gross LCC "), &
6021	& TRIM(" "), iim,jjm, hist_hori_id, &
6022	& nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
6023
6024
6025	! Real glcc matrix used
6026	CALL histdef (hist_id_stom, &
6027	& TRIM("glccRealHarvest "), &
6028	& TRIM("The glcc matrix used in the gross LCC "), &
6029	& TRIM(" "), iim,jjm, hist_hori_id, &
6030	& nvm,1,nvm, hist_PFTaxis_id,32, 'once(scatter(X))', dt, hist_dt)
6031
6032	! Real glcc matrix used
6033	CALL histdef (hist_id_stom, &
6034	& TRIM("glccRealSecShift "), &
6035	& TRIM("The glcc matrix used in the gross LCC "), &
6036	& TRIM(" "), iim,jjm, hist_hori_id, &
6037	& nvm,1,nvm, hist_PFTaxis_id,32, 'once(scatter(X))', dt, hist_dt)
6038
6039	! Real glcc matrix used
6040	CALL histdef (hist_id_stom, &
6041	& TRIM("glccRealNetPriShift "), &
6042	& TRIM("The glcc matrix used in the gross LCC "), &
6043	& TRIM(" "), iim,jjm, hist_hori_id, &
6044	& nvm,1,nvm, hist_PFTaxis_id,32, 'once(scatter(X))', dt, hist_dt)
6045
6046	! Real glcc matrix used
6047	CALL histdef (hist_id_stom, &
6048	& TRIM("glccDefSecShift "), &
6049	& TRIM("The glcc matrix used in the gross LCC "), &
6050	& TRIM(" "), iim,jjm, hist_hori_id, &
6051	& nvm,1,nvm, hist_PFTaxis_id,32, 'once(scatter(X))', dt, hist_dt)
6052
6053	! Real glcc matrix used
6054	CALL histdef (hist_id_stom, &
6055	& TRIM("glccDefNetPriShift "), &
6056	& TRIM("The glcc matrix used in the gross LCC "), &
6057	& TRIM(" "), iim,jjm, hist_hori_id, &
6058	& nvm,1,nvm, hist_PFTaxis_id,32, 'once(scatter(X))', dt, hist_dt)
6059
6060	! Increment deficit
6061	CALL histdef (hist_id_stom, &
6062	& TRIM("IncreDeficit "), &
6063	& TRIM("Deficit in glcc, in same sequence as input transition matrix"), &
6064	& TRIM(" "), iim,jjm, hist_hori_id, &
6065	& nvm,1,nvm, hist_PFTaxis_id,32, 'once(scatter(X))', dt, hist_dt)
6066
6067	! Deficit and compensation from forestry harvest
6068	CALL histdef (hist_id_stom, &
6069	& TRIM("DefiComForHarvest "), &
6070	& TRIM("Deficit_pf2yf_final, Deficit_sf2yf_final, pf2yf_compen_sf2yf, sf2yf_compen_pf2yf"), &
6071	& TRIM(" "), iim,jjm, hist_hori_id, &
6072	& nvm,1,nvm, hist_PFTaxis_id,32, 'once(scatter(X))', dt, hist_dt)
6073	END IF ! (use_age_class)
6074
6075	IF (use_bound_spa) THEN
6076	CALL histdef (hist_id_stom, &
6077	& TRIM("bound_spa "), &
6078	& TRIM("Spatial age class boundaries "), &
6079	& TRIM(" "), iim,jjm, hist_hori_id, &
6080	& nvm,1,nvm, hist_PFTaxis_id,32, 'once(scatter(X))', dt, hist_dt)
6081	ENDIF
6082	!endglcc
6083
6084	ENDIF
6085	!---------------------------------
6086	END SUBROUTINE ioipslctrl_histstom
6087
6088	!! ================================================================================================================================
6089	!! SUBROUTINE : ioipslctrl_histstomipcc
6090	!!
6091	!>\BRIEF This subroutine initialize the IOIPSL stomate second output file (ipcc file)
6092	!!
6093	!! DESCRIPTION : This subroutine initialize the IOIPSL stomate second output file named stomate_ipcc_history.nc(default name).
6094	!! This subroutine was previously called stom_IPCC_define_history and located in module intersurf.
6095	!!
6096	!! RECENT CHANGE(S): None
6097	!!
6098	!! \n
6099	!_ ================================================================================================================================
6100	SUBROUTINE ioipslctrl_histstomipcc( &
6101	hist_id_stom_IPCC, nvm, iim, jjm, dt, &
6102	hist_dt, hist_hori_id, hist_PFTaxis_id)
6103	! deforestation axis added as arguments
6104
6105	!---------------------------------------------------------------------
6106	!- Tell ioipsl which variables are to be written
6107	!- and on which grid they are defined
6108	!---------------------------------------------------------------------
6109	IMPLICIT NONE
6110	!-
6111	!- Input
6112	!-
6113	!- File id
6114	INTEGER(i_std),INTENT(in) :: hist_id_stom_IPCC
6115	!- number of PFTs
6116	INTEGER(i_std),INTENT(in) :: nvm
6117	!- Domain size
6118	INTEGER(i_std),INTENT(in) :: iim, jjm
6119	!- Time step of STOMATE (seconds)
6120	REAL(r_std),INTENT(in) :: dt
6121	!- Time step of history file (s)
6122	REAL(r_std),INTENT(in) :: hist_dt
6123	!- id horizontal grid
6124	INTEGER(i_std),INTENT(in) :: hist_hori_id
6125	!- id of PFT axis
6126	INTEGER(i_std),INTENT(in) :: hist_PFTaxis_id
6127	!-
6128	!- 1 local
6129	!-
6130	!- Character strings to define operations for histdef
6131	CHARACTER(LEN=40),DIMENSION(max_hist_level) :: ave
6132
6133	!=====================================================================
6134	!- 1 define operations
6135	!=====================================================================
6136	ave(1) = 'ave(scatter(X))'
6137	!=====================================================================
6138	!- 2 surface fields (2d)
6139	!=====================================================================
6140	! Carbon in Vegetation
6141	CALL histdef (hist_id_stom_IPCC, &
6142	& TRIM("cVeg"), &
6143	& TRIM("Carbon in Vegetation"), &
6144	& TRIM("kg C m-2"), iim,jjm, hist_hori_id, &
6145	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6146	! Carbon in Litter Pool
6147	CALL histdef (hist_id_stom_IPCC, &
6148	& TRIM("cLitter"), &
6149	& TRIM("Carbon in Litter Pool"), &
6150	& TRIM("kg C m-2"), iim,jjm, hist_hori_id, &
6151	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6152	! Carbon in Soil Pool
6153	CALL histdef (hist_id_stom_IPCC, &
6154	& TRIM("cSoil"), &
6155	& TRIM("Carbon in Soil Pool"), &
6156	& TRIM("kg C m-2"), iim,jjm, hist_hori_id, &
6157	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6158	! Carbon in Products of Land Use Change
6159	CALL histdef (hist_id_stom_IPCC, &
6160	& TRIM("cProduct"), &
6161	& TRIM("Carbon in Products of Land Use Change"), &
6162	& TRIM("kg C m-2"), iim,jjm, hist_hori_id, &
6163	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6164	! Carbon Mass Variation
6165	CALL histdef (hist_id_stom_IPCC, &
6166	& TRIM("cMassVariation"), &
6167	& TRIM("Terrestrial Carbon Mass Variation"), &
6168	& TRIM("kg C m-2 s-1"), iim,jjm, hist_hori_id, &
6169	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6170	! Leaf Area Fraction
6171	CALL histdef (hist_id_stom_IPCC, &
6172	& TRIM("lai"), &
6173	& TRIM("Leaf Area Fraction"), &
6174	& TRIM("1"), iim,jjm, hist_hori_id, &
6175	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6176	! Gross Primary Production
6177	CALL histdef (hist_id_stom_IPCC, &
6178	& TRIM("gpp"), &
6179	& TRIM("Gross Primary Production"), &
6180	& TRIM("kg C m-2 s-1"), iim,jjm, hist_hori_id, &
6181	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6182	! Autotrophic Respiration
6183	CALL histdef (hist_id_stom_IPCC, &
6184	& TRIM("ra"), &
6185	& TRIM("Autotrophic Respiration"), &
6186	& TRIM("kg C m-2 s-1"), iim,jjm, hist_hori_id, &
6187	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6188	! Net Primary Production
6189	CALL histdef (hist_id_stom_IPCC, &
6190	& TRIM("npp"), &
6191	& TRIM("Net Primary Production"), &
6192	& TRIM("kg C m-2 s-1"), iim,jjm, hist_hori_id, &
6193	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6194	! Heterotrophic Respiration
6195	CALL histdef (hist_id_stom_IPCC, &
6196	& TRIM("rh"), &
6197	& TRIM("Heterotrophic Respiration"), &
6198	& TRIM("kg C m-2 s-1"), iim,jjm, hist_hori_id, &
6199	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6200	! CO2 Emission from Fire
6201	CALL histdef (hist_id_stom_IPCC, &
6202	& TRIM("fFire"), &
6203	& TRIM("CO2 Emission from Fire"), &
6204	& TRIM("kg C m-2 s-1"), iim,jjm, hist_hori_id, &
6205	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6206
6207	! CO2 Flux to Atmosphere from Crop Harvesting
6208	CALL histdef (hist_id_stom_IPCC, &
6209	& TRIM("fHarvest"), &
6210	& TRIM("CO2 Flux to Atmosphere from Crop Harvesting"), &
6211	& TRIM("kg C m-2 s-1"), iim,jjm, hist_hori_id, &
6212	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6213	! CO2 Flux to Atmosphere from Land Use Change
6214	CALL histdef (hist_id_stom_IPCC, &
6215	& TRIM("fLuc"), &
6216	& TRIM("CO2 Flux to Atmosphere from Land Use Change"), &
6217	& TRIM("kg C m-2 s-1"), iim,jjm, hist_hori_id, &
6218	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6219	! CO2 Flux to Atmosphere from Wood Harvest
6220	CALL histdef (hist_id_stom_IPCC, &
6221	& TRIM("fWoodharvest"), &
6222	& TRIM("CO2 Flux to Atmosphere from Wood Harvest"), &
6223	& TRIM("kg C m-2 s-1"), iim,jjm, hist_hori_id, &
6224	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6225
6226	! Net Biospheric Production
6227	CALL histdef (hist_id_stom_IPCC, &
6228	& TRIM("nbp"), &
6229	& TRIM("Net Biospheric Production"), &
6230	& TRIM("kg C m-2 s-1"), iim,jjm, hist_hori_id, &
6231	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6232	! Total Carbon Flux from Vegetation to Litter
6233	CALL histdef (hist_id_stom_IPCC, &
6234	& TRIM("fVegLitter"), &
6235	& TRIM("Total Carbon Flux from Vegetation to Litter"), &
6236	& TRIM("kg C m-2 s-1"), iim,jjm, hist_hori_id, &
6237	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6238	! Total Carbon Flux from Litter to Soil
6239	CALL histdef (hist_id_stom_IPCC, &
6240	& TRIM("fLitterSoil"), &
6241	& TRIM("Total Carbon Flux from Litter to Soil"), &
6242	& TRIM("kg C m-2 s-1"), iim,jjm, hist_hori_id, &
6243	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6244
6245	! Carbon in Leaves
6246	CALL histdef (hist_id_stom_IPCC, &
6247	& TRIM("cLeaf"), &
6248	& TRIM("Carbon in Leaves"), &
6249	& TRIM("kg C m-2"), iim,jjm, hist_hori_id, &
6250	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6251	! Carbon in Stem
6252	CALL histdef (hist_id_stom_IPCC, &
6253	& TRIM("cStem"), &
6254	& TRIM("Carbon in Stem"), &
6255	& TRIM("kg C m-2"), iim,jjm, hist_hori_id, &
6256	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6257	! Carbon in Roots
6258	CALL histdef (hist_id_stom_IPCC, &
6259	& TRIM("cRoot"), &
6260	& TRIM("Carbon in Roots"), &
6261	& TRIM("kg C m-2"), iim,jjm, hist_hori_id, &
6262	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6263	! Carbon in Other Living Compartments
6264	CALL histdef (hist_id_stom_IPCC, &
6265	& TRIM("cMisc"), &
6266	& TRIM("Carbon in Other Living Compartments"), &
6267	& TRIM("kg C m-2"), iim,jjm, hist_hori_id, &
6268	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6269
6270	! Carbon in Above-Ground Litter
6271	CALL histdef (hist_id_stom_IPCC, &
6272	& TRIM("cLitterAbove"), &
6273	& TRIM("Carbon in Above-Ground Litter"), &
6274	& TRIM("kg C m-2"), iim,jjm, hist_hori_id, &
6275	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6276	! Carbon in Below-Ground Litter
6277	CALL histdef (hist_id_stom_IPCC, &
6278	& TRIM("cLitterBelow"), &
6279	& TRIM("Carbon in Below-Ground Litter"), &
6280	& TRIM("kg C m-2"), iim,jjm, hist_hori_id, &
6281	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6282	! Carbon in Fast Soil Pool
6283	CALL histdef (hist_id_stom_IPCC, &
6284	& TRIM("cSoilFast"), &
6285	& TRIM("Carbon in Fast Soil Pool"), &
6286	& TRIM("kg C m-2"), iim,jjm, hist_hori_id, &
6287	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6288	! Carbon in Medium Soil Pool
6289	CALL histdef (hist_id_stom_IPCC, &
6290	& TRIM("cSoilMedium"), &
6291	& TRIM("Carbon in Medium Soil Pool"), &
6292	& TRIM("kg C m-2"), iim,jjm, hist_hori_id, &
6293	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6294	! Carbon in Slow Soil Pool
6295	CALL histdef (hist_id_stom_IPCC, &
6296	& TRIM("cSoilSlow"), &
6297	& TRIM("Carbon in Slow Soil Pool"), &
6298	& TRIM("kg C m-2"), iim,jjm, hist_hori_id, &
6299	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6300
6301	!- 3 PFT: 3rd dimension
6302	! Fractional Land Cover of PFT
6303	CALL histdef (hist_id_stom_IPCC, &
6304	& TRIM("landCoverFrac"), &
6305	& TRIM("Fractional Land Cover of PFT"), &
6306	& TRIM("%"), iim,jjm, hist_hori_id, &
6307	& nvm,1,nvm, hist_PFTaxis_id,32, ave(1), dt, hist_dt)
6308
6309
6310	! Total Primary Deciduous Tree Cover Fraction
6311	CALL histdef (hist_id_stom_IPCC, &
6312	& TRIM("treeFracPrimDec"), &
6313	& TRIM("Total Primary Deciduous Tree Cover Fraction"), &
6314	& TRIM("%"), iim,jjm, hist_hori_id, &
6315	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6316
6317	! Total Primary Evergreen Tree Cover Fraction
6318	CALL histdef (hist_id_stom_IPCC, &
6319	& TRIM("treeFracPrimEver"), &
6320	& TRIM("Total Primary Evergreen Tree Cover Fraction"), &
6321	& TRIM("%"), iim,jjm, hist_hori_id, &
6322	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6323
6324	! Total C3 PFT Cover Fraction
6325	CALL histdef (hist_id_stom_IPCC, &
6326	& TRIM("c3PftFrac"), &
6327	& TRIM("Total C3 PFT Cover Fraction"), &
6328	& TRIM("%"), iim,jjm, hist_hori_id, &
6329	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6330	! Total C4 PFT Cover Fraction
6331	CALL histdef (hist_id_stom_IPCC, &
6332	& TRIM("c4PftFrac"), &
6333	& TRIM("Total C4 PFT Cover Fraction"), &
6334	& TRIM("%"), iim,jjm, hist_hori_id, &
6335	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6336	! Growth Autotrophic Respiration
6337	CALL histdef (hist_id_stom_IPCC, &
6338	& TRIM("rGrowth"), &
6339	& TRIM("Growth Autotrophic Respiration"), &
6340	& TRIM("kg C m-2 s-1"), iim,jjm, hist_hori_id, &
6341	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6342	! Maintenance Autotrophic Respiration
6343	CALL histdef (hist_id_stom_IPCC, &
6344	& TRIM("rMaint"), &
6345	& TRIM("Maintenance Autotrophic Respiration"), &
6346	& TRIM("kg C m-2 s-1"), iim,jjm, hist_hori_id, &
6347	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6348	! CO2 Flux from Atmosphere due to NPP Allocation to Leaf
6349	CALL histdef (hist_id_stom_IPCC, &
6350	& TRIM("nppLeaf"), &
6351	& TRIM("CO2 Flux from Atmosphere due to NPP Allocation to Leaf"), &
6352	& TRIM("kg C m-2 s-1"), iim,jjm, hist_hori_id, &
6353	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6354	! CO2 Flux from Atmosphere due to NPP Allocation to Wood
6355	CALL histdef (hist_id_stom_IPCC, &
6356	& TRIM("nppStem"), &
6357	& TRIM("CO2 Flux from Atmosphere due to NPP Allocation to Stem"), &
6358	& TRIM("kg C m-2 s-1"), iim,jjm, hist_hori_id, &
6359	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6360	! CO2 Flux from Atmosphere due to NPP Allocation to Root
6361	CALL histdef (hist_id_stom_IPCC, &
6362	& TRIM("nppRoot"), &
6363	& TRIM("CO2 Flux from Atmosphere due to NPP Allocation to Root"), &
6364	& TRIM("kg C m-2 s-1"), iim,jjm, hist_hori_id, &
6365	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6366	! Net Carbon Mass Flux out of Atmophere due to Net Ecosystem Productivity on Land.
6367	CALL histdef (hist_id_stom_IPCC, &
6368	& TRIM("nep"), &
6369	& TRIM("Net Carbon Mass Flux out of Atmophere due to Net Ecosystem Productivity."), &
6370	& TRIM("kg C m-2 s-1"), iim,jjm, hist_hori_id, &
6371	& 1,1,1, -99,32, ave(1), dt, hist_dt)
6372
6373	CALL histdef(hist_id_stom_IPCC, 'RESOLUTION_X', 'E-W resolution', 'm', &
6374	& iim,jjm, hist_hori_id, 1,1,1, -99, 32, 'once(scatter(X))', dt, hist_dt)
6375	CALL histdef(hist_id_stom_IPCC, 'RESOLUTION_Y', 'N-S resolution', 'm', &
6376	& iim,jjm, hist_hori_id, 1,1,1, -99, 32, 'once(scatter(X))', dt, hist_dt)
6377	CALL histdef(hist_id_stom_IPCC, 'CONTFRAC', 'Continental fraction', '1', &
6378	& iim,jjm, hist_hori_id, 1,1,1, -99, 32, 'once(scatter(X))', dt, hist_dt)
6379	CALL histdef(hist_id_stom_IPCC, 'Areas', 'Mesh areas', 'm2', &
6380	& iim,jjm, hist_hori_id, 1,1,1, -99, 32, 'once(scatter(X))', dt, hist_dt)
6381
6382	END SUBROUTINE ioipslctrl_histstomipcc
6383
6384	!! ================================================================================================================================
6385	!! SUBROUTINE : ioipslctrl_restini
6386	!!
6387	!>\BRIEF This subroutine initialize the restart files in ORCHDIEE.
6388	!!
6389	!! DESCRIPTION : This subroutine initialize restart files in ORCHIDEE. IOIPSL is used for manipulating the restart files.
6390	!! This subroutine was previously called intsurf_restart and located in module intersurf.
6391	!!
6392	!! RECENT CHANGE(S): None
6393	!!
6394	!! \n
6395	!_ ================================================================================================================================
6396	SUBROUTINE ioipslctrl_restini(istp, date0, dt, rest_id, rest_id_stom, itau_offset, date0_shifted)
6397
6398	USE mod_orchidee_para
6399	!
6400	! This subroutine initialized the restart file for the land-surface scheme
6401	!
6402	IMPLICIT NONE
6403	!
6404	INTEGER(i_std), INTENT(in) :: istp !! Time step of the restart file
6405	REAL(r_std) :: date0 !! The date at which itau = 0
6406	REAL(r_std) :: dt !! Time step
6407	INTEGER(i_std), INTENT(out) :: rest_id, rest_id_stom !! ID of the restart file
6408	INTEGER(i_std), INTENT(out) :: itau_offset !! Note the result is always itau_offset=0 as overwrite_time=TRUE
6409	REAL(r_std), INTENT(out) :: date0_shifted !! Note the result is always date0_shifted=date0 as overwrite_time=TRUE
6410
6411
6412	! LOCAL
6413	!
6414	REAL(r_std) :: dt_rest, date0_rest
6415	INTEGER(i_std) :: itau_dep
6416	INTEGER(i_std),PARAMETER :: llm=1
6417	REAL(r_std), DIMENSION(llm) :: lev
6418	LOGICAL, PARAMETER :: overwrite_time=.TRUE. !! Always override the date from the restart files for SECHIBA and STOMATE.
6419	!! The date is taken from the gcm or from the driver restart file.
6420	REAL(r_std) :: in_julian, rest_julian
6421	INTEGER(i_std) :: yy, mm, dd
6422	REAL(r_std) :: ss
6423	!
6424	!Config Key = SECHIBA_restart_in
6425	!Config Desc = Name of restart to READ for initial conditions
6426	!Config If = OK_SECHIBA
6427	!Config Def = NONE
6428	!Config Help = This is the name of the file which will be opened
6429	!Config to extract the initial values of all prognostic
6430	!Config values of the model. This has to be a netCDF file.
6431	!Config Not truly COADS compliant. NONE will mean that
6432	!Config no restart file is to be expected.
6433	!Config Units = [FILE]
6434	!-
6435	CALL getin_p('SECHIBA_restart_in',restname_in)
6436	IF (printlev >= 2) WRITE(numout,*) 'Restart file for sechiba: ', restname_in
6437	!-
6438	!Config Key = SECHIBA_rest_out
6439	!Config Desc = Name of restart files to be created by SECHIBA
6440	!Config If = OK_SECHIBA
6441	!Config Def = sechiba_rest_out.nc
6442	!Config Help = This variable give the name for
6443	!Config the restart files. The restart software within
6444	!Config IOIPSL will add .nc if needed.
6445	!Config Units = [FILE]
6446	!
6447	CALL getin_p('SECHIBA_rest_out', restname_out)
6448
6449	lev(:) = zero
6450	itau_dep = istp
6451	in_julian = itau2date(istp, date0, dt)
6452	date0_rest = date0
6453	dt_rest = dt
6454	!
6455	IF (is_root_prc) THEN
6456	CALL restini( restname_in, iim_g, jjm_g, lon_g, lat_g, llm, lev, &
6457	& restname_out, itau_dep, date0_rest, dt_rest, rest_id, overwrite_time, &
6458	& use_compression=NC_COMPRESSION_ENABLE)
6459	ELSE
6460	rest_id=0
6461	ENDIF
6462	CALL bcast (itau_dep)
6463	CALL bcast (date0_rest)
6464	CALL bcast (dt_rest)
6465	!
6466	! itau_dep of SECHIBA is phased with the GCM if needed
6467	!
6468	rest_julian = itau2date(itau_dep, date0_rest, dt_rest)
6469
6470	! Note by JG
6471	! restini never modifies itau_dep and date0_rest when overwrite_time=TRUE.
6472	! This means that itau_dep=istp and date0_rest=date0 => rest_julian=in_julian.
6473	! The result of below IF will therfor always be itau_offset=0 and date0_shifted=date0
6474	IF ( ABS( in_julian - rest_julian) .GT. dt/one_day .AND. .NOT. OFF_LINE_MODE ) THEN
6475	WRITE(numout,*) 'The SECHIBA restart is not for the same timestep as the GCM,'
6476	WRITE(numout,*) 'the two are synchronized. The land-surface conditions can not impose'
6477	WRITE(numout,*) 'the chronology of the simulation.'
6478	WRITE(numout,*) 'Time step of the GCM :', istp, 'Julian day : ', in_julian
6479	CALL ju2ymds(in_julian, yy, mm, dd, ss)
6480	WRITE(numout,*) 'In other word (yy,mm,dd,ss) : ', yy, mm, dd, ss
6481	WRITE(numout,*) 'Time step of SECHIBA :', itau_dep, 'Julian day : ', rest_julian
6482	CALL ju2ymds(rest_julian, yy, mm, dd, ss)
6483	WRITE(numout,*) 'In other word (yy,mm,dd,ss) : ', yy, mm, dd, ss
6484
6485	itau_offset = itau_dep - istp
6486	date0_shifted = date0 - itau_offset*dt/one_day
6487
6488	WRITE(numout,*) 'The new starting date is :', date0_shifted
6489	CALL ju2ymds(date0_shifted, yy, mm, dd, ss)
6490	WRITE(numout,*) 'In other word (yy,mm,dd,ss) : ', yy, mm, dd, ss
6491	ELSE
6492	itau_offset = 0
6493	date0_shifted = date0
6494	ENDIF
6495
6496	!=====================================================================
6497	!- 1.5 Restart file for STOMATE
6498	!=====================================================================
6499	IF ( ok_stomate ) THEN
6500	!-
6501	! STOMATE IS ACTIVATED
6502	!-
6503	!Config Key = STOMATE_RESTART_FILEIN
6504	!Config Desc = Name of restart to READ for initial conditions of STOMATE
6505	!Config If = STOMATE_OK_STOMATE
6506	!Config Def = NONE
6507	!Config Help = This is the name of the file which will be opened
6508	!Config to extract the initial values of all prognostic
6509	!Config values of STOMATE.
6510	!Config Units = [FILE]
6511	!-
6512	CALL getin_p('STOMATE_RESTART_FILEIN',stom_restname_in)
6513	IF (printlev >= 2) WRITE(numout,*) 'STOMATE INPUT RESTART_FILE', stom_restname_in
6514	!-
6515	!Config Key = STOMATE_RESTART_FILEOUT
6516	!Config Desc = Name of restart files to be created by STOMATE
6517	!Config If = STOMATE_OK_STOMATE
6518	!Config Def = stomate_rest_out.nc
6519	!Config Help = This is the name of the file which will be opened
6520	!Config to write the final values of all prognostic values
6521	!Config of STOMATE.
6522	!Config Units = [FILE]
6523	!-
6524	CALL getin_p('STOMATE_RESTART_FILEOUT', stom_restname_out)
6525	IF (printlev >= 2) WRITE(numout,*) 'STOMATE OUTPUT RESTART_FILE', stom_restname_out
6526	!-
6527	IF (is_root_prc) THEN
6528	CALL restini (stom_restname_in, iim_g, jjm_g, lon_g, lat_g, llm, lev, &
6529	& stom_restname_out, itau_dep, date0_rest, dt_rest, rest_id_stom, overwrite_time, &
6530	& use_compression=NC_COMPRESSION_ENABLE)
6531	ELSE
6532	rest_id_stom=0
6533	ENDIF
6534	CALL bcast (itau_dep)
6535	CALL bcast (date0_rest)
6536	CALL bcast (dt_rest)
6537	!-
6538	ENDIF
6539	END SUBROUTINE ioipslctrl_restini
6540
6541	END MODULE ioipslctrl

Note: See TracBrowser for help on using the repository browser.

Context Navigation

source: branches/publications/ORCHIDEE-MICT-OP-r6850/src_sechiba/ioipslctrl.f90

Download in other formats: