source: LMDZ5/branches/testing/libf/phymar/yoetluc.F90 @ 3946

Last change on this file since 3946 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 
1MODULE YOETLUC
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
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!     ------------------------------------------------------------------
34END MODULE YOETLUC
Note: See TracBrowser for help on using the repository browser.