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

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

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

revision 1.9 by jmc, Tue Oct 9 00:02:51 2007 UTC revision 1.10 by jmc, Tue Apr 28 18:13:28 2009 UTC
# Line 145  c--         Determine the weights to be Line 145  c--         Determine the weights to be
145       &     fnamefld, tmpfld3d, irec, doglobalread,       &     fnamefld, tmpfld3d, irec, doglobalread,
146       &     ladinit, optimcycle, mythid, xx_theta_dummy )       &     ladinit, optimcycle, mythid, xx_theta_dummy )
147    
148          _EXCH_XYZ_R8(tmpfld3d, mythid)          _EXCH_XYZ_RL(tmpfld3d, mythid)
149    
150  c--     Loop over this thread's tiles.  c--     Loop over this thread's tiles.
151          do bj = jtlo,jthi          do bj = jtlo,jthi
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22