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

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

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

revision 1.2 by heimbach, Tue Dec 13 16:15:32 2005 UTC revision 1.3 by heimbach, Mon Dec 19 23:29:25 2005 UTC
# Line 76  c Line 76  c
76  c  c
77  #ifdef ALLOW_COST_STATE_FINAL  #ifdef ALLOW_COST_STATE_FINAL
78              do j=1,sNy              do j=1,sNy
79                do i=1,sNx               do i=1,sNx
80                  objf_state_final(i,j,bi,bj,1) = 0. _d 0                do k=1,4*Nr
81                  objf_state_final(i,j,bi,bj,2) = 0. _d 0                  objf_state_final(i,j,bi,bj,k) = 0. _d 0
82                  enddo
83                  objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0
84  cph No init. of cost_state_final here,  cph No init. of cost_state_final here,
85  cph because we need it in ADM*TLM  cph because we need it in ADM*TLM
86                end do                end do
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22