source: LMDZ6/branches/DYNAMICO-conv/libf/phymar/pardimo.F90 @ 3024

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 1.5 KB
Line 
1MODULE PARDIMO
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!****-------------------------------------------------------------------
11!****  CD PARDIMO : PARAMETERS RELATED TO OBSERVATIONS
12!****  ----------
13!****  Auteurs    : J.PAILLEUX, D.VASILJEVIC, P.CAILLE    90/05-91/09
14!****-------------------------------------------------------------------
15!*  OBSERVATIONS ARRAYS DIMENSIONS
16!*  ------------------------------
17!*    JPNOTP  : MAXIMUM NUMBER OF OBSERVATIONS TYPES
18!*    JPXTIM  : MAXIMUM NUMBER OF TIME SLOTS
19!*
20!*  OBSERVATIONS PROCESSING
21!*  -----------------------
22!*    JPNBTM  : MAXIMUM NUMBER OF MESSAGES TYPES
23!*    JPNUMV  : NUMBER OF VARIABLES IN THE ARRAY NVNUMB
24!*    JPXSOBT : MAXIMUM NUMBER OF SUB-OBSERVATIONS TYPES
25!*    JPXVAR  : MAXIMUM NUMBER OF VARIABLES
26!*    JPXAREA : MAXIMUM NUMBER OF AREAS
27!*    JPXDEP  : MAXIMUM NUMBER OF ADDITIONAL OBS. DEP.
28!*    JPXUPD  : MAXIMUM NUMBER OF UPDATES ALLOWED FOR CMA
29!*    JPXDEL  : LEN. OF THE OBS. SEP. LIST FOR SAVING
30!*
31!****-------------------------------------------------------------------
32INTEGER_M, PARAMETER :: JPNOTP=10
33INTEGER_M, PARAMETER :: JPXTIM=25
34
35INTEGER_M, PARAMETER :: JPNBTM=36
36INTEGER_M, PARAMETER :: JPNUMV=65
37INTEGER_M, PARAMETER :: JPXSOBT=3
38INTEGER_M, PARAMETER :: JPXVAR=25
39INTEGER_M, PARAMETER :: JPXAREA=20
40INTEGER_M, PARAMETER :: JPXDEP=100
41INTEGER_M, PARAMETER :: JPXDEL=639
42INTEGER_M, PARAMETER :: JPXUPD=100
43
44!****-------------------------------------------------------------------
45END MODULE PARDIMO
Note: See TracBrowser for help on using the repository browser.