/[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 38 by guez, Thu Jan 6 17:52:19 2011 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 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 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:
# 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.3  
changed lines
  Added in v.38
  ViewVC Help
Powered by ViewVC 1.1.21