Context Navigation

source: LMDZ4/trunk/libf/dyn3d/write_paramLMDZ_dyn.h @ 696

Last change on this file since 696 was 696, checked in by lmdzadmin, 18 years ago
Correction bogue : write_paramLMDZ_dyn.h identique au ini_paramLMDZ_dyn.h IM
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
[692]	1	c
[696]	2	ndex2d = 0
	3	itau_dyn=itau_dyn+itau
	4	print*,'write_paramLMDZ_dyn :itau_dyn=',itau_dyn
[692]	5	c
[696]	6	zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(prt_level)
	7	CALL histwrite(nid_ctesGCM, "prt_level", itau_dyn,
	8	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	9	c
[696]	10	zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(dayref)
	11	CALL histwrite(nid_ctesGCM, "dayref", itau_dyn,
	12	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	13	c
[696]	14	zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(anneeref)
	15	CALL histwrite(nid_ctesGCM, "anneeref", itau_dyn,
	16	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	17	c
[696]	18	zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(raz_date)
	19	CALL histwrite(nid_ctesGCM, "raz_date", itau_dyn,
	20	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	21	c
[696]	22	zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(nday)
	23	CALL histwrite(nid_ctesGCM, "nday", itau_dyn,
	24	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	25	c
[696]	26	zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(day_step)
	27	CALL histwrite(nid_ctesGCM, "day_step", itau_dyn,
	28	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	29	c
[696]	30	zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iperiod)
	31	CALL histwrite(nid_ctesGCM, "iperiod", itau_dyn,
	32	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	33	c
[696]	34	zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iapp_tracvl)
	35	CALL histwrite(nid_ctesGCM, "iapp_tracvl", itau_dyn,
	36	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	37	c
[696]	38	zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iconser)
	39	CALL histwrite(nid_ctesGCM, "iconser", itau_dyn,
	40	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	41	c
[696]	42	zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iecri)
	43	CALL histwrite(nid_ctesGCM, "iecri", itau_dyn,
	44	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	45	c
[696]	46	zx_tmp_2d(1:iip1,1:jjp1)=periodav
	47	CALL histwrite(nid_ctesGCM, "periodav", itau_dyn,
	48	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	49	c
[696]	50	zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(idissip)
	51	CALL histwrite(nid_ctesGCM, "idissip", itau_dyn,
	52	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	53	c
[696]	54	IF(lstardis) THEN
	55	zx_tmp_2d(1:iip1,1:jjp1)=1.
	56	ELSE
	57	zx_tmp_2d(1:iip1,1:jjp1)=0.
	58	ENDIF
	59	CALL histwrite(nid_ctesGCM, "lstardis", itau_dyn,
	60	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	61	c
[696]	62	zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(nitergdiv)
	63	CALL histwrite(nid_ctesGCM, "nitergdiv", itau_dyn,
	64	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	65	c
[696]	66	zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(nitergrot)
	67	CALL histwrite(nid_ctesGCM, "nitergrot", itau_dyn,
	68	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	69	c
[696]	70	zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(niterh)
	71	CALL histwrite(nid_ctesGCM, "niterh", itau_dyn,
	72	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	73	c
[696]	74	zx_tmp_2d(1:iip1,1:jjp1)=tetagdiv
	75	CALL histwrite(nid_ctesGCM, "tetagdiv", itau_dyn,
	76	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	77	c
[696]	78	zx_tmp_2d(1:iip1,1:jjp1)=tetagrot
	79	CALL histwrite(nid_ctesGCM, "tetagrot", itau_dyn,
	80	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	81	c
[696]	82	zx_tmp_2d(1:iip1,1:jjp1)=tetatemp
	83	CALL histwrite(nid_ctesGCM, "tetatemp", itau_dyn,
	84	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	85	c
[696]	86	zx_tmp_2d(1:iip1,1:jjp1)=coefdis
	87	CALL histwrite(nid_ctesGCM, "coefdis", itau_dyn,
	88	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	89	c
[696]	90	IF(purmats) THEN
	91	zx_tmp_2d(1:iip1,1:jjp1)=1.
	92	ELSE
	93	zx_tmp_2d(1:iip1,1:jjp1)=0.
	94	ENDIF
	95	CALL histwrite(nid_ctesGCM, "purmats", itau_dyn,
	96	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	97	c
[696]	98	IF(ok_guide) THEN
	99	zx_tmp_2d(1:iip1,1:jjp1)=1.
	100	ELSE
	101	zx_tmp_2d(1:iip1,1:jjp1)=0.
	102	ENDIF
	103	CALL histwrite(nid_ctesGCM, "ok_guide", itau_dyn,
	104	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	105	c
[696]	106	IF(true_calendar) THEN
	107	zx_tmp_2d(1:iip1,1:jjp1)=1.
	108	ELSE
	109	zx_tmp_2d(1:iip1,1:jjp1)=0.
	110	ENDIF
	111	CALL histwrite(nid_ctesGCM, "true_calendar", itau_dyn,
	112	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	113	c
[696]	114	zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iflag_phys)
	115	CALL histwrite(nid_ctesGCM, "iflag_phys", itau_dyn,
	116	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	117	c
[696]	118	zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iphysiq)
	119	CALL histwrite(nid_ctesGCM, "iphysiq", itau_dyn,
	120	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	121	c
[696]	122	zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(ecritphy)
	123	CALL histwrite(nid_ctesGCM, "ecritphy", itau_dyn,
	124	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	125	c
[696]	126	IF(cycle_diurne) THEN
	127	zx_tmp_2d(1:iip1,1:jjp1)=1.
	128	ELSE
	129	zx_tmp_2d(1:iip1,1:jjp1)=0.
	130	ENDIF
	131	CALL histwrite(nid_ctesGCM, "cycle_diurne", itau_dyn,
	132	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	133	c
[696]	134	IF(soil_model) THEN
	135	zx_tmp_2d(1:iip1,1:jjp1)=1.
	136	ELSE
	137	zx_tmp_2d(1:iip1,1:jjp1)=0.
	138	ENDIF
	139	CALL histwrite(nid_ctesGCM, "soil_model", itau_dyn,
	140	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	141	c
[696]	142	IF(new_oliq) THEN
	143	zx_tmp_2d(1:iip1,1:jjp1)=1.
	144	ELSE
	145	zx_tmp_2d(1:iip1,1:jjp1)=0.
	146	ENDIF
	147	CALL histwrite(nid_ctesGCM, "new_oliq", itau_dyn,
	148	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	149	c
[696]	150	IF(ok_orodr) THEN
	151	zx_tmp_2d(1:iip1,1:jjp1)=1.
	152	ELSE
	153	zx_tmp_2d(1:iip1,1:jjp1)=0.
	154	ENDIF
	155	CALL histwrite(nid_ctesGCM, "ok_orodr", itau_dyn,
	156	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	157	c
[696]	158	IF(ok_orolf) THEN
	159	zx_tmp_2d(1:iip1,1:jjp1)=1.
	160	ELSE
	161	zx_tmp_2d(1:iip1,1:jjp1)=0.
	162	ENDIF
	163	CALL histwrite(nid_ctesGCM, "ok_orolf", itau_dyn,
	164	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	165	c
[696]	166	IF(ok_limitvrai) THEN
	167	zx_tmp_2d(1:iip1,1:jjp1)=1.
	168	ELSE
	169	zx_tmp_2d(1:iip1,1:jjp1)=0.
	170	ENDIF
	171	CALL histwrite(nid_ctesGCM, "ok_limitvrai", itau_dyn,
	172	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	173	c
[696]	174	zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(nbapp_rad)
	175	CALL histwrite(nid_ctesGCM, "nbapp_rad", itau_dyn,
	176	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	177	c
[696]	178	zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(iflag_con)
	179	CALL histwrite(nid_ctesGCM, "iflag_con", itau_dyn,
	180	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	181	c
[696]	182	zx_tmp_2d(1:iip1,1:jjp1)=clon
	183	CALL histwrite(nid_ctesGCM, "clon", itau_dyn,
	184	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	185	c
[696]	186	zx_tmp_2d(1:iip1,1:jjp1)=clat
	187	CALL histwrite(nid_ctesGCM, "clat", itau_dyn,
	188	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	189	c
[696]	190	zx_tmp_2d(1:iip1,1:jjp1)=grossismx
	191	CALL histwrite(nid_ctesGCM, "grossismx", itau_dyn,
	192	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	193	c
[696]	194	zx_tmp_2d(1:iip1,1:jjp1)=grossismy
	195	CALL histwrite(nid_ctesGCM, "grossismy", itau_dyn,
	196	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	197	c
[696]	198	IF(fxyhypb) THEN
	199	zx_tmp_2d(1:iip1,1:jjp1)=1.
	200	ELSE
	201	zx_tmp_2d(1:iip1,1:jjp1)=0.
	202	ENDIF
	203	CALL histwrite(nid_ctesGCM, "fxyhypb", itau_dyn,
	204	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	205	c
[696]	206	zx_tmp_2d(1:iip1,1:jjp1)=dzoomx
	207	CALL histwrite(nid_ctesGCM, "dzoomx", itau_dyn,
	208	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	209	c
[696]	210	zx_tmp_2d(1:iip1,1:jjp1)=dzoomy
	211	CALL histwrite(nid_ctesGCM, "dzoomy", itau_dyn,
	212	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	213	c
[696]	214	zx_tmp_2d(1:iip1,1:jjp1)=taux
	215	CALL histwrite(nid_ctesGCM, "taux", itau_dyn,
	216	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	217	c
[696]	218	zx_tmp_2d(1:iip1,1:jjp1)=tauy
	219	CALL histwrite(nid_ctesGCM, "tauy", itau_dyn,
	220	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	221	c
[696]	222	IF(ysinus) THEN
	223	zx_tmp_2d(1:iip1,1:jjp1)=1.
	224	ELSE
	225	zx_tmp_2d(1:iip1,1:jjp1)=0.
	226	ENDIF
	227	CALL histwrite(nid_ctesGCM, "ysinus", itau_dyn,
	228	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	229	c
[696]	230	zx_tmp_2d(1:iip1,1:jjp1)=FLOAT(ip_ebil_dyn)
	231	CALL histwrite(nid_ctesGCM, "ip_ebil_dyn", itau_dyn,
	232	. zx_tmp_2d,iip1*jjp1,ndex2d)
[692]	233	c
	234	c=================================================================
	235	c
[696]	236	if (ok_sync) then
	237	call histsync(nid_ctesGCM)
	238	endif
[692]	239	c
	240	c=================================================================

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

Download in other formats: