source: LMDZ5/trunk/libf/phymar/parfpos.F90 @ 2609

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 2.1 KB
RevLine 
[2089]1MODULE PARFPOS
2
3#include "tsmbkind.h"
4
5USE PARDIM
6
7
8IMPLICIT NONE
9
10SAVE
11
12!     ------------------------------------------------------------------
13
14! === basic dimensions for Full POST-PROCESSING ===
15
16!     JPOSDOM : Maximum number of horizontal (sub)domains
17!     JPOSFRQ : Maximum number of output frequencies
18!     JPOSLEN : Maximum length of a (sub)domain name
19!     JPOSLIS : Maximum number of groups of subdomains
20!     JPOSDIR : Maximum length of the path (or prefix) for the output files
21!     JPOSLE  : Maximum number of eta levels on the output subdomain
22!     JPOSGL  : Maximum number of latitude rows of the output gaussian grid
23!     JPOS3DF : Maximum number of specific 3D dynamic fields
24!     JPOSSCVA: Maximum number of post-processable passive scalars
25!     JPOS2DF : Maximum number of specific 2D dynamic fields
26!     JPOSPHY : Maximum number of surface fields
27!     JPOSCFU : Maximum number of cumulated fluxes
28!     JPOSXFU : Maximum number of instantaneous fluxes
29!     JPOS3P  : Maximum number of pp. pressure levels
30!     JPOS3H  : Maximum number of pp. height (above orography) levels
31!     JPOS3TH : Maximum number of pp. potential temperature levels
32!     JPOS3PV : Maximum number of pp. potential vorticity levels
33!     JPOS3S  : Maximum number of pp. eta levels
34!     JPOSVSO : Maximum number of climatologic fields of output format
35
36
37INTEGER_M, PARAMETER :: JPOSDOM=15
38INTEGER_M, PARAMETER :: JPOSFRQ=10
39INTEGER_M, PARAMETER :: JPOSLEN=10
40INTEGER_M, PARAMETER :: JPOSLIS=10
41INTEGER_M, PARAMETER :: JPOSDIR=180
42INTEGER_M, PARAMETER :: JPOSLE=JPMXLE
43INTEGER_M, PARAMETER :: JPOSGL=JPMXGL
44INTEGER_M, PARAMETER :: JPOS3DF=63
45INTEGER_M, PARAMETER :: JPOS2DF=15
46INTEGER_M, PARAMETER :: JPOSPHY=127
47INTEGER_M, PARAMETER :: JPOSCFU=63
48INTEGER_M, PARAMETER :: JPOSXFU=63
49INTEGER_M, PARAMETER :: JPOS3P=31
50INTEGER_M, PARAMETER :: JPOS3H=127
51INTEGER_M, PARAMETER :: JPOS3TH=15
52INTEGER_M, PARAMETER :: JPOS3PV=15
53INTEGER_M, PARAMETER :: JPOS3S=JPOSLE
54INTEGER_M, PARAMETER :: JPOSVSO=31
55INTEGER_M, PARAMETER :: JPOSSCVA=3
56!     ------------------------------------------------------------------
57END MODULE PARFPOS
Note: See TracBrowser for help on using the repository browser.