/[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 38 by guez, Thu Jan 6 17:52:19 2011 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
# Line 644  c differente de 10.0 dans convect3: Line 644  c differente de 10.0 dans convect3:
644    
645  !==================================================================  !==================================================================
646        SUBROUTINE cv_thermo(iflag_con)        SUBROUTINE cv_thermo(iflag_con)
647        use YOMCST        use SUPHEC_M
648            implicit none            implicit none
649    
650  c-------------------------------------------------------------  c-------------------------------------------------------------
# Line 684  c maf       grav= 10.    ! implicitely o Line 684  c maf       grav= 10.    ! implicitely o
684         grav= g    ! implicitely or explicitely used in convect3         grav= g    ! implicitely or explicitely used in convect3
685        endif        endif
686    
687        rowl=1000.0 !(a quelle variable de YOMCST cela correspond-il?)        rowl=1000.0 !(a quelle variable de SUPHEC_M cela correspond-il?)
688    
689        clmcpv=cl-cpv        clmcpv=cl-cpv
690        clmcpd=cl-cpd        clmcpd=cl-cpd
Legend:
Removed from v.12  
changed lines
  Added in v.38
  ViewVC Help
Powered by ViewVC 1.1.21