--- trunk/libf/dyn3d/comconst.f90 2011/01/25 15:11:05 39 +++ trunk/libf/dyn3d/comconst.f90 2013/06/24 15:39:52 70 @@ -10,10 +10,11 @@ integer lllmm1, lllmp1, lcl REAL dtvr ! time step for dynamics (in s) real, parameter:: daysec = 86400. ! number of seconds per day - REAL dtphys + REAL dtphys ! time step of integration real, parameter:: rad = 6371229. ! radius of the Earth (in m) real r - real, parameter:: cpp = 1004.70885, kappa = 0.2857143 + real, parameter:: cpp = 1004.70885 ! J K-1 kg-1 + real, parameter:: kappa = 0.2857143 REAL cotot, unsim real, parameter:: g = 9.8 ! acceleration of gravity (in m s-2)