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------------------------------------------------------------- |
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 |