/[MITgcm]/MITgcm/pkg/sbo/sbo_calc.F
ViewVC logotype

Diff of /MITgcm/pkg/sbo/sbo_calc.F

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

revision 1.3 by adcroft, Tue May 13 17:29:27 2003 UTC revision 1.4 by edhill, Mon Sep 29 19:24:31 2003 UTC
# Line 198  c     K=0 => ssh Line 198  c     K=0 => ssh
198  c     if land, flag it in obp and skip it  c     if land, flag it in obp and skip it
199                          if (_hFacC(i,j,1,bi,bj).eq.0.) then                          if (_hFacC(i,j,1,bi,bj).eq.0.) then
200                             obp(I,J,bi,bj) = -999.99                             obp(I,J,bi,bj) = -999.99
201                             goto 10                             goto 1010
202                          end if                          end if
203    
204                          radius = ae                          radius = ae
# Line 212  c     assume surface has same vel and de Line 212  c     assume surface has same vel and de
212                       else                       else
213    
214  c     if land, skip it  c     if land, skip it
215                          if (_hFacC(i,j,k,bi,bj).eq.0.) goto 10                          if (_hFacC(i,j,k,bi,bj).eq.0.) goto 1010
216    
217  c     radius to center of cell (m)  c     radius to center of cell (m)
218                          radius = ae - abs(rC(K))                          radius = ae - abs(rC(K))
# Line 264  c     accumulate ocean-bottom pressure Line 264  c     accumulate ocean-bottom pressure
264  c     end loop over depth  c     end loop over depth
265                    end do                    end do
266    
267   10               continue   1010             continue
268    
269  c     end loop over longitude  c     end loop over longitude
270                 end do                 end do
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22