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

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

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

revision 1.37 by atn, Sun Nov 8 03:12:56 2015 UTC revision 1.38 by gforget, Tue Mar 1 23:05:15 2016 UTC
# Line 415  c--     output model-data difference to Line 415  c--     output model-data difference to
415       &    WRITE_REC_XYZ_RL(fname3,localdifmeanOut,1,eccoiter,mythid)       &    WRITE_REC_XYZ_RL(fname3,localdifmeanOut,1,eccoiter,mythid)
416          endif          endif
417        endif        endif
418          if ( outlev.GT.1 ) then
419              il=ilnblnk(outname)
420              write(fname3(1:128),'(2a)') 'weight_', outname(1:il)
421              if ( nnzobs.EQ.1 ) CALL
422         &    WRITE_REC_XY_RL( fname3, localweight,irec, eccoiter, mythid )
423              if ( nnzobs.EQ.nr ) CALL
424         &    WRITE_REC_XYZ_RL( fname3, localweight,irec, eccoiter, mythid )
425          endif
426    
427    
428  #endif /* ALLOW_ECCO */  #endif /* ALLOW_ECCO */
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22