15 |
c o Read a flux record for external forcing. |
c o Read a flux record for external forcing. |
16 |
c |
c |
17 |
c started: Ralf.Giering@FastOpt.de 24-Mai-2000 |
c started: Ralf.Giering@FastOpt.de 24-Mai-2000 |
18 |
|
c mods for pkg/seaice: menemenlis@jpl.nasa.gov 20-Dec-2002 |
19 |
c |
c |
20 |
c ================================================================== |
c ================================================================== |
21 |
c SUBROUTINE exf_filter_rs |
c SUBROUTINE exf_filter_rs |
28 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
29 |
#include "SIZE.h" |
#include "SIZE.h" |
30 |
#include "GRID.h" |
#include "GRID.h" |
31 |
|
#include "PARAMS.h" |
32 |
#include "exf_constants.h" |
#include "exf_constants.h" |
33 |
#include "exfa.h" |
#include "exf.h" |
34 |
#include "exfa_param.h" |
#include "exf_param.h" |
35 |
|
|
36 |
c == routine arguments == |
c == routine arguments == |
37 |
|
|
53 |
itlo = mybxlo(mythid) |
itlo = mybxlo(mythid) |
54 |
ithi = mybxhi(mythid) |
ithi = mybxhi(mythid) |
55 |
|
|
56 |
|
c Do not filter with pkg/seaice because of B/C-grid interpolation |
57 |
|
IF ( .NOT. useSEAICE ) THEN |
58 |
|
|
59 |
c filter forcing field array |
c filter forcing field array |
60 |
do bj = jtlo,jthi |
do bj = jtlo,jthi |
61 |
do bi = itlo,ithi |
do bi = itlo,ithi |
107 |
enddo |
enddo |
108 |
enddo |
enddo |
109 |
|
|
110 |
|
ENDIF |
111 |
|
c END IF ( .NOT. useSEAICE ) |
112 |
|
|
113 |
end |
end |