Context Navigation

source: LMDZ4/trunk/libf/phylmd/write_bilKP_ave.h @ 679

Last change on this file since 679 was 644, checked in by Laurent Fairhead, 20 years ago
Synchronisation avec tous les diagnostiques de Ionela IM Inclusion du slab ocean IM LF
Property svn:eol-style set to `native` Property svn:executable set to ``* Property svn:keywords set to `Author Date Id Revision`
File size: 7.8 KB

Rev	Line
[644]	1	c
	2	c $Header$
	3	c
	4	IF (ok_journe) THEN
	5	c
	6	ndex2d = 0
	7	ndex3d = 0
	8	c
	9	c Champs 2D:
	10	c
	11	itau_w = itau_phy + itap
	12	c
	13	CALL gr_fi_ecrit(klev, klon,iim,jjmp1, ue_lay,zx_tmp_3d)
	14	CALL histwrite(nid_bilKPave,"ue",itau_w,zx_tmp_3d,
	15	. iimjjmp1klev,ndex3d)
	16	c
	17	CALL gr_fi_ecrit(klev, klon,iim,jjmp1, ve_lay,zx_tmp_3d)
	18	CALL histwrite(nid_bilKPave,"ve",itau_w,zx_tmp_3d,
	19	. iimjjmp1klev,ndex3d)
	20	c
	21	CALL gr_fi_ecrit(klev, klon,iim,jjmp1, uq_lay,zx_tmp_3d)
	22	CALL histwrite(nid_bilKPave,"uq",itau_w,zx_tmp_3d,
	23	. iimjjmp1klev,ndex3d)
	24	c
	25	CALL gr_fi_ecrit(klev, klon,iim,jjmp1, vq_lay,zx_tmp_3d)
	26	CALL histwrite(nid_bilKPave,"vq",itau_w,zx_tmp_3d,
	27	. iimjjmp1klev,ndex3d)
	28	c
	29	c Champs 3D:
	30	C
	31	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
	32	CALL histwrite(nid_bilKPave,"temp",itau_w,zx_tmp_3d,
	33	. iimjjmp1klev,ndex3d)
	34	c
	35	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d)
	36	CALL histwrite(nid_bilKPave,"ovap",itau_w,zx_tmp_3d,
	37	. iimjjmp1klev,ndex3d)
	38	c
	39	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d)
	40	CALL histwrite(nid_bilKPave,"geop",itau_w,zx_tmp_3d,
	41	. iimjjmp1klev,ndex3d)
	42	c
	43	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
	44	CALL histwrite(nid_bilKPave,"vitu",itau_w,zx_tmp_3d,
	45	. iimjjmp1klev,ndex3d)
	46	c
	47	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
	48	CALL histwrite(nid_bilKPave,"vitv",itau_w,zx_tmp_3d,
	49	. iimjjmp1klev,ndex3d)
	50	c
	51	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, omega, zx_tmp_3d)
	52	CALL histwrite(nid_bilKPave,"vitw",itau_w,zx_tmp_3d,
	53	. iimjjmp1klev,ndex3d)
	54	c
	55	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d)
	56	CALL histwrite(nid_bilKPave,"pres",itau_w,zx_tmp_3d,
	57	. iimjjmp1klev,ndex3d)
	58	c
	59	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, paprs, zx_tmp_3d)
	60	CALL histwrite(nid_bilKPave,"play",itau_w,zx_tmp_3d,
	61	. iimjjmp1klev,ndex3d)
	62	c
	63	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldliq, zx_tmp_3d)
	64	CALL histwrite(nid_bilKPave,"oliq",itau_w,zx_tmp_3d,
	65	. iimjjmp1klev,ndex3d)
	66	c
	67	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_dyn, zx_tmp_3d)
	68	CALL histwrite(nid_bilKPave,"dtdyn",itau_w,zx_tmp_3d,
	69	. iimjjmp1klev,ndex3d)
	70	c
	71	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_dyn, zx_tmp_3d)
	72	CALL histwrite(nid_bilKPave,"dqdyn",itau_w,zx_tmp_3d,
	73	. iimjjmp1klev,ndex3d)
	74	c
	75	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_con, zx_tmp_3d)
	76	CALL histwrite(nid_bilKPave,"dtcon",itau_w,zx_tmp_3d,
	77	. iimjjmp1klev,ndex3d)
	78	c
	79	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_con, zx_tmp_3d)
	80	CALL histwrite(nid_bilKPave,"ducon",itau_w,zx_tmp_3d,
	81	. iimjjmp1klev,ndex3d)
	82	c
	83	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_con, zx_tmp_3d)
	84	CALL histwrite(nid_bilKPave,"dvcon",itau_w,zx_tmp_3d,
	85	. iimjjmp1klev,ndex3d)
	86	c
	87	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_con, zx_tmp_3d)
	88	CALL histwrite(nid_bilKPave,"dqcon",itau_w,zx_tmp_3d,
	89	. iimjjmp1klev,ndex3d)
	90	c
	91	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_lsc, zx_tmp_3d)
	92	CALL histwrite(nid_bilKPave,"dtlsc",itau_w,zx_tmp_3d,
	93	. iimjjmp1klev,ndex3d)
	94	c
	95	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_lsc, zx_tmp_3d)
	96	CALL histwrite(nid_bilKPave,"dqlsc",itau_w,zx_tmp_3d,
	97	. iimjjmp1klev,ndex3d)
	98	c
	99	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_vdf, zx_tmp_3d)
	100	CALL histwrite(nid_bilKPave,"dtvdf",itau_w,zx_tmp_3d,
	101	. iimjjmp1klev,ndex3d)
	102	c
	103	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_vdf, zx_tmp_3d)
	104	CALL histwrite(nid_bilKPave,"dqvdf",itau_w,zx_tmp_3d,
	105	. iimjjmp1klev,ndex3d)
	106	c
	107	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_ajs, zx_tmp_3d)
	108	CALL histwrite(nid_bilKPave,"dtajs",itau_w,zx_tmp_3d,
	109	. iimjjmp1klev,ndex3d)
	110	c
	111	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_ajs, zx_tmp_3d)
	112	CALL histwrite(nid_bilKPave,"dqajs",itau_w,zx_tmp_3d,
	113	. iimjjmp1klev,ndex3d)
	114	c
	115	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_eva, zx_tmp_3d)
	116	CALL histwrite(nid_bilKPave,"dteva",itau_w,zx_tmp_3d,
	117	. iimjjmp1klev,ndex3d)
	118	c
	119	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_eva, zx_tmp_3d)
	120	CALL histwrite(nid_bilKPave,"dqeva",itau_w,zx_tmp_3d,
	121	. iimjjmp1klev,ndex3d)
	122	c
	123	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, heat, zx_tmp_3d)
	124	CALL histwrite(nid_bilKPave,"dtswr",itau_w,zx_tmp_3d,
	125	. iimjjmp1klev,ndex3d)
	126	c
	127	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, heat0, zx_tmp_3d)
	128	CALL histwrite(nid_bilKPave,"dtsw0",itau_w,zx_tmp_3d,
	129	. iimjjmp1klev,ndex3d)
	130	c
	131	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cool, zx_tmp_3d)
	132	CALL histwrite(nid_bilKPave,"dtlwr",itau_w,zx_tmp_3d,
	133	. iimjjmp1klev,ndex3d)
	134	c
	135	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cool0, zx_tmp_3d)
	136	CALL histwrite(nid_bilKPave,"dtlw0",itau_w,zx_tmp_3d,
	137	. iimjjmp1klev,ndex3d)
	138	c
	139	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_vdf, zx_tmp_3d)
	140	CALL histwrite(nid_bilKPave,"duvdf",itau_w,zx_tmp_3d,
	141	. iimjjmp1klev,ndex3d)
	142	c
	143	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_vdf, zx_tmp_3d)
	144	CALL histwrite(nid_bilKPave,"dvvdf",itau_w,zx_tmp_3d,
	145	. iimjjmp1klev,ndex3d)
	146	c
	147	IF (ok_orodr) THEN
	148	IF (ok_orolf) THEN
	149	c
	150	DO k = 1, klev
	151	DO i = 1, klon
	152	d_u_oli(i,k) = d_u_oro(i,k) + d_u_lif(i,k)
	153	d_v_oli(i,k) = d_v_oro(i,k) + d_v_lif(i,k)
	154	ENDDO
	155	ENDDO
	156	c
	157	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_oli, zx_tmp_3d)
	158	CALL histwrite(nid_bilKPave,"duoli",itau_w,zx_tmp_3d,
	159	. iimjjmp1klev,ndex3d)
	160	c
	161	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_oli, zx_tmp_3d)
	162	CALL histwrite(nid_bilKPave,"dvoli",itau_w,zx_tmp_3d,
	163	. iimjjmp1klev,ndex3d)
	164	c
	165	ENDIF
	166	ENDIF
	167	C
	168	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u, zx_tmp_3d)
	169	CALL histwrite(nid_bilKPave,"duphy",itau_w,zx_tmp_3d,
	170	. iimjjmp1klev,ndex3d)
	171	c
	172	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v, zx_tmp_3d)
	173	CALL histwrite(nid_bilKPave,"dvphy",itau_w,zx_tmp_3d,
	174	. iimjjmp1klev,ndex3d)
	175	c
	176	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t, zx_tmp_3d)
	177	CALL histwrite(nid_bilKPave,"dtphy",itau_w,zx_tmp_3d,
	178	. iimjjmp1klev,ndex3d)
	179	c
	180	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_qx(:,:,1),
	181	.zx_tmp_3d)
	182	CALL histwrite(nid_bilKPave,"dqphy",itau_w,zx_tmp_3d,
	183	. iimjjmp1klev,ndex3d)
	184	c
	185	CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_qx(:,:,2),
	186	.zx_tmp_3d)
	187	CALL histwrite(nid_bilKPave,"dqlphy",itau_w,zx_tmp_3d,
	188	. iimjjmp1klev,ndex3d)
	189	c
	190	C
	191	if (ok_sync) then
	192	call histsync(nid_bilKPave)
	193	endif
	194	ENDIF
	195

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

Download in other formats: