/[lmdze]/trunk/libf/phylmd/suphec.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/suphec.f90

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

revision 47 by guez, Fri Jul 1 15:00:48 2011 UTC revision 49 by guez, Wed Aug 24 11:43:14 2011 UTC
# Line 29  module suphec_m Line 29  module suphec_m
29    
30    real, parameter:: RD = 1000. * R / RMD    real, parameter:: RD = 1000. * R / RMD
31    ! specific ideal gas constant for dry air, in J K-1 kg-1    ! specific ideal gas constant for dry air, in J K-1 kg-1
32      ! (factor 1000: conversion from g to kg)
33    
34    real, parameter:: RMO3 = 47.9942    real, parameter:: RMO3 = 47.9942
35    real, parameter:: RMV = 18.0153    real, parameter:: RMV = 18.0153

Legend:
Removed from v.47  
changed lines
  Added in v.49

  ViewVC Help
Powered by ViewVC 1.1.21