/[MITgcm]/MITgcm/pkg/exf/exf_filter_rs.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_filter_rs.F

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

revision 1.1 by heimbach, Mon May 14 22:08:40 2001 UTC revision 1.6 by edhill, Thu Oct 9 04:19:19 2003 UTC
# Line 1  Line 1 
1  c $Header$  C $Header$
2    
3  #include "EXF_CPPOPTIONS.h"  #include "EXF_OPTIONS.h"
4    
5        subroutine exf_filter_rs(        subroutine exf_filter_rs(
6       I                          arr,       I                          arr,
# Line 15  c Line 15  c
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
# Line 27  c     == global variables == Line 28  c     == global variables ==
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    
# Line 51  c     == end of interface == Line 53  c     == end of interface ==
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
# Line 102  c         Set land points to zero Line 107  c         Set land points to zero
107          enddo          enddo
108        enddo        enddo
109    
110          ENDIF
111    c     END IF ( .NOT. useSEAICE )
112    
113        end        end

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.22