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

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

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

revision 1.1 by heimbach, Thu Nov 6 22:10:07 2003 UTC revision 1.2 by heimbach, Mon Oct 11 16:38:53 2004 UTC
# Line 21  c     ================================== Line 21  c     ==================================
21        implicit none        implicit none
22    
23  c     == global variables ==  c     == global variables ==
 #include "SIZE.h"  
 #include "EEPARAMS.h"  
   
 #include "cal.h"  
 #include "ctrl.h"  
24    
25  c     == routine arguments ==  c     == routine arguments ==
26    
# Line 34  c     == routine arguments == Line 29  c     == routine arguments ==
29        integer mythid        integer mythid
30    
31  c     == local variables ==  c     == local variables ==
32        integer startrec  
       integer endrec  
33    
34  c     == end of interface ==  c     == end of interface ==
35    
36  #if (defined (ALLOW_OBCSN_COST_CONTRIBUTION) && \  #ifdef ALLOW_OBCSN_COST_CONTRIBUTION
37       defined (ALLOW_OBCSN_CONTROL))        call cost_obcsn ( myiter, mytime, mythid )
 cgg   North boundary contribution to cost function.  
       startrec = ncvarrecstart(11 )  
       endrec   = ncvarrecsend(11 )  
       call cost_obcsn ( myiter, mytime,  
      &                   startrec,endrec, mythid )  
 #endif  
 #if (defined (ALLOW_OBCSS_COST_CONTRIBUTION) && \  
      defined (ALLOW_OBCSS_CONTROL))  
 cgg   South boundary contribution to cost function.  
       startrec = ncvarrecstart(12 )  
       endrec   = ncvarrecsend(12 )  
       call cost_obcss ( myiter, mytime,  
      &                   startrec,endrec, mythid )  
38  #endif  #endif
39    
40  #if (defined (ALLOW_OBCSW_COST_CONTRIBUTION) && \  #ifdef ALLOW_OBCSS_COST_CONTRIBUTION
41       defined (ALLOW_OBCSW_CONTROL))        call cost_obcss ( myiter, mytime, mythid )
 cgg   West boundary contribution to cost function.  
       startrec = ncvarrecstart(13 )  
       endrec   = ncvarrecsend(13 )  
       call cost_obcsw ( myiter, mytime,  
      &                   startrec,endrec, mythid )  
42  #endif  #endif
43    
44  #if (defined (ALLOW_OBCSE_COST_CONTRIBUTION) && \  #ifdef ALLOW_OBCSW_COST_CONTRIBUTION
45       defined (ALLOW_OBCSE_CONTROL))        call cost_obcsw ( myiter, mytime, mythid )
 cgg   East boundary contribution to cost function.  
       startrec = ncvarrecstart(14 )  
       endrec   = ncvarrecsend(14 )  
       call cost_obcse ( myiter, mytime,  
      &                  startrec,endrec, mythid )  
46  #endif  #endif
47    
48  #ifdef OBCS_VOLFLUX_COST_CONTRIBUTION  #ifdef ALLOW_OBCSE_COST_CONTRIBUTION
49        call cost_obcsvol ( myiter,mytime,        call cost_OBCSE ( myiter, mytime, mythid )
      &                    startrec, endrec, mythid)  
50  #endif  #endif
51    
 Cgg ( Ageostrophic calculation uses *bar* fields not  
 cgg   calculated until the end of the run.  
 cgg   Move to ecco_cost.hyd.  
 Cgg(#ifdef OBCS_AGEOS_COST_CONTRIBUTION  
 cgg      call cost_obcs_ageos ( myiter,mytime, mythid)  
 Cgg(#endif  
52        end        end
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22