/[MITgcm]/MITgcm/pkg/grdchk/grdchk_get_obcs_mask.F
ViewVC logotype

Diff of /MITgcm/pkg/grdchk/grdchk_get_obcs_mask.F

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

revision 1.2 by heimbach, Tue Jun 24 16:08:45 2003 UTC revision 1.3 by heimbach, Fri Jul 18 21:10:16 2003 UTC
# Line 64  c     == end of interface == Line 64  c     == end of interface ==
64    
65        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
66    
67          if ( grdchkvarindex .EQ. 11 ) then
68  #ifdef ALLOW_OBCSN_CONTROL  #ifdef ALLOW_OBCSN_CONTROL
69        write(fname(1:80),'(80a)') ' '        write(fname(1:80),'(80a)') ' '
70        write(fname(1:80),'(a)') 'maskobcsn'        write(fname(1:80),'(a)') 'maskobcsn'
71  c  c
72        do iobcs = 1,nobcs        do iobcs = 1,nobcs
73           call active_read_xz(  fname, tmpfldxz, iobcs,           call active_read_xz_loc(  fname, tmpfldxz, iobcs,
74       &        .false., .false., 0, mythid, dummy)       &        .false., .false., 0, mythid, dummy)
75  c  c
76           do bj = jtlo,jthi           do bj = jtlo,jthi
# Line 86  c Line 87  c
87        enddo        enddo
88  #endif  #endif
89    
90          else if ( grdchkvarindex .EQ. 12 ) then
91  #ifdef ALLOW_OBCSS_CONTROL  #ifdef ALLOW_OBCSS_CONTROL
92        write(fname(1:80),'(80a)') ' '        write(fname(1:80),'(80a)') ' '
93        write(fname(1:80),'(a)') 'maskobcss'        write(fname(1:80),'(a)') 'maskobcss'
94  c  c
95        do iobcs = 1,nobcs        do iobcs = 1,nobcs
96           call active_read_xz(  fname, tmpfldxz, iobcs,           call active_read_xz_loc(  fname, tmpfldxz, iobcs,
97       &        .false., .false., 0, mythid, dummy)       &        .false., .false., 0, mythid, dummy)
98  c  c
99           do bj = jtlo,jthi           do bj = jtlo,jthi
# Line 108  c Line 110  c
110        enddo        enddo
111  #endif  #endif
112    
113          else if ( grdchkvarindex .EQ. 13 ) then
114  #ifdef ALLOW_OBCSW_CONTROL  #ifdef ALLOW_OBCSW_CONTROL
115        write(fname(1:80),'(80a)') ' '        write(fname(1:80),'(80a)') ' '
116        write(fname(1:80),'(a)') 'maskobcsw'        write(fname(1:80),'(a)') 'maskobcsw'
117  c  c
118        do iobcs = 1,nobcs        do iobcs = 1,nobcs
119           call active_read_yz(  fname, tmpfldyz, iobcs,           call active_read_yz_loc(  fname, tmpfldyz, iobcs,
120       &        .false., .false., 0, mythid, dummy)       &        .false., .false., 0, mythid, dummy)
121  c  c
122           do bj = jtlo,jthi           do bj = jtlo,jthi
# Line 130  c Line 133  c
133        enddo        enddo
134  #endif  #endif
135    
136          else if ( grdchkvarindex .EQ. 14 ) then
137  #ifdef ALLOW_OBCSE_CONTROL  #ifdef ALLOW_OBCSE_CONTROL
138        write(fname(1:80),'(80a)') ' '        write(fname(1:80),'(80a)') ' '
139        write(fname(1:80),'(a)') 'maskobcse'        write(fname(1:80),'(a)') 'maskobcse'
140  c  c
141        do iobcs = 1,nobcs        do iobcs = 1,nobcs
142           call active_read_yz(  fname, tmpfldyz, iobcs,           call active_read_yz_loc(  fname, tmpfldyz, iobcs,
143       &        .false., .false., 0, mythid, dummy)       &        .false., .false., 0, mythid, dummy)
144  c  c
145           do bj = jtlo,jthi           do bj = jtlo,jthi
# Line 151  c Line 155  c
155  c  c
156        enddo        enddo
157  #endif  #endif
158          endif
159    
160        _END_MASTER( mythid )        _END_MASTER( mythid )
161    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22