Parent Directory | Revision Log | Patch
revision 91 by guez, Wed Mar 26 17:18:58 2014 UTC | revision 107 by guez, Thu Sep 11 15:09:15 2014 UTC | |
---|---|---|
# | Line 64 contains | Line 64 contains |
64 | ||
65 | if (present(pkf)) then | if (present(pkf)) then |
66 | pkf = pk | pkf = pk |
67 | CALL filtreg(pkf, size(pkf, 2), llm, 2, 1, .TRUE.) | CALL filtreg(pkf, direct = .true., intensive = .true.) |
68 | end if | end if |
69 | ||
70 | END SUBROUTINE exner_hyb | END SUBROUTINE exner_hyb |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |