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

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

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

revision 1.11 by mmazloff, Wed Apr 20 19:14:07 2011 UTC revision 1.12 by jmc, Tue May 24 20:48:28 2011 UTC
# Line 6  C $Name$ Line 6  C $Name$
6  # include "OBCS_OPTIONS.h"  # include "OBCS_OPTIONS.h"
7  #endif  #endif
8    
   
9        subroutine ctrl_getobcse(        subroutine ctrl_getobcse(
10       I                             mytime,       I                             mytime,
11       I                             myiter,       I                             myiter,
# Line 28  c     ================================== Line 27  c     ==================================
27    
28        implicit none        implicit none
29    
 #ifdef ALLOW_OBCSE_CONTROL  
   
30  c     == global variables ==  c     == global variables ==
31    #ifdef ALLOW_OBCSE_CONTROL
32  #include "EEPARAMS.h"  #include "EEPARAMS.h"
33  #include "SIZE.h"  #include "SIZE.h"
34  #include "PARAMS.h"  #include "PARAMS.h"
35  #include "GRID.h"  #include "GRID.h"
36  #include "OBCS.h"  c#include "OBCS_PARAMS.h"
37    #include "OBCS_GRID.h"
38    #include "OBCS_FIELDS.h"
39    
40  #include "ctrl.h"  #include "ctrl.h"
41  #include "ctrl_dummy.h"  #include "ctrl_dummy.h"
42  #include "optim.h"  #include "optim.h"
43    #endif /* ALLOW_OBCSE_CONTROL */
44    
45  c     == routine arguments ==  c     == routine arguments ==
   
46        _RL     mytime        _RL     mytime
47        integer myiter        integer myiter
48        integer mythid        integer mythid
49    
50    #ifdef ALLOW_OBCSE_CONTROL
51  c     == local variables ==  c     == local variables ==
52    
53        integer bi,bj        integer bi,bj
# Line 173  cgg   & Line 173  cgg   &
173           enddo           enddo
174          enddo          enddo
175         endif         endif
176          
177         if ( (obcsefirst) .or. (obcsechanged)) then         if ( (obcsefirst) .or. (obcsechanged)) then
178            
179          do bj = jtlo,jthi          do bj = jtlo,jthi
180           do bi = itlo,ithi           do bi = itlo,ithi
181            do j = jmin,jmax            do j = jmin,jmax
# Line 186  cgg   & Line 186  cgg   &
186            enddo            enddo
187           enddo           enddo
188          enddo          enddo
189            
190          call active_read_yz( fnameobcse, tmpfldyz,          call active_read_yz( fnameobcse, tmpfldyz,
191       &                       (obcsecount1-1)*nobcs+iobcs,       &                       (obcsecount1-1)*nobcs+iobcs,
192       &                       doglobalread, ladinit, optimcycle,       &                       doglobalread, ladinit, optimcycle,
# Line 241  cgg   & Line 241  cgg   &
241           enddo           enddo
242          enddo          enddo
243         endif         endif
244          
245  c--   Add control to model variable.  c--   Add control to model variable.
246         do bj = jtlo,jthi         do bj = jtlo,jthi
247          do bi = itlo,ithi          do bi = itlo,ithi
# Line 278  c--   Calculate mask for tracer cells (0 Line 278  c--   Calculate mask for tracer cells (0
278           enddo           enddo
279          enddo          enddo
280         enddo         enddo
281            
282  C--   End over iobcs loop  C--   End over iobcs loop
283        enddo        enddo
284    
 #else /* ALLOW_OBCSE_CONTROL undefined */  
   
 c     == routine arguments ==  
   
       _RL     mytime  
       integer myiter  
       integer mythid  
   
 c--   CPP flag ALLOW_OBCSE_CONTROL undefined.  
   
285  #endif /* ALLOW_OBCSE_CONTROL */  #endif /* ALLOW_OBCSE_CONTROL */
286    
287          return
288        end        end
   
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22