doc-doxygen/html/mod__unitncdf_8_f90_source.html

00001 MODULE mod_unitncdf
00002 !
00003 ! -- unitncdf.h: 23-03-01   Version 2.5   Author: S. Valcke
00004 !    **********
00005 !@
00006 !@  Contents : netcdf LOGICAL flags and file ids
00007 !@  --------
00008 !@
00009 !@ -- nc_grdid: netCDF id for grids.nc file
00010 !@ -- nc_mskid: netCDF id for masks.nc file
00011 !@ -- nc_surid: netCDF id for areas.nc file
00012 !@ -- nc_inpid: netCDF id for input field file
00013 !@ -- nc_scpid: netCDF id for SCRIP matrix file
00014 !@ -- nc_outid: netCDF id for output field file
00015 !@ -- nc_invartimeid: netCDF id for time variable (input file)
00016 !@
00017 !@ -- n_reaty: Type of REAL variables
00018 !@ -- n_intty: Type of INTEGER variables
00019 !@ -- lncdfgrd : LOGICAL true IF all grid auxilary files are netCDF
00020 !@ -- lncdfrst : LOGICAL true IF restart auxilary files are netCDF
00021 !@ -- lncdfana : LOGICAL true IF analysis auxilary files are netCDF
00022 !@
00023 !@ -- rtime_val : time counter as read in interpolation input file
00024 !     ---------------------------------------------------------------
00025 !
00026   USE mod_kinds_oasis
00027   INTEGER (kind=ip_intwp_p) :: nc_grdid, nc_mskid, nc_surid, n_reaty, n_intty
00028   INTEGER (kind=ip_intwp_p) :: nc_scpid
00029   INTEGER (kind=ip_intwp_p),DIMENSION(:),ALLOCATABLE ::  nc_inpid, nc_outid
00030   INTEGER (kind=ip_intwp_p) :: nc_invartimeid
00031 !
00032   LOGICAL :: lncdfgrd, lncdfrst, lncdfana
00033 !
00034   REAL(kind=ip_realwp_p) :: rtime_val
00035 !
00036   CHARACTER(len=20) :: nc_invartime_name
00037 !
00038 !* ------------------------------------------------------------------
00039 !
00040 END MODULE mod_unitncdf
00041 !
00042 !*====================================================================
00043
00044
00045
00046
00047
00048
00049
00050
00051