/[lmdze]/trunk/phylmd/physiq.f
ViewVC logotype

Diff of /trunk/phylmd/physiq.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 313 by guez, Mon Dec 10 15:54:30 2018 UTC revision 322 by guez, Thu Jan 24 16:17:39 2019 UTC
# Line 673  contains Line 673  contains
673      entr_therm = 0.      entr_therm = 0.
674    
675      if (iflag_thermals == 0) then      if (iflag_thermals == 0) then
        ! Ajustement sec  
676         CALL ajsec(paprs, play, t_seri, q_seri, d_t_ajs, d_q_ajs)         CALL ajsec(paprs, play, t_seri, q_seri, d_t_ajs, d_q_ajs)
677         t_seri = t_seri + d_t_ajs         t_seri = t_seri + d_t_ajs
678         q_seri = q_seri + d_q_ajs         q_seri = q_seri + d_q_ajs
Legend:
Removed from v.313  
changed lines
  Added in v.322
  ViewVC Help
Powered by ViewVC 1.1.21