source: LMDZ5/trunk/libf/phymar/parcli.F90 @ 5136

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 1.6 KB
RevLine 
[2089]1MODULE PARCLI
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!------------------------------------------------------------------------------
11!     JPNAV : Number of latitude of the NAVY grid.
12!     JPPOCP: Number of latitude of the NAVY grid in polar caps.
13!     JPAUT : Number of latitude of the N108 grids.
14!     JPNMOI: Number of months to be processed.
15!     JPNFIN: Number of fixed fields in the *NAVY* data
16!     JPNFIS: Number of fixed fields in the *N108* data
17!     JPNMOS: Number of monthly fields in the *N108* data
18!     JPNFIF: Number of fixed fields in the final data
19!     JPNMOF: Number of monthly fields in the final data
20!     JPNFCS: Number of fixed fields in the *N108* data which are indifferent
21!             to the land/sea distribution
22!     JPNFCF: Number of fixed fields in the final data which are indifferent
23!             to the land/sea distribution
24!     PPTSHT: Shift (in radians) of the deep yearly temperature wave.
25!     PPWSHT: Shift (in radians) of the deep yearly water content wave.
26!     JPLDAT: Dimension of the array *IDATEF*.
27
28INTEGER_M, PARAMETER :: JPNAV=1080
29INTEGER_M, PARAMETER :: JPPOCP=120
30INTEGER_M, PARAMETER :: JPAUT=216
31INTEGER_M, PARAMETER :: JPINT=2*JPAUT+4
32INTEGER_M, PARAMETER :: JPJNT=JPAUT+4
33INTEGER_M, PARAMETER :: JPNFIN=7
34INTEGER_M, PARAMETER :: JPNFIS=13
35INTEGER_M, PARAMETER :: JPNMOS=5
36INTEGER_M, PARAMETER :: JPNFIF=11
37INTEGER_M, PARAMETER :: JPNMOF=7
38INTEGER_M, PARAMETER :: JPNMOI=12
39INTEGER_M, PARAMETER :: JPNFCS=7
40INTEGER_M, PARAMETER :: JPNFCF=5
41REAL_B   , PARAMETER :: PPTSHT=0.0786_JPRB
42REAL_B   , PARAMETER :: PPWSHT=0.1969_JPRB
43INTEGER_M, PARAMETER :: JPLDAT=11
44
45END MODULE PARCLI
Note: See TracBrowser for help on using the repository browser.