/[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 27 by guez, Thu Mar 25 14:29:07 2010 UTC revision 64 by guez, Wed Aug 29 14:47:17 2012 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 52  c--------------------------------------- Line 52  c---------------------------------------
52  c   filtre:  c   filtre:
53  c   -------  c   -------
54  c  c
55        CALL filtreg( pbern, jjp1, llm, 2,1, .true., 1 )        CALL filtreg( pbern, jjp1, llm, 2,1, .true.)
56  c  c
57  c-----------------------------------------------------------------------  c-----------------------------------------------------------------------
58        RETURN        RETURN
Legend:
Removed from v.27  
changed lines
  Added in v.64
  ViewVC Help
Powered by ViewVC 1.1.21