/[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 38 by guez, Thu Jan 6 17:52:19 2011 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 645  c differente de 10.0 dans convect3: Line 645  c differente de 10.0 dans convect3:
645  !==================================================================  !==================================================================
646        SUBROUTINE cv_thermo(iflag_con)        SUBROUTINE cv_thermo(iflag_con)
647        use SUPHEC_M        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    
Legend:
Removed from v.38  
changed lines
  Added in v.47
  ViewVC Help
Powered by ViewVC 1.1.21