1 | MODULE mod_unitncdf |
---|
2 | ! |
---|
3 | ! -- unitncdf.h: 23-03-01 Version 2.5 Author: S. Valcke |
---|
4 | ! ********** |
---|
5 | !@ |
---|
6 | !@ Contents : netcdf LOGICAL flags and file ids |
---|
7 | !@ -------- |
---|
8 | !@ |
---|
9 | !@ -- nc_grdid: netCDF id for grids.nc file |
---|
10 | !@ -- nc_mskid: netCDF id for masks.nc file |
---|
11 | !@ -- nc_surid: netCDF id for areas.nc file |
---|
12 | !@ -- nc_inpid: netCDF id for input field file |
---|
13 | !@ -- nc_scpid: netCDF id for SCRIP matrix file |
---|
14 | !@ -- nc_outid: netCDF id for output field file |
---|
15 | !@ -- nc_invartimeid: netCDF id for time variable (input file) |
---|
16 | !@ |
---|
17 | !@ -- n_reaty: Type of REAL variables |
---|
18 | !@ -- n_intty: Type of INTEGER variables |
---|
19 | !@ -- lncdfgrd : LOGICAL true IF all grid auxilary files are netCDF |
---|
20 | !@ -- lncdfrst : LOGICAL true IF restart auxilary files are netCDF |
---|
21 | !@ -- lncdfana : LOGICAL true IF analysis auxilary files are netCDF |
---|
22 | !@ |
---|
23 | !@ -- rtime_val : time counter as read in interpolation input file |
---|
24 | ! --------------------------------------------------------------- |
---|
25 | ! |
---|
26 | USE mod_kinds_oasis |
---|
27 | INTEGER (kind=ip_intwp_p) :: nc_grdid, nc_mskid, nc_surid, n_reaty, n_intty |
---|
28 | INTEGER (kind=ip_intwp_p) :: nc_scpid |
---|
29 | INTEGER (kind=ip_intwp_p),DIMENSION(:),ALLOCATABLE :: nc_inpid, nc_outid |
---|
30 | INTEGER (kind=ip_intwp_p) :: nc_invartimeid |
---|
31 | ! |
---|
32 | LOGICAL :: lncdfgrd, lncdfrst, lncdfana |
---|
33 | ! |
---|
34 | REAL(kind=ip_realwp_p) :: rtime_val |
---|
35 | ! |
---|
36 | CHARACTER(len=20) :: nc_invartime_name |
---|
37 | ! |
---|
38 | !* ------------------------------------------------------------------ |
---|
39 | ! |
---|
40 | END MODULE mod_unitncdf |
---|
41 | ! |
---|
42 | !*==================================================================== |
---|
43 | |
---|
44 | |
---|
45 | |
---|
46 | |
---|
47 | |
---|
48 | |
---|
49 | |
---|
50 | |
---|
51 | |
---|