/[MITgcm]/MITgcm/pkg/seaice/seaice_cost_weights.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_cost_weights.F

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

revision 1.1 by heimbach, Thu Sep 1 05:34:31 2005 UTC revision 1.2 by heimbach, Thu Sep 1 14:23:45 2005 UTC
# Line 31  c     == routine arguments == Line 31  c     == routine arguments ==
31    
32        integer  mythid        integer  mythid
33    
34    #ifdef ALLOW_COST
35  c     == local variables ==  c     == local variables ==
36    
37        integer bi,bj        integer bi,bj
# Line 63  c     == end of interface == Line 64  c     == end of interface ==
64        imin = 1-olx        imin = 1-olx
65        imax = snx+olx        imax = snx+olx
66    
       do bj = jtlo,jthi  
         do bi = itlo,ithi  
           do j = jmin,jmax  
             do i = imin,imax  
               wsmrarea (i,j,bi,bj) = 0. _d 0  
             enddo  
           enddo  
         enddo  
       enddo  
   
   
67  c--   Define frame.  c--   Define frame.
68        do j = jmin,jmax        do j = jmin,jmax
69          do i = imin,imax          do i = imin,imax
# Line 88  c--       North/South and West/East edge Line 78  c--       North/South and West/East edge
78        enddo        enddo
79    
80  #ifdef ALLOW_SEAICE_COST_SMR_AREA  #ifdef ALLOW_SEAICE_COST_SMR_AREA
81    
82          do bj = jtlo,jthi
83            do bi = itlo,ithi
84              do j = jmin,jmax
85                do i = imin,imax
86                  wsmrarea (i,j,bi,bj) = 0. _d 0
87                enddo
88              enddo
89            enddo
90          enddo
91  c--    c--  
92        nnz   = 1        nnz   = 1
93        irec  = 1        irec  = 1
# Line 131  c-- Line 131  c--
131        enddo        enddo
132  #endif /* ALLOW_SEAICE_COST_SMR_AREA */  #endif /* ALLOW_SEAICE_COST_SMR_AREA */
133    
134    #endif
135    
136        end        end
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22