/[lmdze]/trunk/dyn3d/bernoui.f
ViewVC logotype

Diff of /trunk/dyn3d/bernoui.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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
Legend:
Removed from v.57  
changed lines
  Added in v.68
  ViewVC Help
Powered by ViewVC 1.1.21