/[MITgcm]/MITgcm/pkg/ctrl/ctrl_getobcse.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_getobcse.F

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

revision 1.14 by jmc, Fri Aug 10 19:38:57 2012 UTC revision 1.15 by jmc, Tue Sep 18 20:21:23 2012 UTC
# Line 130  c--   Get the counters, flags, and the i Line 130  c--   Get the counters, flags, and the i
130            if (iobcs .gt. 2) then            if (iobcs .gt. 2) then
131             do j = jmin,jmax             do j = jmin,jmax
132              i = OB_Ie(j,bi,bj)              i = OB_Ie(j,bi,bj)
133                IF ( i.EQ.OB_indexNone ) i = 1
134  cih    Determine number of open vertical layers.  cih    Determine number of open vertical layers.
135              nz = 0              nz = 0
136              do k = 1,Nr              do k = 1,Nr
# Line 198  cgg   & Line 199  cgg   &
199            if (iobcs .gt. 2) then            if (iobcs .gt. 2) then
200             do j = jmin,jmax             do j = jmin,jmax
201              i = OB_Ie(j,bi,bj)              i = OB_Ie(j,bi,bj)
202                IF ( i.EQ.OB_indexNone ) i = 1
203  cih    Determine number of open vertical layers.  cih    Determine number of open vertical layers.
204              nz = 0              nz = 0
205              do k = 1,Nr              do k = 1,Nr
# Line 249  c--   Calculate mask for tracer cells (0 Line 251  c--   Calculate mask for tracer cells (0
251           do k = 1,nr           do k = 1,nr
252            do j = 1,sny            do j = 1,sny
253             i = OB_Ie(j,bi,bj)             i = OB_Ie(j,bi,bj)
254               IF ( i.EQ.OB_indexNone ) i = 1
255             if (iobcs .EQ. 1) then             if (iobcs .EQ. 1) then
256              OBEt(j,k,bi,bj) = OBEt(j,k,bi,bj)              OBEt(j,k,bi,bj) = OBEt(j,k,bi,bj)
257       &           + obcsefac            *xx_obcse0(j,k,bi,bj,iobcs)       &           + obcsefac            *xx_obcse0(j,k,bi,bj,iobcs)
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22