Parent Directory | Revision Log | Revision Graph | Patch
revision 1.10 by mlosch, Mon Apr 19 22:30:46 2004 UTC | revision 1.11 by jmc, Fri Jul 16 01:20:57 2004 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 |
197 | C net heat flux = heat flux (except SW) + SW flux. | |
198 | do j = jmin,jmax | |
199 | do i = imin,imax | |
200 | qnet(i,j,bi,bj) = qnet(i,j,bi,bj) + qsw(i,j,bi,bj) | |
201 | enddo | |
202 | enddo | |
203 | #endif | #endif |
204 | ||
205 | #ifdef ALLOW_CLIMSST_RELAXATION | #ifdef ALLOW_CLIMSST_RELAXATION |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |