/[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.7 by mlosch, Mon Mar 14 17:31:37 2011 UTC revision 1.10 by jmc, Fri Aug 10 19:45:26 2012 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  #include "COST_CPPOPTIONS.h"  #include "ECCO_OPTIONS.h"
 #ifdef ALLOW_OBCS  
 # include "OBCS_OPTIONS.h"  
 #endif  
5    
6        subroutine cost_obcsvol(        subroutine cost_obcsvol(
7       I                       myiter,       I                       myiter,
# Line 34  c     == global variables == Line 31  c     == global variables ==
31  #include "GRID.h"  #include "GRID.h"
32  CML#include "DYNVARS.h"  CML#include "DYNVARS.h"
33  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
34  # include "OBCS.h"  c# include "OBCS_PARAMS.h"
35    # include "OBCS_GRID.h"
36  #endif  #endif
37    
38  #include "cal.h"  #include "cal.h"
39  #include "ecco_cost.h"  #include "ecco_cost.h"
40    #include "CTRL_SIZE.h"
41  #include "ctrl.h"  #include "ctrl.h"
42  #include "ctrl_dummy.h"  #include "ctrl_dummy.h"
43  #include "optim.h"  #include "optim.h"
# Line 78  c     == local variables == Line 77  c     == local variables ==
77    
78  #if (defined ALLOW_OBCSN_CONTROL || defined ALLOW_OBCSS_CONTROL)  #if (defined ALLOW_OBCSN_CONTROL || defined ALLOW_OBCSS_CONTROL)
79        _RL tmpfldxz (1-olx:snx+olx,nr,nsx,nsy)        _RL tmpfldxz (1-olx:snx+olx,nr,nsx,nsy)
80  #endif  #endif
81  #if (defined ALLOW_OBCSE_CONTROL || defined ALLOW_OBCSW_CONTROL)  #if (defined ALLOW_OBCSE_CONTROL || defined ALLOW_OBCSW_CONTROL)
82        _RL tmpfldyz (1-oly:sny+oly,nr,nsx,nsy)        _RL tmpfldyz (1-oly:sny+oly,nr,nsx,nsy)
83  #endif  #endif
# Line 361  c--   Do the global summation. Line 360  c--   Do the global summation.
360    
361        return        return
362        end        end
   
   
   
   
   
   
   
   
   
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22