/[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.7 by heimbach, Mon May 14 22:02:33 2007 UTC
# Line 120  c--   Get the counters, flags, and the i Line 120  c--   Get the counters, flags, and the i
120    
121        do iobcs = 1,nobcs        do iobcs = 1,nobcs
122          if ( obcswfirst ) then          if ( obcswfirst ) then
123            call active_read_yz_loc( fnameobcsw, tmpfldyz,            call active_read_yz( fnameobcsw, tmpfldyz,
124       &                         (obcswcount0-1)*nobcs+iobcs,       &                         (obcswcount0-1)*nobcs+iobcs,
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 237  cgg     match up. I will blame Fortran f Line 241  cgg     match up. I will blame Fortran f
241              enddo              enddo
242            enddo            enddo
243    
244            call active_read_yz_loc( fnameobcsw, tmpfldyz,            call active_read_yz( fnameobcsw, tmpfldyz,
245       &                         (obcswcount1-1)*nobcs+iobcs,       &                         (obcswcount1-1)*nobcs+iobcs,
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.7
  ViewVC Help
Powered by ViewVC 1.1.22