/[lmdze]/trunk/Sources/phylmd/cv_driver.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/cv_driver.f

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

revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC revision 14 by guez, Mon Jul 28 14:48:09 2008 UTC
# Line 520  c       print*,'klon, ncum = ',len,ncum Line 520  c       print*,'klon, ncum = ',len,ncum
520         CALL cv3_mixing(nloc,ncum,nd,nd,ntra,icb,nk,inb    ! na->nd         CALL cv3_mixing(nloc,ncum,nd,nd,ntra,icb,nk,inb    ! na->nd
521       :                     ,ph,t,q,qs,u,v,tra,h,lv,qnk       :                     ,ph,t,q,qs,u,v,tra,h,lv,qnk
522       :                     ,hp,tv,tvp,ep,clw,m,sig       :                     ,hp,tv,tvp,ep,clw,m,sig
523       o ,ment,qent,uent,vent,sij,elij,ments,qents,traent)       o ,ment,qent,uent,vent, nent,sij,elij,ments,qents,traent)
524        endif        endif
525    
526        if (iflag_con.eq.4) then        if (iflag_con.eq.4) then
Legend:
Removed from v.12  
changed lines
  Added in v.14
  ViewVC Help
Powered by ViewVC 1.1.21