PROGRAM SCAL
c
IMPLICIT NONE
c
INTEGER*4 BASETIME
INTEGER NCID, RCODE
INTEGER TIMOFF_ID,BTIM_ID
INTEGER LON_ID,LAT_ID,ALT_ID
INTEGER VAR_ID
INTEGER TIMDIM,TDIM,I
CHARACTER FICNAME*14
c
PARAMETER(TDIM=10)
c
REAL TTIME(TDIM)
REAL LON(TDIM),LAT(TDIM),ALT(TDIM),VAR_SC(TDIM)
c
DATA BASETIME /720489600/
c
INCLUDE 'netcdf.inc'
c
c ---------- Initialisation variables ----------
c
DO 100 I=1,TDIM
LON(I) = 100. + I
LAT(I) = 0. + 2*I
ALT(I) = 10. * I
TTIME(I) = 5. *I
VAR_SC(I) = 0.
100 CONTINUE
c
c ---------- Creation du fichier ----------
c
FICNAME = 'sc.cdf'
NCID = NCCRE(FICNAME, NCCLOB, RCODE)
c
c ---------- Definition dimensions ----------
c
TIMDIM = NCDDEF(NCID, 'time', NCUNLIM, RCODE)
c
c ---------- Definition variables ----------
c
VAR_ID = NCVDEF (NCID, 'var_sc', NCFLOAT, 1, TIMDIM, RCODE)
BTIM_ID = NCVDEF (NCID, 'base_time', NCLONG, 0, 1, RCODE)
TIMOFF_ID = NCVDEF (NCID, 'time_offset', NCFLOAT, 1, TIMDIM,
s RCODE)
LON_ID = NCVDEF (NCID, 'lon', NCFLOAT, 1, TIMDIM, RCODE)
LAT_ID = NCVDEF (NCID, 'lat', NCFLOAT, 1, TIMDIM, RCODE)
ALT_ID = NCVDEF (NCID, 'alt', NCFLOAT, 1, TIMDIM, RCODE)
c
c ---------- Definition attributs ----------
c
CALL NCAPT (NCID, VAR_ID, 'missing_value', NCFLOAT, 1, -9999.,
s RCODE )
CALL NCAPTC (NCID, VAR_ID, 'long_name', NCCHAR, 20,
s 'Variable scalaire', RCODE )
c
CALL NCENDF (NCID, RCODE)
c
CALL NCVPT (NCID, VAR_ID, 1, TDIM, VAR_SC, RCODE)
CALL NCVPT1 (NCID, BTIM_ID, 1, BASETIME, RCODE)
CALL NCVPT (NCID, TIMOFF_ID, 1,TDIM , TTIME, RCODE)
CALL NCVPT (NCID, LON_ID, 1, TDIM, LON, RCODE)
CALL NCVPT (NCID, LAT_ID, 1, TDIM, LAT, RCODE)
CALL NCVPT (NCID, ALT_ID, 1, TDIM, ALT, RCODE)
c
CALL NCVPT (NCID, TIMOFF_ID, 1, tdim , TTIME, RCODE)
CALL NCCLOS(NCID, RCODE)
c
END