Ignore:
Timestamp:
Jun 29, 2017, 4:08:16 PM (7 years ago)
Author:
fhourdin
Message:

Complement vesperal aux changements 1D du matin.

Location:
LMDZ5/trunk/libf/phylmd/dyn1d
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r2239 r2921  
    1818!     print *,'l dq1 relax dqadv',l,dq(l,1),relax_q(l,1),d_q_adv(l,1)
    1919!     print *,'l dq2 relax dqadv',l,dq(l,2),relax_q(l,2),d_q_adv(l,2)
    20 !     print *,'l dt  relax dtadv',l,dt_phys(l),relax_thl(l),d_th_adv(l)
     20!     print *,'l dt  relax dtadv',l,dt_phys(l),relax_thl(l),d_t_adv(l)
    2121      enddo
    2222        u(1:mxcalc)=u(1:mxcalc) + timestep*(                                &         
    … …  
    3232     &      dq(1:mxcalc,2) - relax_q(1:mxcalc,2)+d_q_adv(1:mxcalc,2))
    3333        temp(1:mxcalc)=temp(1:mxcalc)+timestep*(                            &
    34      &      dt_phys(1:mxcalc)-relax_thl(1:mxcalc)+d_th_adv(1:mxcalc))
     34     &      dt_phys(1:mxcalc)-relax_thl(1:mxcalc)+d_t_adv(1:mxcalc))
     35

  • LMDZ5/trunk/libf/phylmd/dyn1d/compar1d.h

    r2716 r2921  
    4141
    4242      integer :: tadv, tadvv, tadvh, qadv, qadvv, qadvh, thadv, thadvv, thadvh, trad
    43       integer :: forc_omega, forc_w, forc_geo, forc_ustar
     43      integer :: forc_omega, forc_u, forc_v, forc_w, forc_geo, forc_ustar
    4444      real    :: nudging_u, nudging_v, nudging_w, nudging_t, nudging_q
    4545      common/com_par1d/                                                 &
Note: See TracChangeset for help on using the changeset viewer.