Parent Directory | Revision Log | Patch
revision 57 by guez, Mon Jan 30 12:54:02 2012 UTC | revision 68 by guez, Wed Nov 14 16:59:30 2012 UTC | |
---|---|---|
# | Line 33 c Arguments: | Line 33 c Arguments: |
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 ------ |
# | Line 52 c--------------------------------------- | Line 53 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |