source: codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/params_h.F90 @ 253

Last change on this file since 253 was 222, checked in by ymipsl, 10 years ago

Creating temporary dynamico/lmdz/saturn branche

YM
  • Property svn:executable set to *
File size: 306 bytes
Line 
1      module params_h
2
3!  for use with kcm subroutines
4!  RDW 22/09/11
5
6      implicit none
7
8      double precision rc,cp_n,m_n,m_v,rmn
9      save cp_n,m_n,m_v,rmn
10
11      logical ideal_v
12      save ideal_v
13
14      parameter (rc  = 8.314462d0) ! ideal gas constant [J mol^-1 K^-1]
15
16      end module params_h
Note: See TracBrowser for help on using the repository browser.