/[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.1 by heimbach, Thu Jan 17 17:03:34 2002 UTC revision 1.3 by heimbach, Thu Oct 2 21:34:45 2003 UTC
# Line 48  C      parameter ( kmaxdepth = 14 ) Line 48  C      parameter ( kmaxdepth = 14 )
48  C------------------------------------------------------  C------------------------------------------------------
49  C     Accumulate meridionally integrated transports  C     Accumulate meridionally integrated transports
50  C     Note bar(V)*bar(T) not bar(VT)  C     Note bar(V)*bar(T) not bar(VT)
51  C     Attention pYFaceA [m^2*gravity*rhonil]  C     Attention pYFaceA [m^2*gravity*rhoConst]
52  C------------------------------------------------------  C------------------------------------------------------
53    
54        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
# 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.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22