/[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.10 by gforget, Mon Mar 23 21:04:59 2015 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 69  c     == routine arguments == Line 80  c     == routine arguments ==
80        character*(MAX_LEN_FNAM) localobsfile        character*(MAX_LEN_FNAM) localobsfile
81    
82  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
83    #ifdef ALLOW_SEAICE_COST_SMR_AREA
84    
85  c     == local variables ==  c     == local variables ==
86    
87        integer bi,bj        integer bi,bj
# Line 94  c     == local variables == Line 107  c     == local variables ==
107        _RL cmask (1-olx:snx+olx,1-oly:sny+oly,nnzobs)        _RL cmask (1-olx:snx+olx,1-oly:sny+oly,nnzobs)
108    
109        character*(128) fname1, fname2,fname3        character*(128) fname1, fname2,fname3
       character*(MAX_LEN_MBUF) msgbuf  
110    
111  cnew(  cnew(
112        _RL daytime        _RL daytime
# Line 105  cnew( Line 117  cnew(
117        integer middate(4)        integer middate(4)
118        integer yday, ymod        integer yday, ymod
119        integer md, dd, sd, ld, wd        integer md, dd, sd, ld, wd
       integer mody, modm  
       integer beginmodel, beginlocal  
120        logical exst        logical exst
121  cnew)  cnew)
122    
# Line 360  c--   End of second loop over records. Line 370  c--   End of second loop over records.
370    
371  c--   End of mult_local or localobsfile  c--   End of mult_local or localobsfile
372        endif        endif
373    
374    #endif /* ALLOW_SEAICE_COST_SMR_AREA */
375  #endif /* ifdef ALLOW_COST */  #endif /* ifdef ALLOW_COST */
376    
377        end        end
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22