| [2089] | 1 | MODULE PARDIMO |
|---|
| 2 | |
|---|
| 3 | |
|---|
| 4 | #include "tsmbkind.h" |
|---|
| 5 | |
|---|
| 6 | IMPLICIT NONE |
|---|
| 7 | |
|---|
| 8 | SAVE |
|---|
| 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 | !****------------------------------------------------------------------- |
|---|
| 32 | INTEGER_M, PARAMETER :: JPNOTP=10 |
|---|
| 33 | INTEGER_M, PARAMETER :: JPXTIM=25 |
|---|
| 34 | |
|---|
| 35 | INTEGER_M, PARAMETER :: JPNBTM=36 |
|---|
| 36 | INTEGER_M, PARAMETER :: JPNUMV=65 |
|---|
| 37 | INTEGER_M, PARAMETER :: JPXSOBT=3 |
|---|
| 38 | INTEGER_M, PARAMETER :: JPXVAR=25 |
|---|
| 39 | INTEGER_M, PARAMETER :: JPXAREA=20 |
|---|
| 40 | INTEGER_M, PARAMETER :: JPXDEP=100 |
|---|
| 41 | INTEGER_M, PARAMETER :: JPXDEL=639 |
|---|
| 42 | INTEGER_M, PARAMETER :: JPXUPD=100 |
|---|
| 43 | |
|---|
| 44 | !****------------------------------------------------------------------- |
|---|
| 45 | END MODULE PARDIMO |
|---|
