Context Navigation

source: LMDZ4/trunk/libf/phylmd/ini_paramLMDZ_phy.h @ 901

Last change on this file since 901 was 879, checked in by Laurent Fairhead, 17 years ago
Suite de la bascule vers une physique avec thermiques, nouvelle convection, poche froide ... LF
Property svn:eol-style set to `native` Property svn:executable set to ``* Property svn:keywords set to `Author Date Id Revision`
File size: 13.6 KB

Rev	Line
[766]	1	cym Non implemente en mode parallele
	2
[776]	3	IF (is_sequential) THEN
[683]	4	c
	5	zstophy = dtime
	6	zout = ecrit_day
	7	c
	8	idayref = day_ref
	9	CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
	10	c
	11	CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
[879]	12	if (iim.gt.1) then
[683]	13	DO i = 1, iim
	14	zx_lon(i,1) = rlon(i+1)
	15	zx_lon(i,jjmp1) = rlon(i+1)
	16	ENDDO
[879]	17	endif
[683]	18	CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
	19	c
	20	CALL histbeg("paramLMDZ_phy.nc",
	21	. iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
	22	. 1,1,1,1,
	23	. itau_phy, zjulian, dtime,
	24	. nhori, nid_ctesGCM)
	25	c
	26	c Variables type caractere : plusieurs valeurs possibles
	27	c
	28	CALL histdef(nid_ctesGCM, "ocean",
	29	. "Type ocean utilise: 1=force, 2=slab, 3=couple",
	30	. "-",iim,jjmp1,nhori, 1,1,1, -99, 32,
	31	. "once", zstophy,zout)
	32	c
	33	CALL histdef(nid_ctesGCM, "ok_slab_sicOBS",
	34	."ok_slab_sicOBS= 1: glace de mer observee, =0: gl.mer calculee
	35	. par le slab", "-",
	36	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	37	. "once", zstophy,zout)
	38	c
	39	CALL histdef(nid_ctesGCM, "type_run",
	40	. "Type run: 1= CLIM ou ENSP, 2= AMIP ou CFMI",
	41	. "-",iim,jjmp1,nhori, 1,1,1, -99, 32,
	42	. "once", zstophy,zout)
	43	c
	44	c Variables logiques (1=true, 0=false)
	45	c
	46	CALL histdef(nid_ctesGCM, "ok_veget",
	47	. "Type de modele de vegetation: 1=ORCHIDEE, 0=bucket",
	48	. "-",iim,jjmp1,nhori, 1,1,1, -99, 32,
	49	. "once", zstophy,zout)
	50	c
	51	CALL histdef(nid_ctesGCM, "ok_journe",
	52	. "Creation du fichier histday: 1=true, 0=false",
	53	. "-",iim,jjmp1,nhori, 1,1,1, -99, 32,
	54	. "once", zstophy,zout)
	55	c
	56	CALL histdef(nid_ctesGCM, "ok_mensuel",
	57	. "Creation du fichier histmth: 1=true, 0=false",
	58	. "-",iim,jjmp1,nhori, 1,1,1, -99, 32,
	59	. "once", zstophy,zout)
	60	c
	61	CALL histdef(nid_ctesGCM, "ok_instan",
	62	. "Creation du fichier histins: 1=true, 0=false",
	63	. "-",iim,jjmp1,nhori, 1,1,1, -99, 32,
	64	. "once", zstophy,zout)
	65	c
	66	CALL histdef(nid_ctesGCM, "ok_ade",
	67	. "Aerosol direct effect: 1=true, 0=false",
	68	. "-",iim,jjmp1,nhori, 1,1,1, -99, 32,
	69	. "once", zstophy,zout)
	70	c
	71	CALL histdef(nid_ctesGCM, "ok_aie",
	72	. "Aerosol indirect effect: 1=true, 0=false",
	73	. "-",iim,jjmp1,nhori, 1,1,1, -99, 32,
	74	. "once", zstophy,zout)
	75	c
	76	CALL histdef(nid_ctesGCM, "bl95_b0",
	77	. "Parameter in CDNC-maer link (Boucher&Lohmann 1995)",
	78	. "-",iim,jjmp1,nhori, 1,1,1, -99, 32,
	79	. "ave(X)", zstophy,zout)
	80	c
	81	CALL histdef(nid_ctesGCM, "bl95_b1",
	82	. "Parameter in CDNC-maer link (Boucher&Lohmann 1995)",
	83	. "-",iim,jjmp1,nhori, 1,1,1, -99, 32,
	84	. "ave(X)", zstophy,zout)
	85	c
	86	CALL histdef(nid_ctesGCM, "ip_ebil_phy",
	87	. "Niveau sortie diags bilan energie cote physique",
	88	. "-",iim,jjmp1,nhori, 1,1,1, -99, 32,
	89	. "ave(X)", zstophy,zout)
	90	c
	91	CALL histdef(nid_ctesGCM, "R_ecc",
	92	. "Excentricite","-",
	93	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	94	. "once", zstophy,zout)
	95	c
	96	CALL histdef(nid_ctesGCM, "R_peri",
	97	. "Equinoxe","-",
	98	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	99	. "once", zstophy,zout)
	100	c
	101	CALL histdef(nid_ctesGCM, "R_incl",
	102	. "Inclinaison","deg",
	103	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	104	. "once", zstophy,zout)
	105	c
	106	CALL histdef(nid_ctesGCM, "solaire",
	107	. "Constante solaire","W/m2",
	108	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	109	. "once", zstophy,zout)
	110	c
	111	CALL histdef(nid_ctesGCM, "co2_ppm",
	112	. "Concentration du CO2", "ppm",
	113	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	114	. "ave(X)", zstophy,zout)
	115	c
	116	CALL histdef(nid_ctesGCM, "CH4_ppb",
	117	. "Concentration du CH4", "ppb",
	118	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	119	. "ave(X)", zstophy,zout)
	120	c
	121	CALL histdef(nid_ctesGCM, "N2O_ppb",
	122	. "Concentration du N2O", "ppb",
	123	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	124	. "ave(X)", zstophy,zout)
	125	c
	126	CALL histdef(nid_ctesGCM, "CFC11_ppt",
	127	. "Concentration du CFC11", "ppt",
	128	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	129	. "ave(X)", zstophy,zout)
	130	c
	131	CALL histdef(nid_ctesGCM, "CFC12_ppt",
	132	. "Concentration du CFC12", "ppt",
	133	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	134	. "ave(X)", zstophy,zout)
	135	c
	136	CALL histdef(nid_ctesGCM, "epmax",
	137	. "Efficacite precip", "-",
	138	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	139	. "once", zstophy,zout)
	140	c
	141	CALL histdef(nid_ctesGCM, "ok_adj_ema",
	142	. "ok_adj_ema: 1=true, 0=false", "-",
	143	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	144	. "once", zstophy,zout)
	145	c
	146	CALL histdef(nid_ctesGCM, "iflag_clw",
	147	. "iflag_clw", "-",
	148	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	149	. "once", zstophy,zout)
	150	c
	151	CALL histdef(nid_ctesGCM, "cld_lc_lsc",
	152	. "cld_lc_lsc", "-",
	153	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	154	. "once", zstophy,zout)
	155	c
	156	CALL histdef(nid_ctesGCM, "cld_lc_con",
	157	. "cld_lc_con", "-",
	158	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	159	. "once", zstophy,zout)
	160	c
	161	CALL histdef(nid_ctesGCM, "cld_tau_lsc",
	162	. "cld_tau_lsc", "-",
	163	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	164	. "once", zstophy,zout)
	165	c
	166	CALL histdef(nid_ctesGCM, "cld_tau_con",
	167	. "cld_tau_con", "-",
	168	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	169	. "once", zstophy,zout)
	170	c
	171	CALL histdef(nid_ctesGCM, "ffallv_lsc",
	172	. "ffallv_lsc", "-",
	173	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	174	. "once", zstophy,zout)
	175	c
	176	CALL histdef(nid_ctesGCM, "ffallv_con",
	177	. "ffallv_con", "-",
	178	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	179	. "once", zstophy,zout)
	180	c
	181	CALL histdef(nid_ctesGCM, "coef_eva",
	182	. "coef_eva", "-",
	183	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	184	. "once", zstophy,zout)
	185	c
	186	CALL histdef(nid_ctesGCM, "reevap_ice",
	187	. "reevap_ice: 1=true, 0=false", "-",
	188	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	189	. "once", zstophy,zout)
	190	c
	191	CALL histdef(nid_ctesGCM, "iflag_cldcon",
	192	. "iflag_cldcon", "-",
	193	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	194	. "once", zstophy,zout)
	195	c
	196	CALL histdef(nid_ctesGCM, "iflag_pdf",
	197	. "iflag_pdf", "-",
	198	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	199	. "once", zstophy,zout)
	200	c
	201	CALL histdef(nid_ctesGCM, "fact_cldcon",
	202	. "fact_cldcon", "-",
	203	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	204	. "once", zstophy,zout)
	205	c
	206	CALL histdef(nid_ctesGCM, "facttemps",
	207	. "facttemps", "-",
	208	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	209	. "once", zstophy,zout)
	210	c
	211	CALL histdef(nid_ctesGCM, "ok_newmicro",
	212	. "Nouvelle micro-physique: 1=true, 0=false",
	213	. "-",iim,jjmp1,nhori, 1,1,1, -99, 32,
	214	. "once", zstophy,zout)
	215	c
	216	CALL histdef(nid_ctesGCM, "ratqsbas",
	217	. "ratqsbas", "-",
	218	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	219	. "once", zstophy,zout)
	220	c
	221	CALL histdef(nid_ctesGCM, "ratqshaut",
	222	. "ratqshaut", "-",
	223	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	224	. "once", zstophy,zout)
	225	c
	226	CALL histdef(nid_ctesGCM, "rad_froid",
	227	. "rad_froid", "-",
	228	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	229	. "once", zstophy,zout)
	230	c
	231	CALL histdef(nid_ctesGCM, "rad_chau1",
	232	. "rad_chau1", "-",
	233	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	234	. "once", zstophy,zout)
	235	c
	236	CALL histdef(nid_ctesGCM, "rad_chau2",
	237	. "rad_chau2", "-",
	238	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	239	. "once", zstophy,zout)
	240	c
	241	CALL histdef(nid_ctesGCM, "top_height",
	242	. "top_height", "-",
	243	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	244	. "once", zstophy,zout)
	245	c
	246	CALL histdef(nid_ctesGCM, "overlap",
	247	. "overlap", "-",
	248	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	249	. "once", zstophy,zout)
	250	c
	251	CALL histdef(nid_ctesGCM, "cdmmax",
	252	. "cdmmax", "-",
	253	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	254	. "once", zstophy,zout)
	255	c
	256	CALL histdef(nid_ctesGCM, "cdhmax",
	257	. "cdhmax", "-",
	258	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	259	. "once", zstophy,zout)
	260	c
	261	CALL histdef(nid_ctesGCM, "ksta",
	262	. "ksta", "-",
	263	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	264	. "once", zstophy,zout)
	265	c
	266	CALL histdef(nid_ctesGCM, "ksta_ter",
	267	. "ksta_ter", "-",
	268	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	269	. "once", zstophy,zout)
	270	c
	271	CALL histdef(nid_ctesGCM, "ok_kzmin",
	272	. "ok_kzmin: 1=true, 0=false", "-",
	273	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	274	. "once", zstophy,zout)
	275	c
	276	CALL histdef(nid_ctesGCM, "iflag_pbl",
	277	. "iflag_pbl", "-",
	278	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	279	. "once", zstophy,zout)
	280	c
	281	CALL histdef(nid_ctesGCM, "lev_histhf",
	282	. "lev_histhf", "-",
	283	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	284	. "once", zstophy,zout)
	285	c
	286	CALL histdef(nid_ctesGCM, "lev_histday",
	287	. "lev_histday", "-",
	288	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	289	. "once", zstophy,zout)
	290	c
	291	CALL histdef(nid_ctesGCM, "lev_histmth",
	292	. "lev_histmth", "-",
	293	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	294	. "once", zstophy,zout)
	295	c
	296	CALL histdef(nid_ctesGCM, "ok_isccp",
	297	. "Creation fichier histISCCP: 1=true, 0=false",
	298	. "-",iim,jjmp1,nhori, 1,1,1, -99, 32,
	299	. "once", zstophy,zout)
	300	c
	301	CALL histdef(nid_ctesGCM, "lonmin_ins",
	302	. "lonmin_ins", "-",
	303	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	304	. "once", zstophy,zout)
	305	c
	306	CALL histdef(nid_ctesGCM, "lonmax_ins",
	307	. "lonmax_ins", "-",
	308	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	309	. "once", zstophy,zout)
	310	c
	311	CALL histdef(nid_ctesGCM, "latmin_ins",
	312	. "latmin_ins", "-",
	313	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	314	. "once", zstophy,zout)
	315	c
	316	CALL histdef(nid_ctesGCM, "latmax_ins",
	317	. "latmax_ins", "-",
	318	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	319	. "once", zstophy,zout)
	320	c
	321	CALL histdef(nid_ctesGCM, "ecrit_ins",
	322	. "ecrit_ins", "-",
	323	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	324	. "once", zstophy,zout)
	325	c
	326	CALL histdef(nid_ctesGCM, "ecrit_hf",
	327	. "ecrit_hf", "-",
	328	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	329	. "once", zstophy,zout)
	330	c
	331	CALL histdef(nid_ctesGCM, "ecrit_day",
	332	. "ecrit_day", "-",
	333	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	334	. "once", zstophy,zout)
	335	c
	336	CALL histdef(nid_ctesGCM, "ecrit_mth",
	337	. "ecrit_mth", "-",
	338	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	339	. "once", zstophy,zout)
	340	c
	341	CALL histdef(nid_ctesGCM, "ecrit_tra",
	342	. "ecrit_tra", "-",
	343	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	344	. "once", zstophy,zout)
	345	c
	346	CALL histdef(nid_ctesGCM, "ecrit_reg",
	347	. "ecrit_reg", "-",
	348	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	349	. "once", zstophy,zout)
	350	c
[828]	351	CALL histdef(nid_ctesGCM, "freq_ISCCP",
	352	. "freq_ISCCP", "-",
[683]	353	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	354	. "once", zstophy,zout)
	355	c
[828]	356	CALL histdef(nid_ctesGCM, "ecrit_ISCCP",
	357	. "ecrit_ISCCP", "-",
[683]	358	. iim,jjmp1,nhori, 1,1,1, -99, 32,
	359	. "once", zstophy,zout)
	360	c
	361	c=================================================================
	362	c
	363	CALL histend(nid_ctesGCM)
[766]	364
[776]	365	ENDIF ! is_sequential
[683]	366	c
	367	c=================================================================

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

Download in other formats: