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

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

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

revision 1.8 by gforget, Tue Oct 2 01:40:03 2012 UTC revision 1.9 by atn, Sun Jan 26 06:10:10 2014 UTC
# Line 39  c     == global variables == Line 39  c     == global variables ==
39  #include "optim.h"  #include "optim.h"
40  #include "DYNVARS.h"  #include "DYNVARS.h"
41  #include "cal.h"  #include "cal.h"
42    #ifdef ALLOW_SMOOTH
43    #include "SMOOTH.h"
44    #endif
45    
46  c     == routine arguments ==  c     == routine arguments ==
47    
# Line 279  c -------------------------------------- Line 282  c --------------------------------------
282  #endif  #endif
283    
284           call smooth_hetero2d(anom_sst,maskc,           call smooth_hetero2d(anom_sst,maskc,
285       &     gencost_scalefile(igen_amsre_lsc),300,mythid)       &     gencost_scalefile(igen_amsre_lsc),smooth2Ddiffnbt,mythid)
286    
287  #ifdef ALLOW_GENCOST_SSTV4_OUTPUT  #ifdef ALLOW_GENCOST_SSTV4_OUTPUT
288           call smooth_hetero2d(obs_sst,maskc,           call smooth_hetero2d(obs_sst,maskc,
289       &     gencost_scalefile(igen_amsre_lsc),300,mythid)       &     gencost_scalefile(igen_amsre_lsc),smooth2Ddiffnbt,mythid)
290    
291           write(fname2(1:80),'(1a)') 'sstdiff_smooth'           write(fname2(1:80),'(1a)') 'sstdiff_smooth'
292           call mdswritefield(fname2,32,.false.,'RL',           call mdswritefield(fname2,32,.false.,'RL',
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22