source: CPL/oasis3/trunk/src/mod/oasis3/src/mod_smooth.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: 1.6 KB
Line 
1MODULE mod_smooth
2!
3! -- smooth.h   01-10-95   Version 2.0   Author: Laurent Terray
4!
5!@
6!@  Contents : variables controlling how smoothing is handled
7!@  --------
8!@
9!@ Common to all N* variables :
10!@       indices for the gcm-1 grid of regions corresponding
11!@       to the boundaries of the gcm-2 domain.
12!@
13!@ -- nsltb : southern outermost point of the smoothing region
14!@
15!@ -- nslte : southern innermost point of the smoothing region
16!@
17!@ -- nnltb : northern outermost point of the smoothing region
18!@
19!@ -- nnlte : northern innermost point of the smoothing region
20!@
21!@ -- qalfa : control weights in the transition zone (north and south)
22!@
23!@ -- qbeta : control weights in the transition zone (west and east)
24!@
25!@ -- nliss : width of the smoothing region (west and east boundaries)
26!@
27!@ -- nwlgmx : longitude index of the furthest east point on the western 
28!@             boundary
29!@
30!@ -- nelgmx : longitude indexof the furthest west point on the eastern 
31!@             boundary
32!@
33! -------------------------------------------------------------------
34!
35  USE mod_kinds_oasis
36  INTEGER(kind=ip_intwp_p), PARAMETER :: nsltb = 18
37  INTEGER(kind=ip_intwp_p), PARAMETER :: nslte = 26
38  INTEGER(kind=ip_intwp_p), PARAMETER :: nnltb = 49
39  INTEGER(kind=ip_intwp_p), PARAMETER :: nnlte = 41
40  INTEGER(kind=ip_intwp_p), PARAMETER :: qalfa = 0.125
41  INTEGER(kind=ip_intwp_p), PARAMETER :: qbeta = 0.25
42  INTEGER(kind=ip_intwp_p), PARAMETER :: nliss = 5
43  INTEGER(kind=ip_intwp_p), PARAMETER :: nelgmx = 229
44  INTEGER(kind=ip_intwp_p), PARAMETER :: nwlgmx = 57
45!
46END MODULE mod_smooth
47! -------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.