/[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.4 by heimbach, Tue Mar 23 15:05:46 2010 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"
47    #  include "SEAICE_SIZE.h"
48  #  include "SEAICE_PARAMS.h"  #  include "SEAICE_PARAMS.h"
49  # endif  # endif
50  #endif  #endif
# Line 51  c     == routine arguments == Line 63  c     == routine arguments ==
63    
64        _RL localobs   (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy)        _RL localobs   (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy)
65        _RL localweight(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL localweight(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
66        _RL localmask  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RS localmask  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
67        _RL xx_localbar_mean_dummy        _RL xx_localbar_mean_dummy
68        _RL xx_areabar_mean_dummy        _RL xx_areabar_mean_dummy
69        _RL mult_local        _RL mult_local
# Line 67  c     == routine arguments == Line 79  c     == routine arguments ==
79        character*(MAX_LEN_FNAM) localbarfile        character*(MAX_LEN_FNAM) localbarfile
80        character*(MAX_LEN_FNAM) localobsfile        character*(MAX_LEN_FNAM) localobsfile
81    
82  #ifdef ALLOW_COST  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
83  c     == local variables ==  c     == local variables ==
84    
85        integer bi,bj        integer bi,bj
# Line 93  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 104  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.4  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22