73 |
do bj = jtlo,jthi |
do bj = jtlo,jthi |
74 |
do bi = itlo,ithi |
do bi = itlo,ithi |
75 |
|
|
76 |
print*,' --> objf_test(bi,bj) =',objf_test(bi,bj) |
write(standardmessageunit,'(A,E22.14)') |
77 |
print*,' --> objf_tracer(bi,bj) =',objf_tracer(bi,bj) |
& ' --> objf_test(bi,bj) = ', objf_test(bi,bj) |
78 |
print*,' --> objf_atl(bi,bj) =',objf_atl(bi,bj) |
write(standardmessageunit,'(A,E22.14)') |
79 |
|
& ' --> objf_tracer(bi,bj) = ', objf_tracer(bi,bj) |
80 |
|
write(standardmessageunit,'(A,E22.14)') |
81 |
|
& ' --> objf_atl(bi,bj) = ', objf_atl(bi,bj) |
82 |
|
|
83 |
fc = fc |
fc = fc |
84 |
& + mult_test * objf_test(bi,bj) |
& + mult_test * objf_test(bi,bj) |
87 |
enddo |
enddo |
88 |
enddo |
enddo |
89 |
|
|
90 |
print*,' local fc = ', fc |
write(standardmessageunit,'(A,E22.14)') ' local fc = ', fc |
91 |
|
|
92 |
c-- Do global summation. |
c-- Do global summation. |
93 |
_GLOBAL_SUM_R8( fc , myThid ) |
_GLOBAL_SUM_R8( fc , myThid ) |
94 |
|
|
95 |
print*,' global fc = ', fc |
write(standardmessageunit,'(A,E22.14)') ' global fc = ', fc |
96 |
|
|
97 |
#endif /* ALLOW_ECCO */ |
#endif /* ALLOW_ECCO */ |
98 |
|
|