source: LMDZ6/branches/DYNAMICO-conv-GC/libf/phymar/parerob.F90

Last change on this file was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR


Integration of MAR physics

File size: 801 bytes
Line 
1MODULE PAREROB
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!*
11!     PAREROB   D. VASILJEVIC  91/03/05
12
13!     DIMENSIONS FOR ARRAYS FOR OBS. ERROR CORRELATION
14
15
16!     VARIABLE     / TYPE /               MEANING
17!     --------       ----                 ------
18!     JPMXXENT        I     MAX. NO. OF X ENTRIES IN THE CORREL. TABLE
19!     JPMXYENT        I     MAX. NO. OF Y ENTRIES IN THE CORREL. TABLE
20!     JPRZPAR         I
21!     JPCZR           I
22!     JPCXR           I
23!     JPCZRCOR        I
24!*
25
26INTEGER_M, PARAMETER :: JPMXXENT=9
27INTEGER_M, PARAMETER :: JPMXYENT=9
28INTEGER_M, PARAMETER :: JPRZPAR=10
29INTEGER_M, PARAMETER :: JPCZR=8
30INTEGER_M, PARAMETER :: JPCXR=8
31INTEGER_M, PARAMETER :: JPCZRCOR=2
32
33!     ------------------------------------------------------------------
34
35END MODULE PAREROB
Note: See TracBrowser for help on using the repository browser.