source: codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/calc_cpp3d.F90 @ 224

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

Creating temporary dynamico/lmdz/saturn branche

YM
File size: 785 bytes
Line 
1      subroutine calc_cpp3d(cppNI,rcpNI,t,p)
2
3!==================================================================
4!     Purpose
5!     -------
6!     Compute the atmospheric specific heat capacity as a
7!     function of pressure and temperature (for CO2 gas only)
8!
9!     Authors
10!     -------
11!     Robin Wordsworth (2009)
12!
13!==================================================================
14
15      implicit none
16
17#include "comcstfi.h"
18#include "callkeys.h"
19#include "cpdet.h"
20
21      !real cp0, dB2dT2
22      real cppNI      ! specific heat capacity at const. pressure
23      real rcpNI      ! R / specific heat capacity
24      real t
25      real p
26
27      ! dummy function until I decide what to do!
28
29      cppNI  = cpp
30      rcpNI  = R/cppNI
31
32      return
33    end subroutine calc_cpp3d
Note: See TracBrowser for help on using the repository browser.