/[MITgcm]/MITgcm/pkg/cost/cost_init_varia.F
ViewVC logotype

Diff of /MITgcm/pkg/cost/cost_init_varia.F

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

revision 1.14 by heimbach, Sat Mar 30 01:25:44 2013 UTC revision 1.15 by jmc, Wed Nov 6 18:50:56 2013 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "COST_OPTIONS.h"  #include "COST_OPTIONS.h"
5    
6        subroutine cost_init_varia( mythid )        SUBROUTINE COST_INIT_VARIA( mythid )
7    
8  c     ==================================================================  c     ==================================================================
9  c     SUBROUTINE cost_init_varia  c     SUBROUTINE cost_init_varia
# Line 53  c     == end of interface == Line 53  c     == end of interface ==
53  c--   Initialize the tiled cost function contributions.  c--   Initialize the tiled cost function contributions.
54        do bj = jtlo,jthi        do bj = jtlo,jthi
55          do bi = itlo,ithi          do bi = itlo,ithi
56              tile_fc(bi,bj)   = 0. _d 0
57  #if ( !defined (ALLOW_ECCO) || !defined (ALLOW_COST_ATLANTIC) )  #if ( !defined (ALLOW_ECCO) || !defined (ALLOW_COST_ATLANTIC) )
58            objf_atl(bi,bj)  = 0. _d 0            objf_atl(bi,bj)  = 0. _d 0
59  #endif  #endif
# Line 71  c--   Initialize the tiled cost function Line 72  c--   Initialize the tiled cost function
72  #endif  #endif
73  c  c
74  #ifdef ALLOW_COST  #ifdef ALLOW_COST
75            do k=1,nr            do k=1,Nr
76              do j=1,sNy              do j=1,sNy
77                do i=1,sNx                do i=1,sNx
78                  cMeanTheta(i,j,k,bi,bj) = 0. _d 0                  cMeanTheta(i,j,k,bi,bj) = 0. _d 0
# Line 119  c--   Initialise the "global" parts of t Line 120  c--   Initialise the "global" parts of t
120    
121        _BARRIER        _BARRIER
122    
123        return        RETURN
124        end        END
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22