/[MITgcm]/MITgcm/pkg/ecco/cost_obcsvol.F
ViewVC logotype

Diff of /MITgcm/pkg/ecco/cost_obcsvol.F

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

revision 1.3 by jmc, Tue Apr 28 18:13:28 2009 UTC revision 1.4 by jmc, Mon Mar 22 02:19:35 2010 UTC
# Line 177  cgg    Need to solve for iobcs. Then onl Line 177  cgg    Need to solve for iobcs. Then onl
177          iobcs = irec - igg*nobcs          iobcs = irec - igg*nobcs
178    
179  #ifdef ALLOW_OBCSN_CONTROL  #ifdef ALLOW_OBCSN_CONTROL
180  cgg   Assume that nobcs=4, and V velocity is the 4th record. I can't  cgg   Assume that nobcs=4, and V velocity is the 4th record. I cannot
181  cgg   think of a more general way to do this.  cgg   think of a more general way to do this.
182          jp1 = 0          jp1 = 0
183    
# Line 194  cgg  are diagonally offset. Could check Line 194  cgg  are diagonally offset. Could check
194  cgg  BALANCE_CONTROL_VOLFLUX and VOLFLUX_COST_CONTRIBUTION.  cgg  BALANCE_CONTROL_VOLFLUX and VOLFLUX_COST_CONTRIBUTION.
195  cgg  cgg
196  cgg  25-jan-03 --- no idea what i was talking about ^^^^  cgg  25-jan-03 --- no idea what i was talking about ^^^^
197  c--     Loop over this thread's tiles.  c--     Loop over this thread tiles.
198            do bj = jtlo,jthi            do bj = jtlo,jthi
199              do bi = itlo,ithi              do bi = itlo,ithi
200    
# Line 220  cgg -- Positive is flux in. Line 220  cgg -- Positive is flux in.
220  #endif  #endif
221    
222  #ifdef ALLOW_OBCSS_CONTROL  #ifdef ALLOW_OBCSS_CONTROL
223  cgg   Assume that nobcs=4, and V velocity is the 4th record. I can't  cgg   Assume that nobcs=4, and V velocity is the 4th record. I cannot
224  cgg   think of a more general way to do this.  cgg   think of a more general way to do this.
225          jp1 = 1          jp1 = 1
226    
# Line 236  cgg  to do with the computational stenci Line 236  cgg  to do with the computational stenci
236  cgg  are diagonally offset. Could check later by employing both  cgg  are diagonally offset. Could check later by employing both
237  cgg  BALANCE_CONTROL_VOLFLUX and VOLFLUX_COST_CONTRIBUTION.  cgg  BALANCE_CONTROL_VOLFLUX and VOLFLUX_COST_CONTRIBUTION.
238    
239  c--     Loop over this thread's tiles.  c--     Loop over this thread tiles.
240            do bj = jtlo,jthi            do bj = jtlo,jthi
241              do bi = itlo,ithi              do bi = itlo,ithi
242    
# Line 263  cgg -- Positive is flux in. Line 263  cgg -- Positive is flux in.
263  #endif  #endif
264    
265  #ifdef ALLOW_OBCSW_CONTROL  #ifdef ALLOW_OBCSW_CONTROL
266  cgg   Assume that nobcs=4, and V velocity is the 4th record. I can't  cgg   Assume that nobcs=4, and V velocity is the 4th record. I cannot
267  cgg   think of a more general way to do this.  cgg   think of a more general way to do this.
268          ip1 = 1          ip1 = 1
269    
# Line 279  cgg  to do with the computational stenci Line 279  cgg  to do with the computational stenci
279  cgg  are diagonally offset. Could check later by employing both  cgg  are diagonally offset. Could check later by employing both
280  cgg  BALANCE_CONTROL_VOLFLUX and VOLFLUX_COST_CONTRIBUTION.  cgg  BALANCE_CONTROL_VOLFLUX and VOLFLUX_COST_CONTRIBUTION.
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 306  cgg -- Positive is flux in. Line 306  cgg -- Positive is flux in.
306  #endif  #endif
307    
308  #ifdef ALLOW_OBCSE_CONTROL  #ifdef ALLOW_OBCSE_CONTROL
309  cgg   Assume that nobcs=4, and V velocity is the 4th record. I can't  cgg   Assume that nobcs=4, and V velocity is the 4th record. I cannot
310  cgg   think of a more general way to do this.  cgg   think of a more general way to do this.
311          ip1 = 0          ip1 = 0
312    
# Line 322  cgg  to do with the computational stenci Line 322  cgg  to do with the computational stenci
322  cgg  are diagonally offset. Could check later by employing both  cgg  are diagonally offset. Could check later by employing both
323  cgg  BALANCE_CONTROL_VOLFLUX and VOLFLUX_COST_CONTRIBUTION.  cgg  BALANCE_CONTROL_VOLFLUX and VOLFLUX_COST_CONTRIBUTION.
324    
325  c--     Loop over this thread's tiles.  c--     Loop over this thread tiles.
326            do bj = jtlo,jthi            do bj = jtlo,jthi
327              do bi = itlo,ithi              do bi = itlo,ithi
328    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22