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

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

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

revision 1.5 by heimbach, Sun Oct 26 00:58:03 2003 UTC revision 1.6 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_obcsw_dummy )       &                         mythid, xx_obcsw_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 242  cgg     match up. I will blame Fortran f Line 246  cgg     match up. I will blame Fortran f
246       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
247       &                         mythid, xx_obcsw_dummy )       &                         mythid, xx_obcsw_dummy )
248    
249    #ifdef ALLOW_CTRL_OBCS_BALANCE
250    
251            if ( optimcycle .gt. 0) then                      if ( optimcycle .gt. 0) then          
252              if (iobcs .eq. 3) then              if (iobcs .eq. 3) then
253  cgg         Special attention is needed for the normal velocity.  cgg         Special attention is needed for the normal velocity.
# Line 315  cgg    Compute the baroclinic velocity a Line 321  cgg    Compute the baroclinic velocity a
321              endif              endif
322            endif            endif
323    
324    #endif /* ALLOW_CTRL_OBCS_BALANCE */
325    
326            do bj = jtlo,jthi            do bj = jtlo,jthi
327              do bi = itlo,ithi              do bi = itlo,ithi
328                do k = 1,nr                do k = 1,nr
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22