/[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.3 by jmc, Mon Mar 22 00:57:19 2010 UTC revision 1.8 by gforget, Sat Oct 11 19:02:25 2014 UTC
# Line 27  c     == global variables == Line 27  c     == global variables ==
27  # include "cal.h"  # include "cal.h"
28  #endif  #endif
29  #ifdef ALLOW_COST  #ifdef ALLOW_COST
 # include "ecco_cost.h"  
30  # include "optim.h"  # include "optim.h"
31    # ifdef ALLOW_ECCO
32    #  include "ecco.h"
33    # endif
34  # ifdef ALLOW_SEAICE  # ifdef ALLOW_SEAICE
35  #  include "SEAICE_COST.h"  #  include "SEAICE_COST.h"
36    #  include "SEAICE_SIZE.h"
37  #  include "SEAICE_PARAMS.h"  #  include "SEAICE_PARAMS.h"
38  # endif  # endif
39  #endif  #endif
# Line 49  c     == routine arguments == Line 52  c     == routine arguments ==
52    
53        _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)
54        _RL localweight(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL localweight(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
55        _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)
56        _RL xx_localbar_mean_dummy        _RL xx_localbar_mean_dummy
57        _RL xx_areabar_mean_dummy        _RL xx_areabar_mean_dummy
58        _RL mult_local        _RL mult_local
# Line 65  c     == routine arguments == Line 68  c     == routine arguments ==
68        character*(MAX_LEN_FNAM) localbarfile        character*(MAX_LEN_FNAM) localbarfile
69        character*(MAX_LEN_FNAM) localobsfile        character*(MAX_LEN_FNAM) localobsfile
70    
71  #ifdef ALLOW_COST  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
72  c     == local variables ==  c     == local variables ==
73    
74        integer bi,bj        integer bi,bj
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22