/[lmdze]/trunk/libf/dyn3d/exner_hyb.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/exner_hyb.f90

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

revision 63 by guez, Tue Jul 19 12:54:20 2011 UTC revision 64 by guez, Wed Aug 29 14:47:17 2012 UTC
# Line 68  contains Line 68  contains
68    
69      if (present(pkf)) then      if (present(pkf)) then
70         pkf = pk         pkf = pk
71         CALL filtreg(pkf, jjm + 1, llm, 2, 1, .TRUE., 1)         CALL filtreg(pkf, jjm + 1, llm, 2, 1, .TRUE.)
72      end if      end if
73    
74    END SUBROUTINE exner_hyb    END SUBROUTINE exner_hyb
Legend:
Removed from v.63  
changed lines
  Added in v.64
  ViewVC Help
Powered by ViewVC 1.1.21