/[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.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 3  C $Header$ Line 3  C $Header$
3  #include "COST_CPPOPTIONS.h"  #include "COST_CPPOPTIONS.h"
4    
5    
6        subroutine cost_averagesinit( mythid )        subroutine cost_AveragesInit(
7         I                              mythid
8         &                            )
9    
10  c     ==================================================================  c     ==================================================================
11  c     SUBROUTINE cost_averagesinit  c     SUBROUTINE cost_AveragesInit
12  c     ==================================================================  c     ==================================================================
13  c  c
14  c     o Set average fields for temperature, salinity, surface pressure,  c     o Set average fields for temperature, salinity, surface pressure,
# Line 21  c              - Restructured the code i Line 23  c              - Restructured the code i
23  c                for the MITgcmUV.  c                for the MITgcmUV.
24  c  c
25  c     ==================================================================  c     ==================================================================
26  c     SUBROUTINE cost_averagesinit  c     SUBROUTINE cost_AveragesInit
27  c     ==================================================================  c     ==================================================================
28    
29        implicit none        implicit none
# Line 74  c--       Initialise surface pressure av Line 76  c--       Initialise surface pressure av
76  #endif  #endif
77    
78  #if (defined (ALLOW_THETA_COST_CONTRIBUTION) || \  #if (defined (ALLOW_THETA_COST_CONTRIBUTION) || \
      defined (ALLOW_SST_COST_CONTRIBUTION) || \  
79       defined (ALLOW_CTDT_COST_CONTRIBUTION) || \       defined (ALLOW_CTDT_COST_CONTRIBUTION) || \
      defined (ALLOW_CTDTCLIM_COST_CONTRIBUTION) || \  
80       defined (ALLOW_XBT_COST_CONTRIBUTION) || \       defined (ALLOW_XBT_COST_CONTRIBUTION) || \
81       defined (ALLOW_DRIFT_COST_CONTRIBUTION) || \       defined (ALLOW_DRIFT_COST_CONTRIBUTION) || \
82       defined (ALLOW_OBCS_COST_CONTRIBUTION))       defined (ALLOW_OBCS_COST_CONTRIBUTION))
# Line 89  c--       Initialise temperature average Line 89  c--       Initialise temperature average
89              enddo              enddo
90            enddo            enddo
91            xx_tbar_mean_dummy = 0. _d 0            xx_tbar_mean_dummy = 0. _d 0
92    #else
93    #ifdef ALLOW_SST_COST_CONTRIBUTION
94    c--       Initialise temperature average (2d).
95              k = 1
96              do j = jmin,jmax
97                do i =  imin,imax
98                  tbar(i,j,bi,bj) = 0. _d 0
99                enddo
100              enddo
101              xx_tbar_mean_dummy = 0. _d 0
102    #endif
103  #endif  #endif
104    
105  #if (defined (ALLOW_SALT_COST_CONTRIBUTION) || \  #if (defined (ALLOW_SALT_COST_CONTRIBUTION) || \
      defined (ALLOW_SSS_COST_CONTRIBUTION) || \  
106       defined (ALLOW_CTDS_COST_CONTRIBUTION) || \       defined (ALLOW_CTDS_COST_CONTRIBUTION) || \
      defined (ALLOW_CTDSCLIM_COST_CONTRIBUTION) || \  
107       defined (ALLOW_DRIFT_COST_CONTRIBUTION) || \       defined (ALLOW_DRIFT_COST_CONTRIBUTION) || \
108       defined (ALLOW_OBCS_COST_CONTRIBUTION))       defined (ALLOW_OBCS_COST_CONTRIBUTION))
109  c--       Initialise salt average.  c--       Initialise salt average.
# Line 106  c--       Initialise salt average. Line 115  c--       Initialise salt average.
115              enddo              enddo
116            enddo            enddo
117            xx_sbar_mean_dummy = 0. _d 0            xx_sbar_mean_dummy = 0. _d 0
118    #else
119    #ifdef ALLOW_SSS_COST_CONTRIBUTION
120    c--       Initialise salinity average (2d).
121              k = 1
122              do j = jmin,jmax
123                do i =  imin,imax
124                  sbar(i,j,bi,bj) = 0. _d 0
125                enddo
126              enddo
127              xx_sbar_mean_dummy = 0. _d 0
128    #endif          
129  #endif  #endif
130    
131  #if (defined (ALLOW_DRIFTER_COST_CONTRIBUTION) || \  #if (defined (ALLOW_DRIFTER_COST_CONTRIBUTION) || \
132       defined (ALLOW_CURMTR_COST_CONTRIBUTION) || \       defined (ALLOW_OBCS_COST_CONTRIBUTION))
      defined (OBCS_AGEOS_COST_CONTRIBUTION))  
133  c--       Initialise uvel, vvel average.  c--       Initialise uvel, vvel average.
134            do k = 1,nr            do k = 1,nr
135              do j = jmin,jmax              do j = jmin,jmax
# Line 166  c--       Initialise salinity average (2 Line 185  c--       Initialise salinity average (2
185              enddo              enddo
186            enddo              enddo  
187            xx_sflux_mean_dummy = 0. _d 0            xx_sflux_mean_dummy = 0. _d 0
188  #endif  #endif    
189    
190          enddo          enddo
191        enddo        enddo
192    
 #ifdef ALLOW_COST_INI_FIN  
       xx_theta_ini_fin_dummy = 0. _d 0  
       xx_salt_ini_fin_dummy = 0. _d 0  
 #endif  
   
193        return        return
194        end        end
195    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22