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

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

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

revision 1.5 by heimbach, Mon Oct 27 22:32:55 2003 UTC revision 1.6 by heimbach, Tue Oct 26 20:10:25 2004 UTC
# Line 63  c     == end of interface == Line 63  c     == end of interface ==
63          end do          end do
64  #endif  #endif
65  #ifdef ALLOW_COST_STATE_FINAL  #ifdef ALLOW_COST_STATE_FINAL
 c        do k=1,nr  
66           do j=1,sNy           do j=1,sNy
67            do i=1,sNx            do i=1,sNx
68             objf_state_final(i,j,bi,bj) = 0. _d 0             objf_state_final(i,j,bi,bj,1) = 0. _d 0
69               objf_state_final(i,j,bi,bj,2) = 0. _d 0
70  cph No init. of cost_state_final here,  cph No init. of cost_state_final here,
71  cph because we need it in ADM*TLM  cph because we need it in ADM*TLM
72            end do            end do
73           end do           end do
 c        end do  
74  #endif  #endif
75          enddo          enddo
76        enddo        enddo
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22