One pathway for Atlantic waters entering the Arctic Ocean is via the Barent Sea. The loss of heat while traversing the Barents Sea greatly modifies this water mass prior to its entry into the Arctic Ocean proper. To investigate the amount of heat lost, AOMIP groups are asked to supply the following model data:
ahe=0.
do j=1,max j index
do i=1,max i index
if((alat(i,j).le.77.5.and.alat(i,j).ge.70.).and.
+ (alon(i,j).ge.20.and.alon(i,j).le.50.)) then
ahe=ahe+flx(i,j)*art(i,j)*1.E-12
c flux(i,j) is your average heat flux (W/m2) during the year
c and art(i,j) is the area of your grid box (in m2)
endif
enddo
enddo
write(6,*) 'AVE HEAT ',ahe,' TW'
|
. © David Holland. All Rights Reserved. |
|
If you would like further information concerning any of the above topics please send email . |