Last change
on this file since 5409 was
2160,
checked in by Laurent Fairhead, 10 years ago
|
Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand
|
File size:
898 bytes
|
Line | |
---|
1 | MODULE YOETLUC |
---|
2 | |
---|
3 | |
---|
4 | #include "tsmbkind.h" |
---|
5 | |
---|
6 | IMPLICIT NONE |
---|
7 | |
---|
8 | SAVE |
---|
9 | |
---|
10 | ! ------------------------------------------------------------------ |
---|
11 | !* *YOETLUC* - Look-up tables for thermodynamic functions |
---|
12 | ! ------------------------------------------------------------------ |
---|
13 | ! PARAMETER( JPTLUCU1=100000 , JPTLUCU2=370000 ) |
---|
14 | |
---|
15 | ! REAL TLUCUA(JPTLUCU1:JPTLUCU2),TLUCUB(JPTLUCU1:JPTLUCU2) |
---|
16 | ! + , TLUCUC(JPTLUCU1:JPTLUCU2) |
---|
17 | |
---|
18 | ! /POETLUC/ MTLUCUA,MTLUCUB,MTLUCUC |
---|
19 | |
---|
20 | ! POINTER (MTLUCUA,TLUCUA),(MTLUCUB,TLUCUB),(MTLUCUC,TLUCUC) |
---|
21 | |
---|
22 | |
---|
23 | ! D.SALMOND CRAY (UK) 12/8/91 |
---|
24 | ! J.J. MORCRETTE ECMWF 92-09-18 Update to Cy44 |
---|
25 | |
---|
26 | ! NAME TYPE DEFINITION |
---|
27 | ! ---- ---- ---------- |
---|
28 | |
---|
29 | ! TLUCUA REAL TABLE 1 |
---|
30 | ! TLUCUB REAL TABLE 1 |
---|
31 | ! TLUCUC REAL TABLE 1 |
---|
32 | |
---|
33 | ! ------------------------------------------------------------------ |
---|
34 | END MODULE YOETLUC |
---|
Note: See
TracBrowser
for help on using the repository browser.