- Timestamp:
- 2015-04-29T12:17:12+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5021_nn_etau_revision/NEMOGCM/TOOLS/SIREN/src/global.f90
r4213 r5240 6 6 ! 7 7 ! DESCRIPTION: 8 !> @brief This module defines global variables, and parameters that can't 9 !> be associated with a module 8 !> @brief This module defines global variables and parameters. 10 9 ! 11 10 !> @author 12 11 !> J.paul 13 12 ! REVISION HISTORY: 14 !> @date Nov , 2013 - Initial Version13 !> @date November, 2013 - Initial Version 15 14 ! 16 15 !> @note Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 22 21 IMPLICIT NONE 23 22 24 PUBLIC :: d g_fill!< default fill value25 PUBLIC :: i g_nsep!< number of separator listed26 PUBLIC :: i g_ncom!< number of comment character listed27 PUBLIC :: c g_sep!< list of separator28 PUBLIC :: c g_com!< list of comment character23 PUBLIC :: dp_fill !< default fill value 24 PUBLIC :: ip_nsep !< number of separator listed 25 PUBLIC :: ip_ncom !< number of comment character listed 26 PUBLIC :: cp_sep !< list of separator 27 PUBLIC :: cp_com !< list of comment character 29 28 30 PUBLIC :: ig_npoint 31 PUBLIC :: jp_T 32 PUBLIC :: jp_U 33 PUBLIC :: jp_V 34 PUBLIC :: jp_F 29 PUBLIC :: ip_npoint !< number of point on ARAKAWA C-grid 30 PUBLIC :: jp_T !< indice for T-point on ARAKAWA C-grid 31 PUBLIC :: jp_U !< indice for U-point on ARAKAWA C-grid 32 PUBLIC :: jp_V !< indice for V-point on ARAKAWA C-grid 33 PUBLIC :: jp_F !< indice for F-point on ARAKAWA C-grid 34 PUBLIC :: cp_grid_point !< list of grid_point character 35 35 36 PUBLIC :: ig_ndim 37 PUBLIC :: jp_I 38 PUBLIC :: jp_J 39 PUBLIC :: jp_K 40 PUBLIC :: jp_L 36 PUBLIC :: ip_maxdim !< maximum number of dimension to be used 37 PUBLIC :: jp_I !< indice for I-direction 38 PUBLIC :: jp_J !< indice for J-direction 39 PUBLIC :: jp_K !< indice for K-direction 40 PUBLIC :: jp_L !< indice for L-direction 41 PUBLIC :: cp_dimorder !< dimension order 41 42 42 PUBLIC :: i g_maxvar!< maximum number of variable43 PUBLIC :: i g_maxmtx!< matrix variable maximum dimension44 PUBLIC :: i g_maxseg!< maximum number of segment45 PUBLIC :: i g_ghost!< number of ghost cell43 PUBLIC :: ip_maxvar !< maximum number of variable 44 PUBLIC :: ip_maxmtx !< matrix variable maximum dimension 45 PUBLIC :: ip_maxseg !< maximum number of segment 46 PUBLIC :: ip_ghost !< number of ghost cell 46 47 47 PUBLIC :: i g_ninterp !< number of available interpolation method48 PUBLIC :: c g_interp_list !< list of interpolation name48 PUBLIC :: ip_ninterp !< number of available interpolation method 49 PUBLIC :: cp_interp_list !< list of interpolation name 49 50 50 PUBLIC :: i g_nextrap !< number of available extrapolation method51 PUBLIC :: c g_extrap_list !< list of extrapolation name51 PUBLIC :: ip_nextrap !< number of available extrapolation method 52 PUBLIC :: cp_extrap_list !< list of extrapolation name 52 53 53 PUBLIC :: i g_nfilter !< number of available filter54 PUBLIC :: c g_filter_list !< list of filter name54 PUBLIC :: ip_nfilter !< number of available filter 55 PUBLIC :: cp_filter_list !< list of filter name 55 56 56 PRIVATE 57 PUBLIC :: ip_ncard !< number of cardinal point 58 PUBLIC :: cp_card !< array of cardinal point 59 PUBLIC :: jp_north !< indice for north boundary 60 PUBLIC :: jp_south !< indice for south boundary 61 PUBLIC :: jp_east !< indice for east boundary 62 PUBLIC :: jp_west !< indice for west boundary 63 57 64 ! NOTE_avoid_public_variables_if_possible 58 65 59 INTEGER(i4) , PARAMETER :: i g_maxvar =200 !< maximum number of variable60 INTEGER(i4) , PARAMETER :: i g_maxmtx =100 !< matrix variable maximum dimension (cf create_bathy)61 INTEGER(i4) , PARAMETER :: i g_maxseg =50 !< maximum number of segment for each boundary66 INTEGER(i4) , PARAMETER :: ip_maxvar =200 !< maximum number of variable 67 INTEGER(i4) , PARAMETER :: ip_maxmtx =100 !< matrix variable maximum dimension (cf create_bathy) 68 INTEGER(i4) , PARAMETER :: ip_maxseg =50 !< maximum number of segment for each boundary 62 69 63 INTEGER(i4) , PARAMETER :: i g_nsep=2!< number of separator listed64 CHARACTER(1) , DIMENSION(i g_nsep) , PARAMETER :: cg_sep = (/'.','_'/) !< list of separator70 INTEGER(i4) , PARAMETER :: ip_nsep=2 !< number of separator listed 71 CHARACTER(1) , DIMENSION(ip_nsep) , PARAMETER :: cp_sep = (/'.','_'/) !< list of separator 65 72 66 INTEGER(i4) , PARAMETER :: i g_ncom=2!< number of comment character listed67 CHARACTER(1) , DIMENSION(i g_ncom) , PARAMETER :: cg_com = (/'#','!'/) !< list of comment character73 INTEGER(i4) , PARAMETER :: ip_ncom=2 !< number of comment character listed 74 CHARACTER(1) , DIMENSION(ip_ncom) , PARAMETER :: cp_com = (/'#','!'/) !< list of comment character 68 75 69 INTEGER(i4) , PARAMETER :: i g_ghost=1!< number of ghost cell76 INTEGER(i4) , PARAMETER :: ip_ghost=1 !< number of ghost cell 70 77 71 INTEGER(i4) , PARAMETER :: i g_ninterp=372 CHARACTER(LEN=lc), DIMENSION(i g_ninterp), PARAMETER :: cg_interp_list = &78 INTEGER(i4) , PARAMETER :: ip_ninterp=3 79 CHARACTER(LEN=lc), DIMENSION(ip_ninterp), PARAMETER :: cp_interp_list = & 73 80 & (/ 'nearest', & 74 81 & 'cubic ', & 75 82 & 'linear ' /) 76 83 77 INTEGER(i4) , PARAMETER :: i g_nextrap=278 CHARACTER(LEN=lc), DIMENSION(i g_nextrap), PARAMETER :: cg_extrap_list = &84 INTEGER(i4) , PARAMETER :: ip_nextrap=2 85 CHARACTER(LEN=lc), DIMENSION(ip_nextrap), PARAMETER :: cp_extrap_list = & 79 86 & (/ 'dist_weight', & 80 87 & 'min_error ' /) 81 88 82 INTEGER(i4) , PARAMETER :: i g_nfilter=583 CHARACTER(LEN=lc), DIMENSION(i g_nfilter), PARAMETER :: cg_filter_list = &89 INTEGER(i4) , PARAMETER :: ip_nfilter=5 90 CHARACTER(LEN=lc), DIMENSION(ip_nfilter), PARAMETER :: cp_filter_list = & 84 91 & (/ 'butterworth', & 85 92 & 'blackman ', & … … 88 95 & 'gauss '/) 89 96 90 REAL(dp) , PARAMETER :: dg_fill=NF90_FILL_DOUBLE !< default fill value 91 INTEGER(i4) , PARAMETER :: ig_fill=NF90_FILL_INT !< default fill value 97 REAL(dp) , PARAMETER :: dp_fill=NF90_FILL_DOUBLE !< default fill value 92 98 93 INTEGER(i4) , PARAMETER :: i g_npoint=499 INTEGER(i4) , PARAMETER :: ip_npoint=4 94 100 INTEGER(i4) , PARAMETER :: jp_T=1 95 101 INTEGER(i4) , PARAMETER :: jp_U=2 96 102 INTEGER(i4) , PARAMETER :: jp_V=3 97 103 INTEGER(i4) , PARAMETER :: jp_F=4 104 CHARACTER(LEN=1), DIMENSION(ip_npoint) , PARAMETER :: cp_grid_point = & 105 & (/ 'T', 'U', 'V', 'F' /) 98 106 99 INTEGER(i4) , PARAMETER :: ig_ndim=2 107 108 INTEGER(i4) , PARAMETER :: ip_maxdim=4 100 109 INTEGER(i4) , PARAMETER :: jp_I=1 101 110 INTEGER(i4) , PARAMETER :: jp_J=2 102 111 INTEGER(i4) , PARAMETER :: jp_K=3 103 112 INTEGER(i4) , PARAMETER :: jp_L=4 113 CHARACTER(LEN=ip_maxdim) , PARAMETER :: cp_dimorder = 'xyzt' !< dimension order to output 114 115 INTEGER(i4), PARAMETER :: ip_ncard=4 116 CHARACTER(LEN=lc), DIMENSION(ip_ncard), PARAMETER :: cp_card = & 117 & (/ 'north', & 118 & 'south', & 119 & 'east ', & 120 & 'west ' /) 121 122 INTEGER(i4), PARAMETER :: jp_north=1 123 INTEGER(i4), PARAMETER :: jp_south=2 124 INTEGER(i4), PARAMETER :: jp_east =3 125 INTEGER(i4), PARAMETER :: jp_west =4 126 127 104 128 105 129 END MODULE global
Note: See TracChangeset
for help on using the changeset viewer.