/[MITgcm]/MITgcm/pkg/ecco/ecco_cost_init_varia.F
ViewVC logotype

Diff of /MITgcm/pkg/ecco/ecco_cost_init_varia.F

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

revision 1.16 by heimbach, Sat Feb 6 02:43:03 2010 UTC revision 1.17 by gforget, Tue Feb 16 23:33:37 2010 UTC
# Line 141  c--   Initialize the tiled cost function Line 141  c--   Initialize the tiled cost function
141              objf_gencost(bi,bj,k)    = 0. _d 0              objf_gencost(bi,bj,k)    = 0. _d 0
142            enddo            enddo
143  #endif  #endif
144              do k=1,NUSERCOST
145              objf_usercost(k,bi,bj)    = 0. _d 0
146              enddo
147            do k=1,NSSHV4COST            do k=1,NSSHV4COST
148            objf_sshv4cost(k,bi,bj)    = 0. _d 0            objf_sshv4cost(k,bi,bj)    = 0. _d 0
149            enddo            enddo
# Line 205  c Line 208  c
208              num_gencost(bi,bj,k)    = 0. _d 0              num_gencost(bi,bj,k)    = 0. _d 0
209            enddo            enddo
210  #endif  #endif
211              do k=1,NUSERCOST
212              num_usercost(k,bi,bj)    = 0. _d 0
213              enddo
214            do k=1,NSSHV4COST            do k=1,NSSHV4COST
215            num_sshv4cost(k,bi,bj)    = 0. _d 0            num_sshv4cost(k,bi,bj)    = 0. _d 0
216            enddo            enddo
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22