Context Navigation

source: LMDZ4/trunk/libf/phytherm/ini_histmthNMC.h @ 1068

Last change on this file since 1068 was 814, checked in by Laurent Fairhead, 17 years ago
Rajout de la physique utilisant les thermiques FH LF
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 6.3 KB

Rev	Line
[814]	1	!
	2	! $Header$
	3	!
	4	IF (ok_mensuel) THEN
	5	c
	6	c$OMP MASTER
	7
	8	zstophy = dtime
	9	zstohf = ecrit_hf
	10	zstomth = ecrit_mth
	11	zout = ecrit_mth
	12	c
	13	idayref = day_ref
	14	CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
	15	c
	16	cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
	17	cym DO i = 1, iim
	18	cym zx_lon(i,1) = rlon(i+1)
	19	cym zx_lon(i,jjmp1) = rlon(i+1)
	20	cym ENDDO
	21	DO ll=1,klev
	22	znivsig(ll)=float(ll)
	23	ENDDO
	24	cym CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
	25	cym CALL histbeg("histNMC.nc", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
	26	cym . 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
	27	cym . nhori, nid_nmc)
	28
	29	CALL histbeg_phy("histNMC",itau_phy, zjulian, dtime,
	30	. nhori, nid_nmc)
	31	c
	32	CALL histvert(nid_nmc, "presnivs", "Vertical levels", "mb",
	33	. nlevSTD, rlevSTD/100., nvert)
	34	ccc
	35	ccc Champs 3D interpolles sur des niveaux de pression du NMC
	36	ccc
	37	IF(type_run.EQ."ENSP".OR.type_run.EQ."CLIM") THEN
	38	c
	39	CALL histdef(nid_nmc, "temp",
	40	. "Temperature","K",
	41	. iim,jj_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
	42	. "inst(X)", zout,zout)
	43	c
	44	CALL histdef(nid_nmc, "phi",
	45	. "Geopotential", "m",
	46	. iim,jj_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
	47	. "inst(X)", zout,zout)
	48	c
	49	CALL histdef(nid_nmc, "q",
	50	. "Specific humidity","kg/kg",
	51	. iim,jj_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
	52	. "inst(X)", zout,zout)
	53	c
	54	CALL histdef(nid_nmc, "rh",
	55	. "Relative humidity", "%",
	56	. iim,jj_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
	57	. "inst(X)", zout,zout)
	58	c
	59	CALL histdef(nid_nmc, "u",
	60	. "Zonal wind","m/s",
	61	. iim,jj_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
	62	. "inst(X)", zout,zout)
	63	c
	64	CALL histdef(nid_nmc, "v",
	65	. "Meridional wind","m/s",
	66	. iim,jj_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
	67	. "inst(X)", zout,zout)
	68	c
	69	ELSE IF(type_run.EQ."AMIP".OR.type_run.EQ."CFMI") THEN
	70	c
	71	c ATTENTION : pour AMIP2 on interpole t,u,v,wphi,q,rh
	72	c sur les niveaux du NMC et on somme & moyenne
	73	c toutes les 6 heures par des routines undefSTD et
	74	c moy_undefSTD pour eliminer les valeurs "undef"
	75	c de la moyenne mensuelle
	76	c ======> le "inst(X)" ci-dessous est par consequence factice !
	77	c
	78	CALL histdef(nid_nmc, "temp",
	79	. "Temperature","K",
	80	. iim,jj_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
	81	. "inst(X)", zout,zout)
	82	c
	83	CALL histdef(nid_nmc, "phi",
	84	. "Geopotential ", "m",
	85	. iim,jj_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
	86	. "inst(X)", zout,zout)
	87	c
	88	CALL histdef(nid_nmc, "q",
	89	. "Specific humidity","kg/kg",
	90	. iim,jj_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
	91	. "inst(X)", zout,zout)
	92	c
	93	CALL histdef(nid_nmc, "rh",
	94	. "Relative humidity", "%",
	95	. iim,jj_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
	96	. "inst(X)", zout,zout)
	97	c
	98	CALL histdef(nid_nmc, "u",
	99	. "Zonal wind","m/s",
	100	. iim,jj_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
	101	. "inst(X)", zout,zout)
	102	c
	103	CALL histdef(nid_nmc, "v",
	104	. "Meridional wind","m/s",
	105	. iim,jj_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
	106	. "inst(X)", zout,zout)
	107	c
	108	CALL histdef(nid_nmc, "w",
	109	. "Vertical motion","Pa/s",
	110	. iim,jj_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
	111	. "inst(X)", zout,zout)
	112	c
	113	c ATTENTION : pour AMIP2 on interpole t,u,v,wphi,q,rh
	114	c sur les niveaux du NMC et on somme & moyenne
	115	c toutes les 6 heures par des routines undefSTD et
	116	c moy_undefSTD pour eliminer les valeurs "undef"
	117	c de la moyenne mensuelle
	118	c ======> le "inst(X)" ci-dessus est par consequence factice !
	119	c
	120	c
	121	CALL histdef(nid_nmc, "psbg",
	122	. "Pressure sfce below ground","%",
	123	. iim,jj_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
	124	. "inst(X)", zout,zout)
	125	c
	126	CALL histdef(nid_nmc, "uv",
	127	. "uv ",
	128	. "m2/s2",iim,jj_nb,nhori, nlevSTD,1,nlevSTD, nvert, 32,
	129	. "inst(X)", zout,zout)
	130	c
	131	CALL histdef(nid_nmc, "vq",
	132	. "vq ",
	133	. "m/s * (kg/kg)",iim,jj_nb,nhori,
	134	. nlevSTD,1,nlevSTD, nvert, 32,
	135	. "inst(X)", zout,zout)
	136	c
	137	CALL histdef(nid_nmc, "vT",
	138	. "vT ",
	139	. "mK/s",iim,jj_nb,nhori,
	140	. nlevSTD,1,nlevSTD, nvert, 32,
	141	. "inst(X)", zout,zout)
	142	c
	143	CALL histdef(nid_nmc, "wq",
	144	. "wq ",
	145	. "(Pa/s)*(kg/kg)",iim,jj_nb,nhori,
	146	. nlevSTD,1,nlevSTD, nvert, 32,
	147	. "inst(X)", zout,zout)
	148	c
	149	CALL histdef(nid_nmc, "vphi",
	150	. "vphi ",
	151	. "m2/s",iim,jj_nb,nhori,
	152	. nlevSTD,1,nlevSTD, nvert, 32,
	153	. "inst(X)", zout,zout)
	154	c
	155	CALL histdef(nid_nmc, "wT",
	156	. "wT ",
	157	. "K*Pa/s",iim,jj_nb,nhori,
	158	. nlevSTD,1,nlevSTD, nvert, 32,
	159	. "inst(X)", zout,zout)
	160	c
	161	CALL histdef(nid_nmc, "uxu",
	162	. "u2 ",
	163	. "m2/s2",iim,jj_nb,nhori,
	164	. nlevSTD,1,nlevSTD, nvert, 32,
	165	. "inst(X)", zout,zout)
	166	c
	167	CALL histdef(nid_nmc, "vxv",
	168	. "v2 ",
	169	. "m2/s2",iim,jj_nb,nhori,
	170	. nlevSTD,1,nlevSTD, nvert, 32,
	171	. "inst(X)", zout,zout)
	172	c
	173	CALL histdef(nid_nmc, "TxT",
	174	. "T2 ",
	175	. "K2",iim,jj_nb,nhori,
	176	. nlevSTD,1,nlevSTD, nvert, 32,
	177	. "inst(X)", zout,zout)
	178	c
	179	ENDIF !(type_run.EQ."AMIP")
	180
	181	CALL histend(nid_nmc)
	182	c
	183	c$OMP END MASTER
	184
	185	ENDIF ! fin de test sur ok_mensuel

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

Download in other formats: