Directory: | ./ |
---|---|
File: | dyn3d_common/bernoui.f |
Date: | 2022-01-11 19:19:34 |
Exec | Total | Coverage | |
---|---|---|---|
Lines: | 6 | 6 | 100.0% |
Branches: | 2 | 2 | 100.0% |
Line | Branch | Exec | Source |
---|---|---|---|
1 | ! | ||
2 | ! $Header$ | ||
3 | ! | ||
4 | 2881 | SUBROUTINE bernoui (ngrid,nlay,pphi,pecin,pbern) | |
5 | IMPLICIT NONE | ||
6 | |||
7 | c======================================================================= | ||
8 | c | ||
9 | c Auteur: P. Le Van | ||
10 | c ------- | ||
11 | c | ||
12 | c Objet: | ||
13 | c ------ | ||
14 | c calcul de la fonction de Bernouilli aux niveaux s ..... | ||
15 | c phi et ecin sont des arguments d'entree pour le s-pg ....... | ||
16 | c bern est un argument de sortie pour le s-pg ...... | ||
17 | c | ||
18 | c fonction de Bernouilli = bern = filtre de( geopotentiel + | ||
19 | c energ.cinet.) | ||
20 | c | ||
21 | c======================================================================= | ||
22 | c | ||
23 | c----------------------------------------------------------------------- | ||
24 | c Decalrations: | ||
25 | c ------------- | ||
26 | c | ||
27 | include "dimensions.h" | ||
28 | include "paramet.h" | ||
29 | c | ||
30 | c Arguments: | ||
31 | c ---------- | ||
32 | c | ||
33 | INTEGER nlay,ngrid | ||
34 | REAL pphi(ngrid*nlay),pecin(ngrid*nlay),pbern(ngrid*nlay) | ||
35 | c | ||
36 | c Local: | ||
37 | c ------ | ||
38 | c | ||
39 | INTEGER ijl | ||
40 | c | ||
41 | c----------------------------------------------------------------------- | ||
42 | c calcul de Bernouilli: | ||
43 | c --------------------- | ||
44 | c | ||
45 |
2/2✓ Branch 0 taken 122358951 times.
✓ Branch 1 taken 2881 times.
|
122361832 | DO 4 ijl = 1,ngrid*nlay |
46 | 122358951 | pbern( ijl ) = pphi( ijl ) + pecin( ijl ) | |
47 | 2881 | 4 CONTINUE | |
48 | c | ||
49 | c----------------------------------------------------------------------- | ||
50 | c filtre: | ||
51 | c ------- | ||
52 | c | ||
53 | 2881 | CALL filtreg( pbern, jjp1, llm, 2,1, .true., 1 ) | |
54 | c | ||
55 | c----------------------------------------------------------------------- | ||
56 | 2881 | RETURN | |
57 | END | ||
58 |