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 |
|
|
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" |
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 |
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 |
|
|