Changeset 2921 for LMDZ5/trunk/libf/phylmd/dyn1d/1D_nudge_sandu_astex.h

Timestamp:

Jun 29, 2017, 4:08:16 PM (7 years ago)

Author:

fhourdin

Message:

Complement vesperal aux changements 1D du matin.

File:

• LMDZ5/trunk/libf/phylmd/dyn1d/1D_nudge_sandu_astex.h (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/dyn1d/1D_nudge_sandu_astex.h

@@ -18 +18 @@
 !     print *,'l dq1 relax dqadv',l,dq(l,1),relax_q(l,1),d_q_adv(l,1)
 !     print *,'l dq2 relax dqadv',l,dq(l,2),relax_q(l,2),d_q_adv(l,2)
-!     print *,'l dt  relax dtadv',l,dt_phys(l),relax_thl(l),d_th_adv(l)
+!     print *,'l dt  relax dtadv',l,dt_phys(l),relax_thl(l),d_t_adv(l)
       enddo
         u(1:mxcalc)=u(1:mxcalc) + timestep*(                                &          
@@ -32 +32 @@
      &      dq(1:mxcalc,2) - relax_q(1:mxcalc,2)+d_q_adv(1:mxcalc,2))
         temp(1:mxcalc)=temp(1:mxcalc)+timestep*(                            &
-     &      dt_phys(1:mxcalc)-relax_thl(1:mxcalc)+d_th_adv(1:mxcalc))
+     &      dt_phys(1:mxcalc)-relax_thl(1:mxcalc)+d_t_adv(1:mxcalc))
+