/[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.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"
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    #ifdef ALLOW_SEAICE_COST_SMR_AREA
84    
85  c     == local variables ==  c     == local variables ==
86    
87        integer bi,bj        integer bi,bj
# Line 93  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 104  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 359  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.4  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22