Context Navigation

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

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

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

Download in other formats: