/[lmdze]/trunk/phylmd/Radlwsw/lw.f90
ViewVC logotype

Diff of /trunk/phylmd/Radlwsw/lw.f90

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

revision 342 by guez, Thu Jun 13 14:40:06 2019 UTC revision 343 by guez, Mon Oct 28 08:14:26 2019 UTC
# Line 130  contains Line 130  contains
130         PTOPLW0(i) = ZFLUC(i, 1, KFLEV+1) + ZFLUC(i, 2, KFLEV+1)         PTOPLW0(i) = ZFLUC(i, 1, KFLEV+1) + ZFLUC(i, 2, KFLEV+1)
131         psollwdown(i) = -ZFLUX(i, 2, 1)         psollwdown(i) = -ZFLUX(i, 2, 1)
132    
133         !IM attention aux signes !; LWtop >0, LWdn < 0         ! Attention aux signes : LWtop > 0, LWdn < 0
134         DO k = 1, KFLEV+1         DO k = 1, KFLEV+1
135            plwup(i, k) = ZFLUX(i, 1, k)            plwup(i, k) = ZFLUX(i, 1, k)
136            plwup0(i, k) = ZFLUC(i, 1, k)            plwup0(i, k) = ZFLUC(i, 1, k)
Legend:
Removed from v.342  
changed lines
  Added in v.343
  ViewVC Help
Powered by ViewVC 1.1.21