source: branches/2016/dev_v3.20_2016_gravity_drainage/SOURCES/source_3.20/libUN.inc @ 24

Last change on this file since 24 was 4, checked in by vancop, 8 years ago

initial import /Users/ioulianikolskaia/Boulot/CODES/LIM1D/ARCHIVE/TMP/LIM1D_v3.20/
File size: 2.0 KB
Line 
1C     =========
2C     libUN.inc
3C     =========
4
5      INCLUDE 'netcdf.inc'
6 
7      CHARACTER*50   CF_institution
8      PARAMETER     (CF_institution="UCL-ASTR (Martin Vancoppenolle)")
9
10      CHARACTER*10   CF_libUN_version
11      PARAMETER     (CF_libUN_version="2005.04.08")
12
13      INTEGER        CF_dimmaxlen
14      PARAMETER     (CF_dimmaxlen=99999) ! Maximum dim/axes length
15
16      INTEGER        CF_dimmaxnbr
17      PARAMETER     (CF_dimmaxnbr=20)    ! Nbr Maximum of dim/axes                 
18
19
20      INTEGER        CF_varmaxnbr       
21      PARAMETER     (CF_varmaxnbr=300)   ! Nbr maximum of variables
22
23      INTEGER        CF_attnbr       
24      PARAMETER     (CF_attnbr   =1)     ! nbr of attibutes
25
26      INTEGER        CF_dim(0:CF_dimmaxnbr),CF_attnum(CF_attnbr)
27      INTEGER        CF_varnbrtot,CF_dimnbrtot,CF_fileidopened
28
29      REAL           CF_dimval(CF_dimmaxlen,0:CF_dimmaxnbr)
30
31      CHARACTER*13   CF_dimnam(0:CF_dimmaxnbr)
32      CHARACTER*13   CF_varnam(CF_varmaxnbr)
33      CHARACTER*13   CF_varnamdim(4,CF_varmaxnbr)
34      CHARACTER*13   CF_attnam(CF_attnbr)
35      CHARACTER*31   CF_dimnamuni(0:CF_dimmaxnbr)
36      CHARACTER*31   CF_varnamuni(CF_varmaxnbr)
37      CHARACTER*50   CF_vardes(CF_varmaxnbr)
38      CHARACTER*200  CF_filenam,CF_filetit,CF_filenamopened
39
40      COMMON/CF_FILE_CREATi/CF_dim,CF_attnum,CF_fileidopened,
41     .                      CF_varnbrtot,CF_dimnbrtot
42                     
43      COMMON/CF_FILE_CREATr/CF_dimval
44
45      COMMON/CF_FILE_CREATc/CF_dimnam,CF_varnam,CF_varnamdim,
46     .                      CF_attnam,CF_dimnamuni,CF_varnamuni,
47     .                      CF_vardes,CF_filenam,CF_filetit,
48     .                      CF_filenamopened
49
50C     =================================================================
51
52      INTEGER         iVarWarn,ireadchk
53      REAL            VarRepl,vReadMin,vReadMax,
54     .                vMissVal,ValRange(2)
55
56      COMMON/UNparams/VarRepl,iVarWarn,ireadchk,vReadMin,vReadMax,
57     .                vMissVal,ValRange
58
Note: See TracBrowser for help on using the repository browser.