Parent Directory | Revision Log | Revision Graph | Patch
revision 1.11 by jmc, Fri Jul 16 01:20:57 2004 UTC | revision 1.12 by heimbach, Wed Jun 29 07:11:18 2005 UTC | |
---|---|---|
# | Line 194 c Short wave radiative flux. | Line 194 c Short wave radiative flux. |
194 | qsw(i,j,bi,bj) = exf_outscal_swflux*swflux(i,j,bi,bj) | qsw(i,j,bi,bj) = exf_outscal_swflux*swflux(i,j,bi,bj) |
195 | enddo | enddo |
196 | enddo | enddo |
C net heat flux = heat flux (except SW) + SW flux. | ||
do j = jmin,jmax | ||
do i = imin,imax | ||
qnet(i,j,bi,bj) = qnet(i,j,bi,bj) + qsw(i,j,bi,bj) | ||
enddo | ||
enddo | ||
197 | #endif | #endif |
198 | ||
199 | #ifdef ALLOW_CLIMSST_RELAXATION | #ifdef ALLOW_CLIMSST_RELAXATION |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |