/[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 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 14 by guez, Mon Jul 28 14:48:09 2008 UTC
# Line 70  c Line 70  c
70        integer nd        integer nd
71        integer ndp1        integer ndp1
72        integer noff        integer noff
73        integer iflag_con        integer, intent(in):: iflag_con
74        integer ntra        integer ntra
75        real t1(len,nd)        real t1(len,nd)
76        real q1(len,nd)        real q1(len,nd)
# Line 101  c Line 101  c
101        real, intent(in):: tra1(len,nd,ntra)        real, intent(in):: tra1(len,nd,ntra)
102        real ftra1(len,nd,ntra)        real ftra1(len,nd,ntra)
103    
104        real delt        real, intent(in):: delt
105    
106  !-------------------------------------------------------------------  !-------------------------------------------------------------------
107  ! --- ARGUMENTS  ! --- ARGUMENTS
# 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
# Line 653  c--------------------------------------- Line 653  c---------------------------------------
653    
654        include "cvthermo.h"        include "cvthermo.h"
655    
656        integer iflag_con        integer, intent(in):: iflag_con
657    
658    
659  c original set from convect:  c original set from convect:
Legend:
Removed from v.3  
changed lines
  Added in v.14
  ViewVC Help
Powered by ViewVC 1.1.21