Parent Directory | Revision Log | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |