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

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

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

revision 1.11 by jmc, Tue Apr 28 18:09:28 2009 UTC revision 1.12 by jmc, Mon Mar 22 02:16:43 2010 UTC
# Line 172  c--   Loop over records. For north bound Line 172  c--   Loop over records. For north bound
172       &                         ladinit, optimcycle, mythid       &                         ladinit, optimcycle, mythid
173       &                       , xx_obcsn_dummy )       &                       , xx_obcsn_dummy )
174    
175  c--     Loop over this thread's tiles.  c--     Loop over this thread tiles.
176          do bj = jtlo,jthi          do bj = jtlo,jthi
177            do bi = itlo,ithi            do bi = itlo,ithi
178    
# Line 208  cgg -- Positive is flux in. Line 208  cgg -- Positive is flux in.
208       &                         ladinit, optimcycle, mythid       &                         ladinit, optimcycle, mythid
209       &                       , xx_obcss_dummy )       &                       , xx_obcss_dummy )
210    
211  c--     Loop over this thread's tiles.  c--     Loop over this thread tiles.
212          do bj = jtlo,jthi          do bj = jtlo,jthi
213            do bi = itlo,ithi            do bi = itlo,ithi
214    
# Line 243  cgg -- Positive is flux in. Line 243  cgg -- Positive is flux in.
243       &                ladinit, optimcycle, mythid       &                ladinit, optimcycle, mythid
244       &                       , xx_obcsw_dummy )       &                       , xx_obcsw_dummy )
245    
246  c--     Loop over this thread's tiles.  c--     Loop over this thread tiles.
247          do bj = jtlo,jthi          do bj = jtlo,jthi
248            do bi = itlo,ithi            do bi = itlo,ithi
249    
# Line 279  cgg -- Positive is flux in. Line 279  cgg -- Positive is flux in.
279                        ladinit, optimcycle, mythid                        ladinit, optimcycle, mythid
280       &                       , xx_obcse_dummy )       &                       , xx_obcse_dummy )
281    
282  c--     Loop over this thread's tiles.  c--     Loop over this thread tiles.
283          do bj = jtlo,jthi          do bj = jtlo,jthi
284            do bi = itlo,ithi            do bi = itlo,ithi
285    
# Line 330  cgg     Swap the value. Line 330  cgg     Swap the value.
330       &                         (obcsncount1-1)*nobcs+4, doglobalread,       &                         (obcsncount1-1)*nobcs+4, doglobalread,
331       &                         ladinit, optimcycle, mythid       &                         ladinit, optimcycle, mythid
332       &                       , xx_obcsn_dummy )       &                       , xx_obcsn_dummy )
333  c--     Loop over this thread's tiles.  c--     Loop over this thread tiles.
334          do bj = jtlo,jthi          do bj = jtlo,jthi
335            do bi = itlo,ithi            do bi = itlo,ithi
336    
# Line 366  cgg -- Positive is flux in. Line 366  cgg -- Positive is flux in.
366       &                         ladinit, optimcycle, mythid       &                         ladinit, optimcycle, mythid
367       &                       , xx_obcss_dummy )       &                       , xx_obcss_dummy )
368    
369  c--     Loop over this thread's tiles.  c--     Loop over this thread tiles.
370          do bj = jtlo,jthi          do bj = jtlo,jthi
371            do bi = itlo,ithi            do bi = itlo,ithi
372    
# Line 401  cgg -- Positive is flux in. Line 401  cgg -- Positive is flux in.
401       &                ladinit, optimcycle, mythid       &                ladinit, optimcycle, mythid
402       &                       , xx_obcsw_dummy )       &                       , xx_obcsw_dummy )
403    
404  c--     Loop over this thread's tiles.  c--     Loop over this thread tiles.
405          do bj = jtlo,jthi          do bj = jtlo,jthi
406            do bi = itlo,ithi            do bi = itlo,ithi
407    
# Line 437  cgg -- Positive is flux in. Line 437  cgg -- Positive is flux in.
437                        ladinit, optimcycle, mythid                        ladinit, optimcycle, mythid
438       &                       , xx_obcse_dummy )       &                       , xx_obcse_dummy )
439    
440  c--     Loop over this thread's tiles.  c--     Loop over this thread tiles.
441          do bj = jtlo,jthi          do bj = jtlo,jthi
442            do bi = itlo,ithi            do bi = itlo,ithi
443    
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22