/[lmdze]/trunk/libf/phylmd/coefkz.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/coefkz.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 41 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)
Legend:
Removed from v.41  
changed lines
  Added in v.42
  ViewVC Help
Powered by ViewVC 1.1.21