pardimo.F90

Go to the documentation of this file.

MODULE pardimo


#include "tsmbkind.h"

IMPLICIT NONE

SAVE

!****-------------------------------------------------------------------
!****  CD PARDIMO : PARAMETERS RELATED TO OBSERVATIONS
!****  ----------
!****  Auteurs    : J.PAILLEUX, D.VASILJEVIC, P.CAILLE    90/05-91/09
!****-------------------------------------------------------------------
!*  OBSERVATIONS ARRAYS DIMENSIONS
!*  ------------------------------
!*    JPNOTP  : MAXIMUM NUMBER OF OBSERVATIONS TYPES
!*    JPXTIM  : MAXIMUM NUMBER OF TIME SLOTS
!*
!*  OBSERVATIONS PROCESSING
!*  -----------------------
!*    JPNBTM  : MAXIMUM NUMBER OF MESSAGES TYPES
!*    JPNUMV  : NUMBER OF VARIABLES IN THE ARRAY NVNUMB
!*    JPXSOBT : MAXIMUM NUMBER OF SUB-OBSERVATIONS TYPES
!*    JPXVAR  : MAXIMUM NUMBER OF VARIABLES
!*    JPXAREA : MAXIMUM NUMBER OF AREAS
!*    JPXDEP  : MAXIMUM NUMBER OF ADDITIONAL OBS. DEP.
!*    JPXUPD  : MAXIMUM NUMBER OF UPDATES ALLOWED FOR CMA
!*    JPXDEL  : LEN. OF THE OBS. SEP. LIST FOR SAVING
!*
!****-------------------------------------------------------------------
integer_m, PARAMETER :: jpnotp=10
integer_m, PARAMETER :: jpxtim=25

integer_m, PARAMETER :: jpnbtm=36
integer_m, PARAMETER :: jpnumv=65
integer_m, PARAMETER :: jpxsobt=3
integer_m, PARAMETER :: jpxvar=25
integer_m, PARAMETER :: jpxarea=20
integer_m, PARAMETER :: jpxdep=100
integer_m, PARAMETER :: jpxdel=639
integer_m, PARAMETER :: jpxupd=100

!****-------------------------------------------------------------------
END MODULE pardimo