Parent Directory | Revision Log
Removed unused argument missval in ma_fucoll_r[1-3]1, ma_fufill_r[1-3]1. Split filtreg into two procedures: filtreg_scal and filtreg_v. I did not like the test on the extent of the argument and there was no common code between the two cases: jjm and jjm + 1. Also, it is simpler now to just remove the argument "direct" from filtreg_v instead of allowing it and then stopping the program if it is false. Removed the computation of pkf in reanalyse2nat, was not used. As a consequence of the split of filtreg, had to extract the computation of pkf out of exner_hyb. This is clearer anyway because we want to be able to call exner_hyb with any size in the first two dimensions (as in test_disvert). But at the same time exner_hyb required particular sizes for the computation of pkf. It was awkward. The only computation of pkf is now in leapfrog.
1 | guez | 104 | module bernoui_m |
2 | guez | 3 | |
3 | guez | 81 | IMPLICIT NONE |
4 | |||
5 | guez | 104 | contains |
6 | guez | 81 | |
7 | guez | 133 | function bernoui(phi, ecin) |
8 | guez | 81 | |
9 | guez | 104 | ! From LMDZ4/libf/dyn3d/bernoui.F, version 1.1.1.1 2004/05/19 12:53:06 |
10 | guez | 81 | |
11 | guez | 104 | ! Author: P. Le Van |
12 | guez | 81 | |
13 | guez | 133 | ! Objet : calcul de la fonction de Bernouilli aux niveaux s. |
14 | |||
15 | USE dimens_m, ONLY: iim, jjm, llm | ||
16 | guez | 137 | USE filtreg_scal_m, ONLY: filtreg_scal |
17 | guez | 81 | |
18 | guez | 133 | REAL, INTENT(IN):: phi(:, :, :), ecin (:, :, :) ! (iim + 1, jjm + 1, llm) |
19 | guez | 81 | |
20 | guez | 133 | REAL bernoui(iim + 1, jjm + 1, llm) |
21 | ! fonction de Bernouilli = filtre de (géopotentiel + énergie cinétique) | ||
22 | |||
23 | guez | 104 | !----------------------------------------------------------------------- |
24 | guez | 81 | |
25 | guez | 133 | bernoui = phi + ecin |
26 | guez | 137 | CALL filtreg_scal(bernoui, direct = .true., intensive = .true.) |
27 | guez | 81 | |
28 | guez | 133 | END function bernoui |
29 | guez | 81 | |
30 | guez | 104 | end module bernoui_m |
ViewVC Help | |
Powered by ViewVC 1.1.21 |