Parent Directory | Revision Log | Patch
revision 40 by guez, Tue Feb 22 13:49:36 2011 UTC | revision 42 by guez, Thu Mar 24 11:52:41 2011 UTC | |
---|---|---|
# | Line 183 SUBROUTINE coefkz(nsrf, knon, paprs, ppl | Line 183 SUBROUTINE coefkz(nsrf, knon, paprs, ppl |
183 | z1(i) = zgeop(i, 1) | z1(i) = zgeop(i, 1) |
184 | ENDDO | ENDDO |
185 | ||
186 | CALL clcdrag(klon, knon, nsrf, zxli, & | CALL clcdrag(klon, knon, nsrf, zxli, u1, v1, t1, q1, z1, ts, qsurf, rugos, & |
u1, v1, t1, q1, z1, & | ||
ts, qsurf, rugos, & | ||
187 | pcfm1, pcfh1) | pcfm1, pcfh1) |
!IM $ ts, qsurf, rugos, | ||
188 | ||
189 | DO i = 1, knon | DO i = 1, knon |
190 | pcfm(i, 1)=pcfm1(i) | pcfm(i, 1)=pcfm1(i) |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |