/[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/phylmd/cv_thermo.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 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.76
  ViewVC Help
Powered by ViewVC 1.1.21