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

Diff of /trunk/phylmd/cv_thermo.f

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

revision 49 by guez, Wed Aug 24 11:43:14 2011 UTC revision 69 by guez, Mon Feb 18 16:33:12 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.69
  ViewVC Help
Powered by ViewVC 1.1.21