4 |
SUBROUTINE bernoui (ngrid,nlay,pphi,pecin,pbern) |
SUBROUTINE bernoui (ngrid,nlay,pphi,pecin,pbern) |
5 |
use dimens_m |
use dimens_m |
6 |
use paramet_m |
use paramet_m |
7 |
use logic |
use conf_gcm_m |
8 |
use filtreg_m, only: filtreg |
use filtreg_m, only: filtreg |
9 |
IMPLICIT NONE |
IMPLICIT NONE |
10 |
|
|
33 |
c ---------- |
c ---------- |
34 |
c |
c |
35 |
INTEGER nlay,ngrid |
INTEGER nlay,ngrid |
36 |
REAL pphi(ngrid*nlay),pecin(ngrid*nlay),pbern(ngrid*nlay) |
REAL, intent(in):: pphi(ngrid*nlay),pecin(ngrid*nlay) |
37 |
|
real pbern(ngrid*nlay) |
38 |
c |
c |
39 |
c Local: |
c Local: |
40 |
c ------ |
c ------ |
53 |
c filtre: |
c filtre: |
54 |
c ------- |
c ------- |
55 |
c |
c |
56 |
CALL filtreg( pbern, jjp1, llm, 2,1, .true., 1 ) |
CALL filtreg( pbern, jjp1, llm, 2,1, .true.) |
57 |
c |
c |
58 |
c----------------------------------------------------------------------- |
c----------------------------------------------------------------------- |
59 |
RETURN |
RETURN |