1 |
C $Header: /u/gcmpack/MITgcm/pkg/seaice/seaice_cost_init_varia.F,v 1.8 2012/07/06 23:07:23 jmc Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
#include "THSICE_OPTIONS.h" |
5 |
|
6 |
subroutine thsice_cost_init_varia( mythid ) |
7 |
|
8 |
c ================================================================== |
9 |
c SUBROUTINE thsice_cost_init_varia |
10 |
c ================================================================== |
11 |
c |
12 |
c ================================================================== |
13 |
c SUBROUTINE thsice_cost_init_varia |
14 |
c ================================================================== |
15 |
|
16 |
implicit none |
17 |
|
18 |
c == global variables == |
19 |
|
20 |
#include "EEPARAMS.h" |
21 |
#include "SIZE.h" |
22 |
#include "GRID.h" |
23 |
#ifdef ALLOW_COST |
24 |
# include "THSICE_COST.h" |
25 |
#endif |
26 |
|
27 |
c == routine arguments == |
28 |
|
29 |
integer mythid |
30 |
|
31 |
#ifdef ALLOW_COST |
32 |
c == local variables == |
33 |
|
34 |
integer bi,bj |
35 |
integer itlo,ithi |
36 |
integer jtlo,jthi |
37 |
|
38 |
logical exst |
39 |
|
40 |
c == external functions == |
41 |
|
42 |
c == end of interface == |
43 |
jtlo = myByLo(mythid) |
44 |
jthi = myByHi(mythid) |
45 |
itlo = myBxLo(mythid) |
46 |
ithi = myBxHi(mythid) |
47 |
|
48 |
c-- Initialize the tiled cost function contributions. |
49 |
do bj = jtlo,jthi |
50 |
do bi = itlo,ithi |
51 |
# ifdef ALLOW_COST |
52 |
objf_thsice(bi,bj) = 0. _d 0 |
53 |
num_thsice(bi,bj) = 0. _d 0 |
54 |
# endif |
55 |
enddo |
56 |
enddo |
57 |
|
58 |
#endif |
59 |
|
60 |
return |
61 |
end |