/[MITgcm]/MITgcm/pkg/seaice/seaice_cost_sss.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_cost_sss.F

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

revision 1.7 by heimbach, Fri Nov 9 22:15:18 2012 UTC revision 1.9 by gforget, Mon Oct 20 03:20:57 2014 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "SEAICE_OPTIONS.h"  #include "SEAICE_OPTIONS.h"
5    #ifdef ALLOW_ECCO
6    # include "ECCO_OPTIONS.h"
7    #endif
8    #ifdef ALLOW_CTRL
9    # include "CTRL_OPTIONS.h"
10    #endif
11    #ifdef ALLOW_COST
12    # include "COST_OPTIONS.h"
13    #endif
14    
15  c read the area dat file and compare against the averaged salinity file  c read the area dat file and compare against the averaged salinity file
16    
# Line 27  c     == global variables == Line 36  c     == global variables ==
36  # include "cal.h"  # include "cal.h"
37  #endif  #endif
38  #ifdef ALLOW_COST  #ifdef ALLOW_COST
39  # include "optim.h"  # ifdef ALLOW_CTRL
40    #  include "optim.h"
41    # endif
42  # ifdef ALLOW_ECCO  # ifdef ALLOW_ECCO
43  #  include "ecco_cost.h"  #  include "ecco.h"
44  # endif  # endif
45  # ifdef ALLOW_SEAICE  # ifdef ALLOW_SEAICE
46  #  include "SEAICE_COST.h"  #  include "SEAICE_COST.h"
# Line 94  c     == local variables == Line 105  c     == local variables ==
105        _RL cmask (1-olx:snx+olx,1-oly:sny+oly,nnzobs)        _RL cmask (1-olx:snx+olx,1-oly:sny+oly,nnzobs)
106    
107        character*(128) fname1, fname2,fname3        character*(128) fname1, fname2,fname3
       character*(MAX_LEN_MBUF) msgbuf  
108    
109  cnew(  cnew(
110        _RL daytime        _RL daytime
# Line 105  cnew( Line 115  cnew(
115        integer middate(4)        integer middate(4)
116        integer yday, ymod        integer yday, ymod
117        integer md, dd, sd, ld, wd        integer md, dd, sd, ld, wd
       integer mody, modm  
       integer beginmodel, beginlocal  
118        logical exst        logical exst
119  cnew)  cnew)
120    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.22