Parent Directory | Revision Log | Revision Graph | Patch
revision 1.4 by adcroft, Wed May 5 14:52:49 1999 UTC | revision 1.5 by adcroft, Tue May 18 18:01:13 1999 UTC | |
---|---|---|
# | Line 155 C Add heat in top-layer | Line 155 C Add heat in top-layer |
155 | ENDDO | ENDDO |
156 | ENDIF | ENDIF |
157 | ||
158 | #ifdef SHORTWAVE_HEATING | |
159 | C Penetrating SW radiation | |
160 | DO j=jMin,jMax | |
161 | DO i=iMin,iMax | |
162 | gT(i,j,k,bi,bj) = gT(i,j,k,bi,bj) | |
163 | & - maskC(i,j)*Qsw(i,j,bi,bj)*swfracb(k) | |
164 | & *recip_Cp*recip_rhoNil*recip_dRf(k) | |
165 | ENDDO | |
166 | ENDDO | |
167 | #endif | |
168 | ||
169 | RETURN | RETURN |
170 | END | END |
171 | CStartOfInterface | CStartOfInterface |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |