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

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

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

revision 1.8 by jmc, Tue Sep 18 20:16:34 2012 UTC revision 1.9 by gforget, Thu Oct 9 00:50:16 2014 UTC
# Line 33  c     == global variables == Line 33  c     == global variables ==
33  # include "OBCS_GRID.h"  # include "OBCS_GRID.h"
34  #endif  #endif
35    
36  #include "cal.h"  #ifdef ALLOW_CAL
37  #include "ecco_cost.h"  # include "cal.h"
38  #include "CTRL_SIZE.h"  #endif
39  #include "ctrl.h"  #ifdef ALLOW_ECCO
40  #include "ctrl_dummy.h"  # include "ecco_cost.h"
41  #include "optim.h"  #endif
42    #ifdef ALLOW_CTRL
43    # include "CTRL_SIZE.h"
44    # include "ctrl.h"
45    # include "ctrl_dummy.h"
46    # include "optim.h"
47    # include "CTRL_OBCS.h"
48    #endif
49    
50  c     == routine arguments ==  c     == routine arguments ==
51    
# Line 46  c     == routine arguments == Line 53  c     == routine arguments ==
53        _RL     mytime        _RL     mytime
54        integer mythid        integer mythid
55    
56    #if (defined (ALLOW_CTRL) && \
57         defined (ALLOW_OBCS) && \
58         defined (ALLOW_ECCO))
59    
60  c     == local variables ==  c     == local variables ==
61    
62        integer bi,bj        integer bi,bj
# Line 531  c--   End of loop over records. Line 542  c--   End of loop over records.
542    
543  #endif  #endif
544    
545    #endif /* ALLOW_CTRL, ALLOW_OBCS and ALLOW_ECCO */
546    
547        return        return
548        end        end
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22