106 |
do j = jmin,jmax |
do j = jmin,jmax |
107 |
do i = imin,imax |
do i = imin,imax |
108 |
c Heat flux. |
c Heat flux. |
109 |
qnet(i,j,bi,bj) = exf_outscal_hfl*hflux(i,j,bi,bj) |
qnet(i,j,bi,bj) = exf_outscal_hflux*hflux(i,j,bi,bj) |
110 |
enddo |
enddo |
111 |
enddo |
enddo |
112 |
|
|
114 |
do j = jmin,jmax |
do j = jmin,jmax |
115 |
do i = imin,imax |
do i = imin,imax |
116 |
c Salt flux. |
c Salt flux. |
117 |
empmr(i,j,bi,bj)= exf_outscal_sfl*sflux(i,j,bi,bj) |
empmr(i,j,bi,bj)= exf_outscal_sflux*sflux(i,j,bi,bj) |
118 |
enddo |
enddo |
119 |
enddo |
enddo |
120 |
|
|
141 |
enddo |
enddo |
142 |
do j = jmin,jmax |
do j = jmin,jmax |
143 |
do i = imin,imax |
do i = imin,imax |
144 |
fu(i,j,bi,bj) = exf_outscal_ust*ustress(i,j,bi,bj) |
fu(i,j,bi,bj) = exf_outscal_ustress*ustress(i,j,bi,bj) |
145 |
enddo |
enddo |
146 |
enddo |
enddo |
147 |
|
|
168 |
enddo |
enddo |
169 |
do j = jmin,jmax |
do j = jmin,jmax |
170 |
do i = imin,imax |
do i = imin,imax |
171 |
fv(i,j,bi,bj) = exf_outscal_vst*vstress(i,j,bi,bj) |
fv(i,j,bi,bj) = exf_outscal_vstress*vstress(i,j,bi,bj) |
172 |
enddo |
enddo |
173 |
enddo |
enddo |
174 |
|
|
176 |
c Short wave radiative flux. |
c Short wave radiative flux. |
177 |
do j = jmin,jmax |
do j = jmin,jmax |
178 |
do i = imin,imax |
do i = imin,imax |
179 |
qsw(i,j,bi,bj) = exf_outscal_swf*swflux(i,j,bi,bj) |
qsw(i,j,bi,bj) = exf_outscal_swflux*swflux(i,j,bi,bj) |
180 |
enddo |
enddo |
181 |
enddo |
enddo |
182 |
#endif |
#endif |