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

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

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

revision 1.2 by mlosch, Wed Sep 25 19:36:50 2002 UTC revision 1.3 by heimbach, Thu Oct 2 21:34:45 2003 UTC
# Line 76  C     &             * 0.5*(theta(i,j,k,b Line 76  C     &             * 0.5*(theta(i,j,k,b
76           end if           end if
77          end do          end do
78    
79            do i = 1,sNx
80               print*,' --> objf_vector(i,bi,bj)  = ',
81         &          objf_vector(i,bi,bj)
82            end do
83    
84         END DO         END DO
85        END DO        END DO
86    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22