source: CPL/oasis3/trunk/src/mod/oasis3/src/mod_parameter.F90 @ 1677

Last change on this file since 1677 was 1677, checked in by aclsce, 12 years ago

Imported oasis3 (tag ipslcm5a) from cvs server to svn server (igcmg project).

File size: 4.2 KB
Line 
1MODULE mod_parameter
2!
3! -- parameter.h   01-09-95   Version 2.0   Author: Laurent Terray
4!    ***********   05-08-96   Version 2.1
5!                             Mods: Add parameters for mapping
6!                                   and subgrid (L. Terray)
7!                  20-06-97   Version 2.2 Mods: Add jpbyteint (S. Valcke)
8!                  16-12-97                     Add jpext and jpnbn (L. Terray)
9!                  31-12-97                     Suppress jpwrk (L. Terray)
10!                  12-10-99   Version 2.3 Mods: Add jpnfn (S. Valcke)
11!                  28-01-00   Version 2.4 Mods :jpparal=102, jpfield=10 (J.Latour)
12!                  18-03-02   Version 2.5 changed in module (A.Caubel)
13!@
14!@  Contents : parameter file for OASIS
15!@  --------
16!@
17!@ -- ig_total_nfield : number of coupling fields
18!@
19!@ -- ig_direct_nfield : number of fields not going through Oasis
20!@
21!@ -- ig_nfield : number of fields going through Oasis
22!@
23!@ -- lg_oasis_field : logical indicating if all fields go through Oasis or not
24!@                 (.false. if all fields are exchanged directly)
25!@
26!@ -- ig_nmodel : maximum number of models
27!@
28!@ -- ig_maxcomb : maximum number of fields to be combined in the BLASxxx analyses
29!@
30!@ -- ig_maxold : Memory size of the macro arrays handling fields values
31!@
32!@ -- ig_maxnew : Memory size of the macro arrays handling fields values
33!@
34!@ -- ig_maxold_grid : Memory size of the arrays handling field grid-related
35!@                     data before interpolation
36!@
37!@ -- ig_maxnew_grid : Memory size of the arrays handling field grid-related
38!@                     data after interpolation
39!@
40!@ -- ig_nwork : Size of "nwork" array
41!@
42!@ -- ig_work : Size of "work" array
43!@
44!@ -- ig_maxgrd : maximum grid size of indirect fields
45!@
46!@ -- ig_total_maxgrd : maximum grid size of all fields defined in the
47!@                      namcouple (direct and indirect fields)
48!@
49!@ -- ig_maxwoa : maximum number of underlying neighbors for SURFMESH interpolation
50!@
51!@ -- ig_maxnoa : number of neighbors for GAUSSIAN interpolation
52!@
53!@ -- ig_maxmoa : maximum number of underlying neighbors for MOZAIC interpolation
54!@
55!@ -- ig_maxsoa : maximum number of overlaying neighbors for SUBGRID interpolation
56!@
57!@ -- ig_maxnfm : maximum number of different SURFMESH interpolations
58!@
59!@ -- ig_maxnfg : maximum number of different GAUSSIAN interpolations
60!@
61!@ -- ig_maxnfp : maximum number of different MOZAIC interpolations
62!@
63!@ -- ig_maxnfs : maximum number of different SUBGRID interpolations
64!@
65!@ -- ig_maxnfn : maximum number of different NINENN extrapolations
66!@
67!@ -- ig_maxext : maximum number of neighbors for extrapolation
68!@
69!@ -- ig_maxnbn : maximum number of different extrapolation
70!@
71!     -------------------------------------------------------------------
72!
73!* Useful numerical values
74  USE mod_kinds_oasis
75  INTEGER (kind=ip_intwp_p),PARAMETER :: jpeight = 8, jpfour = 4, jpeighty = 80
76!
77!-----Field status
78!
79  INTEGER(kind=ip_intwp_p), PARAMETER :: ip_exported  = 1
80  INTEGER(kind=ip_intwp_p), PARAMETER :: ip_ignored   = 2
81  INTEGER(kind=ip_intwp_p), PARAMETER :: ip_input     = 3
82  INTEGER(kind=ip_intwp_p), PARAMETER :: ip_output    = 4
83  INTEGER(kind=ip_intwp_p), PARAMETER :: ip_expout    = 5
84  INTEGER(kind=ip_intwp_p), PARAMETER :: ip_ignout    = 6
85  INTEGER(kind=ip_intwp_p), PARAMETER :: ip_auxilary  = 7
86!
87!* Essential parameters to dimension the simulation
88  INTEGER (kind=ip_intwp_p) :: ig_nmodel, ig_nfield, ig_direct_nfield, ig_total_nfield
89  LOGICAL :: lg_oasis_field
90  INTEGER (kind=ip_intwp_p) :: ig_maxcomb
91!* Parameters to dimension the main big arrays
92  INTEGER (kind=ip_intwp_p) :: ig_nwork, ig_work
93  INTEGER (kind=ip_intwp_p) :: ig_maxold, ig_maxnew
94  INTEGER (kind=ip_intwp_p) :: ig_maxold_grid, ig_maxnew_grid
95!* Parameters related to maxima of grid-dimension
96  INTEGER (kind=ip_intwp_p) :: ig_maxgrd, ig_total_maxgrd
97!* Parameters related to ANAIS(M-G), MOZAIC and SUBGRID interpolation
98  INTEGER (kind=ip_intwp_p) :: ig_maxwoa, ig_maxnoa, ig_maxmoa, ig_maxsoa
99  INTEGER (kind=ip_intwp_p) :: ig_maxnfm, ig_maxnfg, ig_maxnfp, ig_maxnfs, ig_maxnfn
100!* Parameters related to extrapolation method WEIGHT
101  INTEGER (kind=ip_intwp_p) :: ig_maxext, ig_maxnbn
102!
103!     -------------------------------------------------------------------
104!
105END MODULE MOD_PARAMETER
Note: See TracBrowser for help on using the repository browser.