/[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.2 by heimbach, Tue Jun 24 16:07:06 2003 UTC revision 1.4 by edhill, Mon Sep 29 19:24:31 2003 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( fnameobcsw, tmpfldyz,            call active_read_yz_loc( 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 )
# Line 212  cgg     & Line 212  cgg     &
212    
213          if ( (obcswfirst) .or. (obcswchanged)) then          if ( (obcswfirst) .or. (obcswchanged)) then
214                        
215  cgg(    This is a terribly long way to do it. However, the dimensions don't exactly  cgg(    This is a terribly long way to do it. However, the dimensions do not exactly
216  cgg     match up. I will blame Fortran for the ugliness.  cgg     match up. I will blame Fortran for the ugliness.
217    
218            do bj = jtlo,jthi            do bj = jtlo,jthi
# Line 237  cgg     match up. I will blame Fortran f Line 237  cgg     match up. I will blame Fortran f
237              enddo              enddo
238            enddo            enddo
239    
240            call active_read_yz( fnameobcsw, tmpfldyz,            call active_read_yz_loc( fnameobcsw, tmpfldyz,
241       &                         (obcswcount1-1)*nobcs+iobcs,       &                         (obcswcount1-1)*nobcs+iobcs,
242       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
243       &                         mythid, xx_obcsw_dummy )       &                         mythid, xx_obcsw_dummy )
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22