167 |
C LONG WAVE RADIATION |
C LONG WAVE RADIATION |
168 |
C =================== |
C =================== |
169 |
IF ( alarm('radlw') ) THEN |
IF ( alarm('radlw') ) THEN |
170 |
|
print *,' calling lw ' |
171 |
|
|
172 |
c Set Reference Ground Temperature |
c Set Reference Ground Temperature |
173 |
c -------------------------------- |
c -------------------------------- |
206 |
enddo |
enddo |
207 |
enddo |
enddo |
208 |
print *,' radswg ',tempij |
print *,' radswg ',tempij |
209 |
do j = 1,jm |
c do j = 1,jm |
210 |
do i = 1,im |
c do i = 1,im |
211 |
tempij(i,j) = st4(i,j) |
c tempij(i,j) = st4(i,j) |
212 |
enddo |
c enddo |
213 |
enddo |
c enddo |
214 |
print *,' st4 ',tempij |
c print *,' st4 ',tempij |
215 |
do j = 1,jm |
c do j = 1,jm |
216 |
do i = 1,im |
c do i = 1,im |
217 |
tempij(i,j) = dst4(i,j) |
c tempij(i,j) = dst4(i,j) |
218 |
enddo |
c enddo |
219 |
enddo |
c enddo |
220 |
print *,' dst4 ',tempij |
c print *,' dst4 ',tempij |
221 |
do j = 1,jm |
c do j = 1,jm |
222 |
do i = 1,im |
c do i = 1,im |
223 |
tempij(i,j) = radlwg(i,j) |
c tempij(i,j) = radlwg(i,j) |
224 |
enddo |
c enddo |
225 |
enddo |
c enddo |
226 |
print *,' radlwg ',tempij |
c print *,' radlwg ',tempij |
227 |
do j = 1,jm |
c do j = 1,jm |
228 |
do i = 1,im |
c do i = 1,im |
229 |
tempij(i,j) = fdifpar(i,j) |
c tempij(i,j) = fdifpar(i,j) |
230 |
enddo |
c enddo |
231 |
enddo |
c enddo |
232 |
print *,' fdifpar ',tempij |
c print *,' fdifpar ',tempij |
233 |
do j = 1,jm |
c do j = 1,jm |
234 |
do i = 1,im |
c do i = 1,im |
235 |
tempij(i,j) = fdirpar(i,j) |
c tempij(i,j) = fdirpar(i,j) |
236 |
enddo |
c enddo |
237 |
enddo |
c enddo |
238 |
print *,' fdirpar ',tempij |
c print *,' fdirpar ',tempij |
239 |
do j = 1,jm |
c do j = 1,jm |
240 |
do i = 1,im |
c do i = 1,im |
241 |
tempij(i,j) = tgz(i,j) |
c tempij(i,j) = tgz(i,j) |
242 |
enddo |
c enddo |
243 |
enddo |
c enddo |
244 |
print *,' tgz ',tempij |
c print *,' tgz ',tempij |
245 |
do j = 1,jm |
c do j = 1,jm |
246 |
do i = 1,im |
c do i = 1,im |
247 |
tempij(i,j) = tg0(i,j) |
c tempij(i,j) = tg0(i,j) |
248 |
enddo |
c enddo |
249 |
enddo |
c enddo |
250 |
print *,' tg0 ',tempij |
c print *,' tg0 ',tempij |
251 |
endif |
endif |
252 |
|
|
253 |
call turbio (im,jm,lm,istrip,nymd,nhms,bi,bj,ndturb, |
call turbio (im,jm,lm,istrip,nymd,nhms,bi,bj,ndturb, |