source: CPL/oasis3/trunk/src/mod/oasis3/src/mod_unitncdf.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.5 KB
Line 
1MODULE 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!
40END MODULE mod_unitncdf
41!
42!*====================================================================
43
44
45
46
47
48
49
50
51
Note: See TracBrowser for help on using the repository browser.