316 |
coefh(:knon, 2:), coefm(:knon, 1), coefh(:knon, 1)) |
coefh(:knon, 2:), coefm(:knon, 1), coefh(:knon, 1)) |
317 |
|
|
318 |
IF (iflag_pbl == 1) THEN |
IF (iflag_pbl == 1) THEN |
319 |
CALL coefkz2(nsrf, knon, ypaprs, ypplay, yt, ycoefm0, ycoefh0) |
CALL coefkz2(nsrf, knon, ypaprs, ypplay, yt, ycoefm0(:knon, 2:), & |
320 |
|
ycoefh0(:knon, 2:)) |
321 |
|
ycoefm0(:knon, 1) = 0. |
322 |
|
ycoefh0(:knon, 1) = 0. |
323 |
coefm(:knon, :) = max(coefm(:knon, :), ycoefm0(:knon, :)) |
coefm(:knon, :) = max(coefm(:knon, :), ycoefm0(:knon, :)) |
324 |
coefh(:knon, :) = max(coefh(:knon, :), ycoefh0(:knon, :)) |
coefh(:knon, :) = max(coefh(:knon, :), ycoefh0(:knon, :)) |
325 |
END IF |
END IF |