/[MITgcm]/MITgcm_contrib/SOSE/BoxAdj/code_ad/ctrl_getobcse.F
ViewVC logotype

Diff of /MITgcm_contrib/SOSE/BoxAdj/code_ad/ctrl_getobcse.F

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

revision 1.3 by mmazloff, Wed Jan 19 12:45:02 2011 UTC revision 1.4 by mmazloff, Wed Jan 19 12:47:11 2011 UTC
# Line 248  cih Line 248  cih
248       &                         doglobalread, ladinit, optimcycle,       &                         doglobalread, ladinit, optimcycle,
249       &                         mythid, xx_obcse_dummy )       &                         mythid, xx_obcse_dummy )
250  CMM  CMM
251  #ifdef CTRL_OBCS_MODES  #ifdef ALLOW_OBCS_CONTROL_MODES
252  cih  cih
253            if ( optimcycle .ge. 0) then              if ( optimcycle .ge. 0) then  
254  cih    If normal velocity                  cih    If normal velocity                
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22