| 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 |