/[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

trunk/Sources/phylmd/Interface_surf/calcul_fluxs.f revision 221 by guez, Thu Apr 20 14:44:47 2017 UTC trunk/phylmd/Interface_surf/calcul_fluxs.f 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.221  
changed lines
  Added in v.266
  ViewVC Help
Powered by ViewVC 1.1.21