/[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.5 by edhill, Mon Sep 29 19:24:31 2003 UTC revision 1.9 by heimbach, Tue Apr 17 23:51:22 2007 UTC
# Line 1  Line 1 
1  c $Header$  C $Header$
2    C $Name$
3    
4  #include "EXF_CPPOPTIONS.h"  #include "EXF_OPTIONS.h"
5    
6        subroutine exf_filter_rs(        subroutine exf_filter_rs(
7       I                          arr,       I                          arr,
# Line 29  c     == global variables == Line 30  c     == global variables ==
30  #include "SIZE.h"  #include "SIZE.h"
31  #include "GRID.h"  #include "GRID.h"
32  #include "PARAMS.h"  #include "PARAMS.h"
33  #include "exf_constants.h"  #include "EXF_CONSTANTS.h"
34  #include "exf.h"  #include "EXF_PARAM.h"
 #include "exf_param.h"  
35    
36  c     == routine arguments ==  c     == routine arguments ==
37    
# Line 76  c         Set land points to zero Line 76  c         Set land points to zero
76    
77              do j = 1,sny              do j = 1,sny
78                do i = 1,snx                do i = 1,snx
79                  if ( _hFacC(i,j,1,bi,bj) .eq. 0. ) then                  if ( maskC(i,j,1,bi,bj) .eq. 0. ) then
80                    arr(i,j,bi,bj) = 0. _d 0                    arr(i,j,bi,bj) = 0. _d 0
81                  endif                  endif
82                enddo                enddo
# Line 86  c         Set land points to zero Line 86  c         Set land points to zero
86    
87              do j = 1,sny              do j = 1,sny
88                do i = 1,snx                do i = 1,snx
89                  if ( maskw(i,j,1,bi,bj) .eq. 0. ) then                  if ( maskW(i,j,1,bi,bj) .eq. 0. ) then
90                    arr(i,j,bi,bj) = 0. _d 0                    arr(i,j,bi,bj) = 0. _d 0
91                  endif                  endif
92                enddo                enddo
# Line 96  c         Set land points to zero Line 96  c         Set land points to zero
96    
97              do j = 1,sny              do j = 1,sny
98                do i = 1,snx                do i = 1,snx
99                  if ( masks(i,j,1,bi,bj) .eq. 0. ) then                  if ( maskS(i,j,1,bi,bj) .eq. 0. ) then
100                    arr(i,j,bi,bj) = 0. _d 0                    arr(i,j,bi,bj) = 0. _d 0
101                  endif                  endif
102                enddo                enddo
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22