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

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

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

revision 1.5 by heimbach, Tue Jan 21 19:20:52 2003 UTC revision 1.6 by heimbach, Thu Oct 2 21:34:45 2003 UTC
# Line 52  c     == end of interface == Line 52  c     == end of interface ==
52        itlo = mybxlo(mythid)        itlo = mybxlo(mythid)
53        ithi = mybxhi(mythid)        ithi = mybxhi(mythid)
54    
55  #ifdef ALLOW_COST_VECTOR  #if (defined (ALLOW_COST_VECTOR))
56    
57        CALL COST_VECTOR (myThid)        CALL COST_VECTOR (myThid)
58    
59        do bj = jtlo,jthi  #elif (defined (ALLOW_COST_STATE_FINAL))
60          do bi = itlo,ithi  
61            do i = 1,sNx        CALL COST_STATE_FINAL (myThid)
             print*,' --> objf_vector(i,bi,bj)  = ',  
      &            objf_vector(i,bi,bj)  
           end do  
         end do  
       end do  
62    
63  #else /* ALLOW_COST_VECTOR undef */  #else /* ALLOW_COST_VECTOR undef */
64    
# Line 90  c--   Sum up all contributions. Line 85  c--   Sum up all contributions.
85          enddo          enddo
86        enddo        enddo
87    
88        print*,' fc = ', fc        print*,' local fc = ', fc
89    
90  c--   Do global summation.  c--   Do global summation.
91        _GLOBAL_SUM_R8( fc , myThid )        _GLOBAL_SUM_R8( fc , myThid )
92    
93  #endif /* ALLOW_COST_VECTOR */  #endif /* ALLOW_COST_VECTOR */
94    
95          print*,' global fc = ', fc
96    
97  c--   set averaging freq. to zero to avoid re-write of  c--   set averaging freq. to zero to avoid re-write of
98  c--   averaged fields in reverse checkpointing loops  c--   averaged fields in reverse checkpointing loops
99        taveFreq = 0.        taveFreq = 0.
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22