/[lmdze]/trunk/phylmd/Interface_surf/calcul_fluxs.f
ViewVC logotype

Diff of /trunk/phylmd/Interface_surf/calcul_fluxs.f

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

revision 265 by guez, Mon Feb 5 10:39:38 2018 UTC revision 266 by guez, Thu Apr 19 17:54:55 2018 UTC
# Line 90  contains Line 90  contains
90      sl = merge(RLSTT, RLVTT, tsurf < RTT)      sl = merge(RLSTT, RLVTT, tsurf < RTT)
91    
92      ! Q      ! Q
93      oq = 1. - (beta * coef * peqBcoef * dtime)      oq = 1. - beta * coef * peqBcoef * dtime
94      mq = beta * coef * (peqAcoef - qsat + dq_s_dt * tsurf) / oq      mq = beta * coef * (peqAcoef - qsat + dq_s_dt * tsurf) / oq
95      nq = beta * coef * (- 1. * dq_s_dt) / oq      nq = beta * coef * (- 1. * dq_s_dt) / oq
96    
Legend:
Removed from v.265  
changed lines
  Added in v.266
  ViewVC Help
Powered by ViewVC 1.1.21