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

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

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

revision 1.2 by heimbach, Tue Apr 10 22:35:26 2001 UTC revision 1.3 by heimbach, Tue Nov 20 21:06:48 2001 UTC
# Line 30  C     myThid - Thread number for this in Line 30  C     myThid - Thread number for this in
30    
31  #ifdef ALLOW_COST_TEST  #ifdef ALLOW_COST_TEST
32  C     == Local variables  C     == Local variables
       _RS maskC (1-OLx:sNx+OLx,1-OLy:sNy+OLy)  
33        _RL thetaRef        _RL thetaRef
34    
35        integer i, j, k        integer i, j, k
# Line 53  ce    some reference temperature Line 52  ce    some reference temperature
52  C--   Calculate mask for tracer cells  (0 => land, 1 => water)  C--   Calculate mask for tracer cells  (0 => land, 1 => water)
53        k=1        k=1
54    
       do bj = jtlo,jthi  
         do bi = itlo,ithi  
           do j=1,sNy  
             do i=1,sNx  
               maskC(i,j) = 1.  
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) maskC(i,j)=0.  
             end do  
           end do  
         end do  
       end do  
   
55  C--   Calculate cost function on tile of this instance  C--   Calculate cost function on tile of this instance
56        do bj = jtlo,jthi        do bj = jtlo,jthi
57          do bi = itlo,ithi          do bi = itlo,ithi
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22