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 changed: menemenlis@jpl.nasa.gov 20-Dec-2002 |
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 |
108 |
enddo |
enddo |
109 |
|
|
110 |
ENDIF |
ENDIF |
111 |
|
c END IF ( .NOT. useSEAICE ) |
112 |
|
|
113 |
end |
end |