Context Navigation

source: LMDZ6/trunk/libf/phylmd/dyn1d/1D_interp_cases.h @ 3817

Last change on this file since 3817 was 3781, checked in by evignon, 4 years ago
Initialisation de la TKE pour les cas 1D (important pour GABLS1), Etienne
Property svn:keywords set to `Id`
File size: 8.1 KB

Rev	Line
[2017]	1
[3780]	2	print*,'FORCING CASE forcing_case2'
[3594]	3	! print*, &
	4	! & '#### ITAP,day,day1,(day-day1)86400,(day-day1)86400/pdt_cas=', &
	5	! & daytime,day1,(daytime-day1)*86400., &
	6	! & (daytime-day1)*86400/pdt_cas
[2191]	7
	8	! time interpolation:
[3686]	9	CALL interp_case_time_std(daytime,day1,annee_ref &
	10	! & ,year_ini_cas,day_ju_ini_cas,nt_cas,pdt_cas,nlev_cas &
	11	& ,nt_cas,nlev_cas &
	12	& ,ts_cas,ps_cas,plev_cas,t_cas,th_cas,thv_cas,thl_cas,qv_cas,ql_cas,qi_cas &
	13	& ,u_cas,v_cas,ug_cas,vg_cas &
	14	& ,temp_nudg_cas,qv_nudg_cas,u_nudg_cas,v_nudg_cas &
[3781]	15	& ,vitw_cas,omega_cas,tke_cas,du_cas,hu_cas,vu_cas &
[3686]	16	& ,dv_cas,hv_cas,vv_cas,dt_cas,ht_cas,vt_cas,dtrad_cas &
	17	& ,dq_cas,hq_cas,vq_cas,dth_cas,hth_cas,vth_cas,lat_cas,sens_cas,ustar_cas &
[3781]	18	& ,uw_cas,vw_cas,q1_cas,q2_cas,tkes_cas &
[2716]	19	!
[3686]	20	& ,ts_prof_cas,ps_prof_cas,plev_prof_cas,t_prof_cas,theta_prof_cas,thv_prof_cas &
	21	& ,thl_prof_cas,qv_prof_cas,ql_prof_cas,qi_prof_cas &
	22	& ,u_prof_cas,v_prof_cas,ug_prof_cas,vg_prof_cas &
	23	& ,temp_nudg_prof_cas,qv_nudg_prof_cas,u_nudg_prof_cas,v_nudg_prof_cas &
[3781]	24	& ,vitw_prof_cas,omega_prof_cas,tke_prof_cas &
[3686]	25	& ,du_prof_cas,hu_prof_cas,vu_prof_cas &
	26	& ,dv_prof_cas,hv_prof_cas,vv_prof_cas,dt_prof_cas,ht_prof_cas,vt_prof_cas &
	27	& ,dtrad_prof_cas,dq_prof_cas,hq_prof_cas,vq_prof_cas &
	28	& ,dth_prof_cas,hth_prof_cas,vth_prof_cas,lat_prof_cas &
[3781]	29	& ,sens_prof_cas,ustar_prof_cas,uw_prof_cas,vw_prof_cas,q1_prof_cas,q2_prof_cas,tkes_prof_cas)
[3780]	30	! EV tg instead of ts_cur
	31	tg = ts_prof_cas
[2716]	32	! psurf=plev_prof_cas(1)
	33	psurf=ps_prof_cas
	34
	35	! vertical interpolation:
[3781]	36	CALL interp2_case_vertical_std(play,plev,nlev_cas,plev_prof_cas &
[3686]	37	& ,t_prof_cas,theta_prof_cas,thv_prof_cas,thl_prof_cas &
	38	& ,qv_prof_cas,ql_prof_cas,qi_prof_cas,u_prof_cas,v_prof_cas &
	39	& ,ug_prof_cas,vg_prof_cas &
	40	& ,temp_nudg_prof_cas,qv_nudg_prof_cas,u_nudg_prof_cas,v_nudg_prof_cas &
[3781]	41	& ,vitw_prof_cas,omega_prof_cas,tke_prof_cas &
[3686]	42	& ,du_prof_cas,hu_prof_cas,vu_prof_cas,dv_prof_cas,hv_prof_cas,vv_prof_cas &
	43	& ,dt_prof_cas,ht_prof_cas,vt_prof_cas,dtrad_prof_cas,dq_prof_cas,hq_prof_cas,vq_prof_cas &
	44	& ,dth_prof_cas,hth_prof_cas,vth_prof_cas &
[2716]	45	!
[3686]	46	& ,t_mod_cas,theta_mod_cas,thv_mod_cas,thl_mod_cas,qv_mod_cas,ql_mod_cas,qi_mod_cas &
	47	& ,u_mod_cas,v_mod_cas,ug_mod_cas,vg_mod_cas &
	48	& ,temp_nudg_mod_cas,qv_nudg_mod_cas,u_nudg_mod_cas,v_nudg_mod_cas &
[3781]	49	& ,w_mod_cas,omega_mod_cas,tke_mod_cas &
[3686]	50	& ,du_mod_cas,hu_mod_cas,vu_mod_cas,dv_mod_cas,hv_mod_cas,vv_mod_cas &
	51	& ,dt_mod_cas,ht_mod_cas,vt_mod_cas,dtrad_mod_cas,dq_mod_cas,hq_mod_cas,vq_mod_cas &
	52	& ,dth_mod_cas,hth_mod_cas,vth_mod_cas,mxcalc)
[2716]	53
	54
	55	DO l=1,llm
	56	teta(l)=temp(l)(100000./play(l))*(rd/rcpd)
	57	ENDDO
	58	!calcul de l'advection verticale a partir du omega
	59	!Calcul des gradients verticaux
	60	!initialisation
	61	d_t_z(:)=0.
	62	d_th_z(:)=0.
	63	d_q_z(:)=0.
[2920]	64	d_u_z(:)=0.
	65	d_v_z(:)=0.
[2716]	66	d_t_dyn_z(:)=0.
	67	d_th_dyn_z(:)=0.
	68	d_q_dyn_z(:)=0.
[2920]	69	d_u_dyn_z(:)=0.
	70	d_v_dyn_z(:)=0.
[3541]	71	if (1==0) then
	72	DO l=2,llm-1
	73	d_t_z(l)=(temp(l+1)-temp(l-1))/(play(l+1)-play(l-1))
	74	d_th_z(l)=(teta(l+1)-teta(l-1))/(play(l+1)-play(l-1))
	75	d_q_z(l)=(q(l+1,1)-q(l-1,1))/(play(l+1)-play(l-1))
	76	d_u_z(l)=(u(l+1)-u(l-1))/(play(l+1)-play(l-1))
	77	d_v_z(l)=(v(l+1)-v(l-1))/(play(l+1)-play(l-1))
	78	ENDDO
	79	else
	80	DO l=2,llm-1
[3686]	81	IF (omega(l)>0.) THEN
[3541]	82	d_t_z(l)=(temp(l+1)-temp(l))/(play(l+1)-play(l))
	83	d_th_z(l)=(teta(l+1)-teta(l))/(play(l+1)-play(l))
	84	d_q_z(l)=(q(l+1,1)-q(l,1))/(play(l+1)-play(l))
	85	d_u_z(l)=(u(l+1)-u(l))/(play(l+1)-play(l))
	86	d_v_z(l)=(v(l+1)-v(l))/(play(l+1)-play(l))
[3686]	87	ELSE
[3541]	88	d_t_z(l)=(temp(l-1)-temp(l))/(play(l-1)-play(l))
	89	d_th_z(l)=(teta(l-1)-teta(l))/(play(l-1)-play(l))
	90	d_q_z(l)=(q(l-1,1)-q(l,1))/(play(l-1)-play(l))
	91	d_u_z(l)=(u(l-1)-u(l))/(play(l-1)-play(l))
	92	d_v_z(l)=(v(l-1)-v(l))/(play(l-1)-play(l))
[3686]	93	ENDIF
	94	ENDDO
[3541]	95	endif
[2716]	96	d_t_z(1)=d_t_z(2)
[3541]	97	d_t_z(1)=d_t_z(2)
[2716]	98	d_th_z(1)=d_th_z(2)
	99	d_q_z(1)=d_q_z(2)
[2920]	100	d_u_z(1)=d_u_z(2)
	101	d_v_z(1)=d_v_z(2)
[2716]	102	d_t_z(llm)=d_t_z(llm-1)
	103	d_th_z(llm)=d_th_z(llm-1)
	104	d_q_z(llm)=d_q_z(llm-1)
[2920]	105	d_u_z(llm)=d_u_z(llm-1)
	106	d_v_z(llm)=d_v_z(llm-1)
[2716]	107
[3541]	108	! TRAVAIL : PRENDRE DES NOTATIONS COHERENTES POUR W
	109	do l = 1, llm
	110	! Modif w_mod_cas -> omega_mod_cas (MM+MPL 20170309)
[3781]	111	print*, l, llm
	112	print*, play(l), temp(l)
[3541]	113	omega(l) = -w_mod_cas(l)play(l)rg/(rd*temp(l))
	114	enddo
	115
[2716]	116	!Calcul de l advection verticale
[2920]	117	! Modif w_mod_cas -> omega_mod_cas (MM+MPL 20170310)
[3541]	118	d_t_dyn_z(:)=omega(:)*d_t_z(:)
	119	d_th_dyn_z(:)=omega(:)*d_th_z(:)
	120	d_q_dyn_z(:)=omega(:)*d_q_z(:)
	121	d_u_dyn_z(:)=omega(:)*d_u_z(:)
	122	d_v_dyn_z(:)=omega(:)*d_v_z(:)
[2716]	123
[2920]	124	!geostrophic wind
	125	if (forc_geo.eq.1) then
	126	do l=1,llm
	127	ug(l) = ug_mod_cas(l)
	128	vg(l) = vg_mod_cas(l)
	129	enddo
	130	endif
[2716]	131
	132	do l = 1, llm
[3592]	133
	134	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
[2920]	135	! Modif w_mod_cas -> omega_mod_cas (MM+MPL 20170309)
[3592]	136	!!! omega2(l)= omega(l)/rg*airefi ! flxmass_w calcule comme ds physiq
	137	omega(l) = omega_mod_cas(l)
	138	omega2(l)= omega_mod_cas(l)/rg*airefi ! flxmass_w calcule comme ds physiq
	139
[3593]	140	! On effectue la somme du forcage total et de la decomposition
	141	! horizontal/vertical en supposant que soit l'un soit l'autre
	142	! sont remplis mais jamais les deux
[2716]	143
[3593]	144	d_t_adv(l) = dt_mod_cas(l)+ht_mod_cas(l)+vt_mod_cas(l)
	145	d_q_adv(l,1) = dq_mod_cas(l)+hq_mod_cas(l)+vq_mod_cas(l)
	146	d_q_adv(l,2) = 0.0
	147	d_u_adv(l) = du_mod_cas(l)+hu_mod_cas(l)+vu_mod_cas(l)
	148	d_v_adv(l) = dv_mod_cas(l)+hv_mod_cas(l)+vv_mod_cas(l)
[2716]	149
[3592]	150	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	151	!! CONSERVE EN ATTENDANT QUE LE CAS EN QUESTION FONCTIONNE EN STD !!
	152	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	153	!if (forc_w==1) then
	154	! d_q_adv(l,1)=d_q_adv(l,1)-d_q_dyn_z(l)
	155	! d_t_adv(l)=d_t_adv(l)-d_t_dyn_z(l)
	156	! d_v_adv(l)=d_v_adv(l)-d_v_dyn_z(l)
	157	! d_u_adv(l)=d_u_adv(l)-d_u_dyn_z(l)
	158	! endif
	159	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
[2716]	160
[3686]	161	if (trad.eq.1) then
[2716]	162	tend_rayo=1
	163	dt_cooling(l) = dtrad_mod_cas(l)
	164	! print *,'dt_cooling=',dt_cooling(l)
	165	else
	166	dt_cooling(l) = 0.0
	167	endif
	168	enddo
	169
	170	! Faut-il multiplier par -1 ? (MPL 20160713)
	171	IF(ok_flux_surf) THEN
	172	fsens=-1.*sens_prof_cas
	173	flat=-1.*lat_prof_cas
	174	print *,'1D_interp: sens,flat',fsens,flat
	175	ENDIF
	176	!
	177	IF (ok_prescr_ust) THEN
	178	ust=ustar_prof_cas
	179	print *,'ust=',ust
	180	ENDIF

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

Download in other formats: