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

Diff of /trunk/dyn3d/bernoui.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/libf/dyn3d/bernoui.f revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC trunk/dyn3d/bernoui.f revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC
# Line 4  Line 4 
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    
# 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.27  
changed lines
  Added in v.76
  ViewVC Help
Powered by ViewVC 1.1.21