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

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

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

revision 1.5 by heimbach, Thu Sep 20 18:23:33 2007 UTC revision 1.6 by heimbach, Thu Sep 20 22:01:37 2007 UTC
# Line 76  c--       Initialise surface pressure av Line 76  c--       Initialise surface pressure av
76            xx_psbar_mean_dummy = 0. _d 0            xx_psbar_mean_dummy = 0. _d 0
77  #endif  #endif
78    
79    #ifdef ALLOW_BP_COST_CONTRIBUTION
80    c--       Initialise surface pressure average.
81              do j = jmin,jmax
82                do i = imin,imax
83                  bpbar(i,j,bi,bj) = 0. _d 0
84                enddo
85              enddo
86    
87              xx_bpbar_mean_dummy = 0. _d 0
88    #endif
89    
90  #if (defined (ALLOW_THETA_COST_CONTRIBUTION) || \  #if (defined (ALLOW_THETA_COST_CONTRIBUTION) || \
91       defined (ALLOW_CTDT_COST_CONTRIBUTION) || \       defined (ALLOW_CTDT_COST_CONTRIBUTION) || \
92       defined (ALLOW_XBT_COST_CONTRIBUTION) || \       defined (ALLOW_XBT_COST_CONTRIBUTION) || \
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22