49 |
itlo = mybxlo(mythid) |
itlo = mybxlo(mythid) |
50 |
ithi = mybxhi(mythid) |
ithi = mybxhi(mythid) |
51 |
|
|
52 |
|
#ifdef ALLOW_SEAICE |
53 |
|
CALL SEAICE_COST_FINAL (myThid) |
54 |
|
#endif |
55 |
|
|
56 |
#if (defined (ALLOW_ECCO)) |
#if (defined (ALLOW_ECCO)) |
57 |
CALL ECCO_COST_FINAL (myThid) |
CALL ECCO_COST_FINAL (myThid) |
58 |
|
|
77 |
do bj = jtlo,jthi |
do bj = jtlo,jthi |
78 |
do bi = itlo,ithi |
do bi = itlo,ithi |
79 |
|
|
80 |
write(standardmessageunit,'(A,E22.14)') |
write(standardmessageunit,'(A,D22.15)') |
81 |
& ' --> objf_test(bi,bj) = ', objf_test(bi,bj) |
& ' --> objf_test(bi,bj) = ', objf_test(bi,bj) |
82 |
write(standardmessageunit,'(A,E22.14)') |
write(standardmessageunit,'(A,D22.15)') |
83 |
& ' --> objf_tracer(bi,bj) = ', objf_tracer(bi,bj) |
& ' --> objf_tracer(bi,bj) = ', objf_tracer(bi,bj) |
84 |
write(standardmessageunit,'(A,E22.14)') |
write(standardmessageunit,'(A,D22.15)') |
85 |
& ' --> objf_atl(bi,bj) = ', objf_atl(bi,bj) |
& ' --> objf_atl(bi,bj) = ', objf_atl(bi,bj) |
86 |
|
|
87 |
fc = fc |
fc = fc |
91 |
enddo |
enddo |
92 |
enddo |
enddo |
93 |
|
|
94 |
write(standardmessageunit,'(A,E22.14)') ' local fc = ', fc |
write(standardmessageunit,'(A,D22.15)') ' local fc = ', fc |
95 |
|
|
96 |
c-- Do global summation. |
c-- Do global summation. |
97 |
_GLOBAL_SUM_R8( fc , myThid ) |
_GLOBAL_SUM_R8( fc , myThid ) |
98 |
|
|
99 |
write(standardmessageunit,'(A,E22.14)') ' global fc = ', fc |
write(standardmessageunit,'(A,D22.15)') ' global fc = ', fc |
100 |
|
|
101 |
#endif /* ALLOW_ECCO */ |
#endif /* ALLOW_ECCO */ |
102 |
|
|