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 |
631 |
|
|
632 |
!================================================================== |
!================================================================== |
633 |
SUBROUTINE cv_flag |
SUBROUTINE cv_flag |
634 |
|
use cvflag |
635 |
implicit none |
implicit none |
636 |
|
|
|
include "cvflag.h" |
|
637 |
|
|
638 |
c -- si .TRUE., on rend la gravite plus explicite et eventuellement |
c -- si .TRUE., on rend la gravite plus explicite et eventuellement |
639 |
c differente de 10.0 dans convect3: |
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 |
|
use cvthermo |
649 |
implicit none |
implicit none |
650 |
|
|
651 |
c------------------------------------------------------------- |
c------------------------------------------------------------- |
652 |
c Set thermodynamical constants for convectL |
c Set thermodynamical constants for convectL |
653 |
c------------------------------------------------------------- |
c------------------------------------------------------------- |
654 |
|
|
|
include "cvthermo.h" |
|
655 |
|
|
656 |
integer, intent(in):: iflag_con |
integer, intent(in):: iflag_con |
657 |
|
|
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 |