Context Navigation

ini_paramLMDZ_phy.h @ 5423

Last change on this file since 5423 was 996, checked in by lsce, 16 years ago

Modifications liées au calcul des nouveau sous-fractions
Nettoyage de ocean slab : il reste uniquement la version avec glace de mer forcé
Nouveaux variables pour distiguer la version et type d'ocean : type_ocean=force/slab/couple, version_ocean=opa8/nemo pour couplé ou version_ocean=sicOBS pour slab

Property svn:eol-style set to native
Property svn:executable set to *
Property svn:keywords set to Author Date Id Revision

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

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

Context Navigation

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

Download in other formats: