Parent Directory | Revision Log | Patch
revision 240 by guez, Mon Nov 13 11:29:18 2017 UTC | revision 241 by guez, Mon Nov 13 11:51:04 2017 UTC | |
---|---|---|
# | Line 491 contains | Line 491 contains |
491 | END DO | END DO |
492 | END DO | END DO |
493 | ||
494 | DO j = 1, knon | ycoefh(ni(:knon), 2:) = ycoefh(ni(:knon), 2:) + coefh(:knon, :) |
495 | i = ni(j) | ycoefh(ni(:knon), 1) = ycoefh(ni(:knon), 1) + ycdragh(:knon) |
DO k = 2, klev | ||
ycoefh(i, k) = ycoefh(i, k) + coefh(j, k) | ||
END DO | ||
END DO | ||
DO j = 1, knon | ||
i = ni(j) | ||
ycoefh(i, 1) = ycoefh(i, 1) + ycdragh(j) | ||
END DO | ||
496 | ||
497 | ! diagnostic t, q a 2m et u, v a 10m | ! diagnostic t, q a 2m et u, v a 10m |
498 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |