Oasis3 4.0.2
|
00001 MODULE mod_smooth 00002 ! 00003 ! -- smooth.h 01-10-95 Version 2.0 Author: Laurent Terray 00004 ! 00005 !@ 00006 !@ Contents : variables controlling how smoothing is handled 00007 !@ -------- 00008 !@ 00009 !@ Common to all N* variables : 00010 !@ indices for the gcm-1 grid of regions corresponding 00011 !@ to the boundaries of the gcm-2 domain. 00012 !@ 00013 !@ -- nsltb : southern outermost point of the smoothing region 00014 !@ 00015 !@ -- nslte : southern innermost point of the smoothing region 00016 !@ 00017 !@ -- nnltb : northern outermost point of the smoothing region 00018 !@ 00019 !@ -- nnlte : northern innermost point of the smoothing region 00020 !@ 00021 !@ -- qalfa : control weights in the transition zone (north and south) 00022 !@ 00023 !@ -- qbeta : control weights in the transition zone (west and east) 00024 !@ 00025 !@ -- nliss : width of the smoothing region (west and east boundaries) 00026 !@ 00027 !@ -- nwlgmx : longitude index of the furthest east point on the western 00028 !@ boundary 00029 !@ 00030 !@ -- nelgmx : longitude indexof the furthest west point on the eastern 00031 !@ boundary 00032 !@ 00033 ! ------------------------------------------------------------------- 00034 ! 00035 USE mod_kinds_oasis 00036 INTEGER(kind=ip_intwp_p), PARAMETER :: nsltb = 18 00037 INTEGER(kind=ip_intwp_p), PARAMETER :: nslte = 26 00038 INTEGER(kind=ip_intwp_p), PARAMETER :: nnltb = 49 00039 INTEGER(kind=ip_intwp_p), PARAMETER :: nnlte = 41 00040 INTEGER(kind=ip_intwp_p), PARAMETER :: qalfa = 0.125 00041 INTEGER(kind=ip_intwp_p), PARAMETER :: qbeta = 0.25 00042 INTEGER(kind=ip_intwp_p), PARAMETER :: nliss = 5 00043 INTEGER(kind=ip_intwp_p), PARAMETER :: nelgmx = 229 00044 INTEGER(kind=ip_intwp_p), PARAMETER :: nwlgmx = 57 00045 ! 00046 END MODULE mod_smooth 00047 ! -------------------------------------------------------------------