/[lmdze]/trunk/Sources/phylmd/cv_thermo.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/cv_thermo.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/libf/phylmd/cv_thermo.f90 revision 49 by guez, Wed Aug 24 11:43:14 2011 UTC trunk/Sources/phylmd/cv_thermo.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC
# Line 1  Line 1 
1  SUBROUTINE cv_thermo(iflag_con)  SUBROUTINE cv_thermo
2    
3    ! Set thermodynamical constants for convectL    ! Set thermodynamical constants for convectL
4    
5      use clesphys2, only: iflag_con
6    use SUPHEC_M    use SUPHEC_M
7    use cvthermo    use cvthermo
8    
9    implicit none    implicit none
10    
   integer, intent(in):: iflag_con  
   
11    !-----------------------------------------------------    !-----------------------------------------------------
12    
13    ! original set from convect:    ! original set from convect:
Legend:
Removed from v.49  
changed lines
  Added in v.134
  ViewVC Help
Powered by ViewVC 1.1.21