/[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.4 by heimbach, Sun Oct 26 00:58:03 2003 UTC revision 1.5 by mlosch, Fri Dec 3 00:48:57 2004 UTC
# Line 125  c--   Get the counters, flags, and the i Line 125  c--   Get the counters, flags, and the i
125       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
126       &                         mythid, xx_obcse_dummy )       &                         mythid, xx_obcse_dummy )
127    
128    #ifdef ALLOW_CTRL_OBCS_BALANCE
129    
130            if ( optimcycle .gt. 0) then                      if ( optimcycle .gt. 0) then          
131              if (iobcs .eq. 3) then              if (iobcs .eq. 3) then
132  cgg         Special attention is needed for the normal velocity.  cgg         Special attention is needed for the normal velocity.
# Line 198  cgg    Compute the baroclinic velocity a Line 200  cgg    Compute the baroclinic velocity a
200              endif              endif
201            endif            endif
202    
203    #endif /* ALLOW_CTRL_OBCS_BALANCE */
204    
205            do bj = jtlo,jthi            do bj = jtlo,jthi
206              do bi = itlo,ithi              do bi = itlo,ithi
207                do k = 1,nr                do k = 1,nr
# Line 239  cgg     & Line 243  cgg     &
243       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
244       &                         mythid, xx_obcse_dummy )       &                         mythid, xx_obcse_dummy )
245    
246    #ifdef ALLOW_CTRL_OBCS_BALANCE
247    
248            if ( optimcycle .gt. 0) then                      if ( optimcycle .gt. 0) then          
249              if (iobcs .eq. 3) then              if (iobcs .eq. 3) then
250  cgg         Special attention is needed for the normal velocity.  cgg         Special attention is needed for the normal velocity.
# Line 312  cgg    Compute the baroclinic velocity a Line 318  cgg    Compute the baroclinic velocity a
318              endif              endif
319            endif            endif
320    
321    #endif /* ALLOW_CTRL_OBCS_BALANCE */
322    
323            do bj = jtlo,jthi            do bj = jtlo,jthi
324              do bi = itlo,ithi              do bi = itlo,ithi
325                do k = 1,nr                do k = 1,nr
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22