Context Navigation

spla_output_write.h @ 5416

Last change on this file since 5416 was 2752, checked in by oboucher, 8 years ago
Changes to StratAer? module, including setting up a new output file hence dimension of output metadata is increased to 10 items.
File size: 15.0 KB

Rev	Line
[2630]	1	!! Output SPLA
	2	! JE20141223
	3	IF(ok_chimeredust) CALL histwrite_phy(o_m1dflux,m1dflux)
	4	IF(ok_chimeredust) CALL histwrite_phy(o_m2dflux,m2dflux)
	5	IF(ok_chimeredust) CALL histwrite_phy(o_m3dflux,m3dflux)
	6	! traceur
	7
[2752]	8	CALL histwrite_phy( o_taue550 , diff_aod550_tot )
	9	CALL histwrite_phy( o_taue670 , diag_aod670_tot )
[2630]	10	CALL histwrite_phy( o_taue865 , diag_aod865_tot )
	11	IF(id_fine>0) CALL histwrite_phy( o_taue550_tr2 , diff_aod550_tr2 )
[2752]	12	IF(id_fine>0) CALL histwrite_phy( o_taue670_tr2 , diag_aod670_tr2 )
[2630]	13	IF(id_fine>0) CALL histwrite_phy( o_taue865_tr2 , diag_aod865_tr2 )
[2752]	14	IF(id_coss>0) CALL histwrite_phy( o_taue550_ss , diag_aod550_ss )
[2630]	15	IF(id_coss>0) CALL histwrite_phy( o_taue670_ss , diag_aod670_ss )
[2752]	16	IF(id_coss>0) CALL histwrite_phy( o_taue865_ss , diag_aod865_ss )
	17	IF(id_codu>0) CALL histwrite_phy( o_taue550_dust , diag_aod550_dust )
[2630]	18	IF(id_codu>0) CALL histwrite_phy( o_taue670_dust , diag_aod670_dust )
	19	IF(id_codu>0) CALL histwrite_phy( o_taue865_dust , diag_aod865_dust )
	20	IF(id_scdu>0) CALL histwrite_phy( o_taue550_dustsco , diag_aod550_dustsco )
	21	IF(id_scdu>0) CALL histwrite_phy( o_taue670_dustsco , diag_aod670_dustsco )
	22	IF(id_scdu>0) CALL histwrite_phy( o_taue865_dustsco , diag_aod865_dustsco )
	23	CALL histwrite_phy( o_taue550_aqua , aod550_aqua )
[2752]	24	CALL histwrite_phy( o_taue550_terra , aod550_terra )
	25	CALL histwrite_phy( o_taue670_aqua , aod670_aqua )
	26	CALL histwrite_phy( o_taue670_terra , aod670_terra )
	27	CALL histwrite_phy( o_taue865_aqua , aod865_aqua )
	28	CALL histwrite_phy( o_taue865_terra , aod865_terra )
[2630]	29
	30	IF(id_fine>0) CALL histwrite_phy( o_taue550_fine_aqua ,aod550_tr2_aqua )
	31	IF(id_fine>0) CALL histwrite_phy( o_taue670_fine_aqua ,aod670_tr2_aqua )
	32	IF(id_fine>0) CALL histwrite_phy( o_taue865_fine_aqua ,aod865_tr2_aqua )
[2752]	33	IF(id_coss>0) CALL histwrite_phy( o_taue550_coss_aqua ,aod550_ss_aqua )
	34	IF(id_coss>0) CALL histwrite_phy( o_taue670_coss_aqua ,aod670_ss_aqua )
	35	IF(id_coss>0) CALL histwrite_phy( o_taue865_coss_aqua ,aod865_ss_aqua )
	36	IF(id_codu>0) CALL histwrite_phy( o_taue550_codu_aqua ,aod550_dust_aqua )
	37	IF(id_codu>0) CALL histwrite_phy( o_taue670_codu_aqua ,aod670_dust_aqua )
	38	IF(id_codu>0) CALL histwrite_phy( o_taue865_codu_aqua ,aod865_dust_aqua )
	39	IF(id_scdu>0) CALL histwrite_phy( o_taue670_scdu_aqua ,aod670_dustsco_aqua )
	40	IF(id_scdu>0) CALL histwrite_phy( o_taue550_scdu_aqua ,aod550_dustsco_aqua )
	41	IF(id_scdu>0) CALL histwrite_phy( o_taue865_scdu_aqua ,aod865_dustsco_aqua )
[2630]	42
	43	IF(id_fine>0) CALL histwrite_phy( o_taue550_fine_terra ,aod550_tr2_terra )
	44	IF(id_fine>0) CALL histwrite_phy( o_taue670_fine_terra ,aod670_tr2_terra )
	45	IF(id_fine>0) CALL histwrite_phy( o_taue865_fine_terra ,aod865_tr2_terra )
[2752]	46	IF(id_coss>0) CALL histwrite_phy( o_taue550_coss_terra ,aod550_ss_terra )
	47	IF(id_coss>0) CALL histwrite_phy( o_taue670_coss_terra ,aod670_ss_terra )
	48	IF(id_coss>0) CALL histwrite_phy( o_taue865_coss_terra ,aod865_ss_terra )
	49	IF(id_codu>0) CALL histwrite_phy( o_taue550_codu_terra ,aod550_dust_terra )
	50	IF(id_codu>0) CALL histwrite_phy( o_taue670_codu_terra ,aod670_dust_terra )
	51	IF(id_codu>0) CALL histwrite_phy( o_taue865_codu_terra ,aod865_dust_terra )
	52	IF(id_scdu>0) CALL histwrite_phy( o_taue670_scdu_terra ,aod670_dustsco_terra )
	53	IF(id_scdu>0) CALL histwrite_phy( o_taue550_scdu_terra ,aod550_dustsco_terra )
	54	IF(id_scdu>0) CALL histwrite_phy( o_taue865_scdu_terra ,aod865_dustsco_terra )
[2630]	55
	56
	57	IF(id_prec>0) CALL histwrite_phy( o_trm01 , trm01 )
	58	IF(id_fine>0) CALL histwrite_phy( o_trm02 , trm02 )
	59	IF(id_coss>0) CALL histwrite_phy( o_trm03 , trm03 )
	60	IF(id_codu>0) CALL histwrite_phy( o_trm04 , trm04 )
	61	IF(id_scdu>0) CALL histwrite_phy( o_trm05 , trm05 )
	62	IF(id_prec>0) CALL histwrite_phy( o_sconc01 , sconc01 )
	63	IF(id_fine>0) CALL histwrite_phy( o_sconc02 , sconc02 )
	64	IF(id_coss>0) CALL histwrite_phy( o_sconc03 , sconc03 )
	65	IF(id_codu>0) CALL histwrite_phy( o_sconc04 , sconc04 )
	66	IF(id_scdu>0) CALL histwrite_phy( o_sconc05 , sconc05 )
	67
	68	! Lessivage
	69
	70	IF(id_prec>0) CALL histwrite_phy( o_flux01 , flux01 )
	71	IF(id_fine>0) CALL histwrite_phy( o_flux02 , flux02 )
	72	IF(id_coss>0) CALL histwrite_phy( o_flux03 , flux03 )
	73	IF(id_codu>0) CALL histwrite_phy( o_flux04 , flux04 )
	74	IF(id_scdu>0) CALL histwrite_phy( o_flux05 , flux05 )
	75	IF(id_prec>0) CALL histwrite_phy( o_ds01 , ds01 )
	76	IF(id_fine>0) CALL histwrite_phy( o_ds02 , ds02 )
	77	IF(id_coss>0) CALL histwrite_phy( o_ds03 , ds03 )
	78	IF(id_codu>0) CALL histwrite_phy( o_ds04 , ds04 )
	79	IF(id_scdu>0) CALL histwrite_phy( o_ds05 , ds05 )
	80	IF(id_prec>0) CALL histwrite_phy( o_dh01 , dh01 )
	81	IF(id_fine>0) CALL histwrite_phy( o_dh02 , dh02 )
	82	IF(id_coss>0) CALL histwrite_phy( o_dh03 , dh03 )
	83	IF(id_codu>0) CALL histwrite_phy( o_dh04 , dh04 )
	84	IF(id_scdu>0) CALL histwrite_phy( o_dh05 , dh05 )
	85	IF(id_prec>0) CALL histwrite_phy( o_dtrconv01 , dtrconv01 )
	86	IF(id_fine>0) CALL histwrite_phy( o_dtrconv02 , dtrconv02 )
	87	IF(id_coss>0) CALL histwrite_phy( o_dtrconv03 , dtrconv03 )
	88	IF(id_codu>0) CALL histwrite_phy( o_dtrconv04 , dtrconv04 )
	89	IF(id_scdu>0) CALL histwrite_phy( o_dtrconv05 , dtrconv05 )
	90	IF(id_prec>0) CALL histwrite_phy( o_dtherm01 , dtherm01 )
	91	IF(id_fine>0) CALL histwrite_phy( o_dtherm02 , dtherm02 )
	92	IF(id_coss>0) CALL histwrite_phy( o_dtherm03 , dtherm03 )
	93	IF(id_codu>0) CALL histwrite_phy( o_dtherm04 , dtherm04 )
	94	IF(id_scdu>0) CALL histwrite_phy( o_dtherm05 , dtherm05 )
	95	IF(id_prec>0) CALL histwrite_phy( o_dhkecv01 , dhkecv01 )
	96	IF(id_fine>0) CALL histwrite_phy( o_dhkecv02 , dhkecv02 )
	97	IF(id_coss>0) CALL histwrite_phy( o_dhkecv03 , dhkecv03 )
	98	IF(id_codu>0) CALL histwrite_phy( o_dhkecv04 , dhkecv04 )
	99	IF(id_scdu>0) CALL histwrite_phy( o_dhkecv05 , dhkecv05 )
	100	IF(id_prec>0) CALL histwrite_phy( o_d_tr_ds01 , d_tr_ds01 )
	101	IF(id_fine>0) CALL histwrite_phy( o_d_tr_ds02 , d_tr_ds02 )
	102	IF(id_coss>0) CALL histwrite_phy( o_d_tr_ds03 , d_tr_ds03 )
	103	IF(id_codu>0) CALL histwrite_phy( o_d_tr_ds04 , d_tr_ds04 )
	104	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_ds05 , d_tr_ds05 )
	105	IF(id_prec>0) CALL histwrite_phy( o_dhkelsc01 , dhkelsc01 )
	106	IF(id_fine>0) CALL histwrite_phy( o_dhkelsc02 , dhkelsc02 )
	107	IF(id_coss>0) CALL histwrite_phy( o_dhkelsc03 , dhkelsc03 )
	108	IF(id_codu>0) CALL histwrite_phy( o_dhkelsc04 , dhkelsc04 )
	109	IF(id_scdu>0) CALL histwrite_phy( o_dhkelsc05 , dhkelsc05 )
	110	IF(id_prec>0) CALL histwrite_phy( o_d_tr_cv01 , d_tr_cv01 )
	111	IF(id_fine>0) CALL histwrite_phy( o_d_tr_cv02 , d_tr_cv02 )
	112	IF(id_coss>0) CALL histwrite_phy( o_d_tr_cv03 , d_tr_cv03 )
	113	IF(id_codu>0) CALL histwrite_phy( o_d_tr_cv04 , d_tr_cv04 )
	114	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_cv05 , d_tr_cv05 )
	115	IF(id_prec>0) CALL histwrite_phy( o_d_tr_trsp01 , d_tr_trsp01 )
	116	IF(id_fine>0) CALL histwrite_phy( o_d_tr_trsp02 , d_tr_trsp02 )
	117	IF(id_coss>0) CALL histwrite_phy( o_d_tr_trsp03 , d_tr_trsp03 )
	118	IF(id_codu>0) CALL histwrite_phy( o_d_tr_trsp04 , d_tr_trsp04 )
	119	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_trsp05 , d_tr_trsp05 )
	120	IF(id_prec>0) CALL histwrite_phy( o_d_tr_sscav01 , d_tr_sscav01 )
	121	IF(id_fine>0) CALL histwrite_phy( o_d_tr_sscav02 , d_tr_sscav02 )
	122	IF(id_coss>0) CALL histwrite_phy( o_d_tr_sscav03 , d_tr_sscav03 )
	123	IF(id_codu>0) CALL histwrite_phy( o_d_tr_sscav04 , d_tr_sscav04 )
	124	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_sscav05 , d_tr_sscav05 )
	125	IF(id_prec>0) CALL histwrite_phy( o_d_tr_sat01 , d_tr_sat01 )
	126	IF(id_fine>0) CALL histwrite_phy( o_d_tr_sat02 , d_tr_sat02 )
	127	IF(id_coss>0) CALL histwrite_phy( o_d_tr_sat03 , d_tr_sat03 )
	128	IF(id_codu>0) CALL histwrite_phy( o_d_tr_sat04 , d_tr_sat04 )
	129	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_sat05 , d_tr_sat05 )
	130	IF(id_prec>0) CALL histwrite_phy( o_d_tr_uscav01 , d_tr_uscav01 )
	131	IF(id_fine>0) CALL histwrite_phy( o_d_tr_uscav02 , d_tr_uscav02 )
	132	IF(id_coss>0) CALL histwrite_phy( o_d_tr_uscav03 , d_tr_uscav03 )
	133	IF(id_codu>0) CALL histwrite_phy( o_d_tr_uscav04 , d_tr_uscav04 )
	134	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_uscav05 , d_tr_uscav05 )
[2752]	135	IF(id_prec>0) CALL histwrite_phy( o_d_tr_insc01 , d_tr_insc01 )
[2630]	136	IF(id_fine>0) CALL histwrite_phy( o_d_tr_insc02 , d_tr_insc02 )
	137	IF(id_coss>0) CALL histwrite_phy( o_d_tr_insc03 , d_tr_insc03 )
	138	IF(id_codu>0) CALL histwrite_phy( o_d_tr_insc04 , d_tr_insc04 )
	139	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_insc05 , d_tr_insc05 )
	140	IF(id_prec>0) CALL histwrite_phy( o_d_tr_bcscav01 , d_tr_bcscav01 )
	141	IF(id_fine>0) CALL histwrite_phy( o_d_tr_bcscav02 , d_tr_bcscav02 )
	142	IF(id_coss>0) CALL histwrite_phy( o_d_tr_bcscav03 , d_tr_bcscav03 )
	143	IF(id_codu>0) CALL histwrite_phy( o_d_tr_bcscav04 , d_tr_bcscav04 )
	144	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_bcscav05 , d_tr_bcscav05 )
	145	IF(id_prec>0) CALL histwrite_phy( o_d_tr_evapls01 , d_tr_evapls01 )
	146	IF(id_fine>0) CALL histwrite_phy( o_d_tr_evapls02 , d_tr_evapls02 )
	147	IF(id_coss>0) CALL histwrite_phy( o_d_tr_evapls03 , d_tr_evapls03 )
	148	IF(id_codu>0) CALL histwrite_phy( o_d_tr_evapls04 , d_tr_evapls04 )
	149	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_evapls05 , d_tr_evapls05 )
	150	IF(id_prec>0) CALL histwrite_phy( o_d_tr_ls01 , d_tr_ls01 )
	151	IF(id_fine>0) CALL histwrite_phy( o_d_tr_ls02 , d_tr_ls02 )
	152	IF(id_coss>0) CALL histwrite_phy( o_d_tr_ls03 , d_tr_ls03 )
	153	IF(id_codu>0) CALL histwrite_phy( o_d_tr_ls04 , d_tr_ls04 )
[2752]	154	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_ls05 , d_tr_ls05 )
[2630]	155
	156	IF(id_prec>0) CALL histwrite_phy( o_d_tr_dyn01 , d_tr_dyn01 )
	157	IF(id_fine>0) CALL histwrite_phy( o_d_tr_dyn02 , d_tr_dyn02 )
	158	IF(id_coss>0) CALL histwrite_phy( o_d_tr_dyn03 , d_tr_dyn03 )
	159	IF(id_codu>0) CALL histwrite_phy( o_d_tr_dyn04 , d_tr_dyn04 )
[2752]	160	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_dyn05 , d_tr_dyn05 )
[2630]	161
	162	IF(id_prec>0) CALL histwrite_phy( o_d_tr_cl01 , d_tr_cl01 )
	163	IF(id_fine>0) CALL histwrite_phy( o_d_tr_cl02 , d_tr_cl02 )
	164	IF(id_coss>0) CALL histwrite_phy( o_d_tr_cl03 , d_tr_cl03 )
	165	IF(id_codu>0) CALL histwrite_phy( o_d_tr_cl04 , d_tr_cl04 )
[2752]	166	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_cl05 , d_tr_cl05 )
[2630]	167	IF(id_prec>0) CALL histwrite_phy( o_d_tr_th01 , d_tr_th01 )
	168	IF(id_fine>0) CALL histwrite_phy( o_d_tr_th02 , d_tr_th02 )
	169	IF(id_coss>0) CALL histwrite_phy( o_d_tr_th03 , d_tr_th03 )
	170	IF(id_codu>0) CALL histwrite_phy( o_d_tr_th04 , d_tr_th04 )
[2752]	171	IF(id_scdu>0) CALL histwrite_phy( o_d_tr_th05 , d_tr_th05 )
[2630]	172
	173	IF(id_coss>0) CALL histwrite_phy( o_sed_ss , sed_ss)
	174	IF(id_codu>0) CALL histwrite_phy( o_sed_dust , sed_dust)
	175	IF(id_scdu>0) CALL histwrite_phy( o_sed_dustsco , sed_dustsco)
	176	IF(id_prec>0) CALL histwrite_phy( o_g2p_gas , his_g2pgas )
	177	IF(id_fine>0) CALL histwrite_phy( o_g2p_aer , his_g2paer)
	178
	179	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	180	IF(id_coss>0) CALL histwrite_phy( o_sed_ss3D , sed_ss3D)
	181	IF(id_codu>0) CALL histwrite_phy( o_sed_dust3D , sed_dust3D)
	182	IF(id_scdu>0) CALL histwrite_phy( o_sed_dustsco3D , sed_dustsco3D)
	183	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	184	! histrac_spl
	185	!
	186	CALL histwrite_phy( o_fluxbb , fluxbb )
	187	CALL histwrite_phy( o_fluxff , fluxff )
	188	CALL histwrite_phy( o_fluxbcbb , fluxbcbb )
	189	CALL histwrite_phy( o_fluxbcff , fluxbcff )
	190	CALL histwrite_phy( o_fluxbcnff , fluxbcnff )
	191	CALL histwrite_phy( o_fluxbcba , fluxbcba )
	192	CALL histwrite_phy( o_fluxbc , fluxbc )
	193	CALL histwrite_phy( o_fluxombb , fluxombb )
	194	CALL histwrite_phy( o_fluxomff , fluxomff )
	195	CALL histwrite_phy( o_fluxomnff , fluxomnff )
	196	CALL histwrite_phy( o_fluxomba , fluxomba )
	197	CALL histwrite_phy( o_fluxomnat , fluxomnat )
	198	CALL histwrite_phy( o_fluxom , fluxom )
	199	CALL histwrite_phy( o_fluxh2sff , fluxh2sff )
	200	CALL histwrite_phy( o_fluxh2snff , fluxh2snff )
	201	CALL histwrite_phy( o_fluxso2ff , fluxso2ff )
	202	CALL histwrite_phy( o_fluxso2nff , fluxso2nff )
	203	CALL histwrite_phy( o_fluxso2bb , fluxso2bb )
	204	CALL histwrite_phy( o_fluxso2vol , fluxso2vol )
	205	CALL histwrite_phy( o_fluxso2ba , fluxso2ba )
	206	CALL histwrite_phy( o_fluxso2 , fluxso2 )
	207	CALL histwrite_phy( o_fluxso4ff , fluxso4ff )
	208	CALL histwrite_phy( o_fluxso4nff , fluxso4nff )
	209	CALL histwrite_phy( o_fluxso4bb , fluxso4bb )
	210	CALL histwrite_phy( o_fluxso4ba , fluxso4ba )
	211	CALL histwrite_phy( o_fluxso4 , fluxso4 )
	212	CALL histwrite_phy( o_fluxdms , fluxdms )
	213	CALL histwrite_phy( o_fluxh2sbio , fluxh2sbio )
	214	CALL histwrite_phy( o_fluxdustec , fluxdustec )
	215	CALL histwrite_phy( o_fluxddfine , fluxddfine )
	216	CALL histwrite_phy( o_fluxddcoa , fluxddcoa )
	217	CALL histwrite_phy( o_fluxddsco , fluxddsco )
	218	CALL histwrite_phy( o_fluxdd , fluxdd )
	219	CALL histwrite_phy( o_fluxssfine , fluxssfine )
	220	CALL histwrite_phy( o_fluxsscoa , fluxsscoa )
	221	CALL histwrite_phy( o_fluxss , fluxss )
	222	CALL histwrite_phy( o_flux_sparam_ind , flux_sparam_ind )
	223	CALL histwrite_phy( o_flux_sparam_bb , flux_sparam_bb )
	224	CALL histwrite_phy( o_flux_sparam_ff , flux_sparam_ff )
	225	CALL histwrite_phy( o_flux_sparam_ddfine , flux_sparam_ddfine )
	226	CALL histwrite_phy( o_flux_sparam_ddcoa , flux_sparam_ddcoa )
	227	CALL histwrite_phy( o_flux_sparam_ddsco , flux_sparam_ddsco )
	228	CALL histwrite_phy( o_flux_sparam_ssfine , flux_sparam_ssfine )
	229	CALL histwrite_phy( o_flux_sparam_sscoa , flux_sparam_sscoa )
	230	CALL histwrite_phy( o_u10m_ss , u10m_ss )
	231	CALL histwrite_phy( o_v10m_ss , v10m_ss )

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

Context Navigation

source: LMDZ5/trunk/libf/phylmd/Dust/spla_output_write.h @ 5416

Download in other formats: