Context Navigation

source: LMDZ4/trunk/libf/phylmd/write_bilKP_ins.h @ 759

Last change on this file since 759 was 644, checked in by Laurent Fairhead, 19 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: 8.4 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	itau_w = itau_phy + itap
	10	c
	11	c Champs 3D:
	12	c
	13	CALL gr_fi_ecrit(klev, klon,iim,jjmp1, ue_lay,zx_tmp_3d)
	14	CALL histwrite(nid_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"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_bilKPins,"dqlphy",itau_w,zx_tmp_3d,
	188	. iimjjmp1klev,ndex3d)
	189	c
	190	cIM 280405 BEG
	191	c
	192	c Champs 2D:
	193	c
	194	c Ecriture de champs dynamiques sur des niveaux de pression
	195	c DO k=1, nlevSTD
	196	DO k=1, 12
	197	c
	198	IF(k.GE.2.AND.k.LE.12) bb2=clevSTD(k)
	199	IF(k.GE.13.AND.k.LE.17) bb3=clevSTD(k)
	200	c
	201	IF(bb2.EQ."850") THEN
	202	c
	203	CALL gr_fi_ecrit(1, klon,iim,jjmp1,usumSTD(:,k,1),zx_tmp_2d)
	204	CALL histwrite(nid_bilKPins,"u"//bb2,itau_w,zx_tmp_2d,
	205	$ iim*jjmp1,ndex2d)
	206	c
	207	CALL gr_fi_ecrit(1, klon,iim,jjmp1,vsumSTD(:,k,1),zx_tmp_2d)
	208	CALL histwrite(nid_bilKPins,"v"//bb2,itau_w,zx_tmp_2d,
	209	$ iim*jjmp1,ndex2d)
	210	c
	211	ENDIF !(bb2.EQ."850")
	212	c
	213	ENDDO !k=1, 12
	214	c
	215	cIM 280405 END
	216	C
	217	if (ok_sync) then
	218	call histsync(nid_bilKPins)
	219	endif
	220	ENDIF
	221

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

Download in other formats: