/[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 14 by guez, Mon Jul 28 14:48:09 2008 UTC revision 47 by guez, Fri Jul 1 15:00:48 2011 UTC
# Line 631  c Line 631  c
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:
# 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                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    
# 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.14  
changed lines
  Added in v.47
  ViewVC Help
Powered by ViewVC 1.1.21