parcli.F90

Go to the documentation of this file.

MODULE parcli


#include "tsmbkind.h"

IMPLICIT NONE

SAVE

!------------------------------------------------------------------------------
!     JPNAV : Number of latitude of the NAVY grid.
!     JPPOCP: Number of latitude of the NAVY grid in polar caps.
!     JPAUT : Number of latitude of the N108 grids.
!     JPNMOI: Number of months to be processed.
!     JPNFIN: Number of fixed fields in the *NAVY* data
!     JPNFIS: Number of fixed fields in the *N108* data
!     JPNMOS: Number of monthly fields in the *N108* data
!     JPNFIF: Number of fixed fields in the final data
!     JPNMOF: Number of monthly fields in the final data
!     JPNFCS: Number of fixed fields in the *N108* data which are indifferent
!             to the land/sea distribution
!     JPNFCF: Number of fixed fields in the final data which are indifferent
!             to the land/sea distribution
!     PPTSHT: Shift (in radians) of the deep yearly temperature wave.
!     PPWSHT: Shift (in radians) of the deep yearly water content wave.
!     JPLDAT: Dimension of the array *IDATEF*.

integer_m, PARAMETER :: jpnav=1080
integer_m, PARAMETER :: jppocp=120
integer_m, PARAMETER :: jpaut=216
integer_m, PARAMETER :: jpint=2*jpaut+4
integer_m, PARAMETER :: jpjnt=jpaut+4
integer_m, PARAMETER :: jpnfin=7
integer_m, PARAMETER :: jpnfis=13
integer_m, PARAMETER :: jpnmos=5
integer_m, PARAMETER :: jpnfif=11
integer_m, PARAMETER :: jpnmof=7
integer_m, PARAMETER :: jpnmoi=12
integer_m, PARAMETER :: jpnfcs=7
integer_m, PARAMETER :: jpnfcf=5
real_b   , PARAMETER :: pptsht=0.0786_jprb
real_b   , PARAMETER :: ppwsht=0.1969_jprb
integer_m, PARAMETER :: jpldat=11

END MODULE parcli