76 |
CALL tourpot(vcov, ucov, massebxy, vorpot) |
CALL tourpot(vcov, ucov, massebxy, vorpot) |
77 |
CALL dudv1(vorpot, pbaru, pbarv, dudyn(:, 2: jjm, :), dv) |
CALL dudv1(vorpot, pbaru, pbarv, dudyn(:, 2: jjm, :), dv) |
78 |
CALL enercin(vcov, ucov, vcont, ucont, ecin) |
CALL enercin(vcov, ucov, vcont, ucont, ecin) |
79 |
CALL bernoui(phi, ecin, bern) |
bern = bernoui(phi, ecin) |
80 |
CALL dudv2(teta, pkf, bern, dudyn, dv) |
CALL dudv2(teta, pkf, bern, dudyn, dv) |
81 |
|
|
82 |
forall (l = 1: llm) ang_3d(:, :, l) = ucov(:, :, l) + constang_2d |
forall (l = 1: llm) ang_3d(:, :, l) = ucov(:, :, l) + constang_2d |