Changeset 3223 for LMDZ6/trunk/libf/phylmd/dyn1d/1D_nudge_sandu_astex.h
- Timestamp:
- Feb 17, 2018, 6:02:23 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/dyn1d/1D_nudge_sandu_astex.h
r2921 r3223 20 20 ! print *,'l dt relax dtadv',l,dt_phys(l),relax_thl(l),d_t_adv(l) 21 21 enddo 22 u(1:mxcalc)=u(1:mxcalc) + timestep*( & 22 23 u(1:mxcalc)=u(1:mxcalc) + timestep*( du_age(1:mxcalc)+ & 23 24 & du_phys(1:mxcalc) - relax_u(1:mxcalc)) 24 v(1:mxcalc)=v(1:mxcalc) + timestep*( 25 v(1:mxcalc)=v(1:mxcalc) + timestep*( dv_age(1:mxcalc)+ & 25 26 & dv_phys(1:mxcalc) - relax_v(1:mxcalc)) 26 ! q(1:mxcalc,:)=q(1:mxcalc,:)+timestep*(27 ! . dq(1:mxcalc,:) - relax_q(1:mxcalc,:)+28 ! . d_q_adv(1:mxcalc,:))29 27 q(1:mxcalc,1)=q(1:mxcalc,1)+timestep*( & 30 28 & dq(1:mxcalc,1) - relax_q(1:mxcalc,1)+d_q_adv(1:mxcalc,1)) … … 34 32 & dt_phys(1:mxcalc)-relax_thl(1:mxcalc)+d_t_adv(1:mxcalc)) 35 33 34
Note: See TracChangeset
for help on using the changeset viewer.