GCC Code Coverage Report

Directory:	./
File:	phys/iotd_fin.f90
Date:	2022-01-11 19:19:34

	Exec	Total	Coverage
Lines:	0	3	0.0%
Branches:	0	0	-%

1

✗

SUBROUTINE iotd_fin

2

IMPLICIT NONE

3

4

!=======================================================================

!

! Auteur: F. Hourdin

! -------

!

! Objet:

! ------

! Light interface for netcdf outputs. can be used outside LMDZ

12

!

13

!=======================================================================

! NetCDF-3.

!

! netcdf version 3 fortran interface:

!

!

! external netcdf data types:

!

integer nf_byte

integer nf_int1

integer nf_char

integer nf_short

integer nf_int2

integer nf_int

integer nf_float

integer nf_real

integer nf_double

parameter (nf_byte = 1)

35

parameter (nf_int1 = nf_byte)

36

parameter (nf_char = 2)

37

parameter (nf_short = 3)

38

parameter (nf_int2 = nf_short)

39

parameter (nf_int = 4)

40

parameter (nf_float = 5)

41

parameter (nf_real = nf_float)

42

parameter (nf_double = 6)

43

44

!

45

! default fill values:

!

integer nf_fill_byte

integer nf_fill_int1

integer nf_fill_char

integer nf_fill_short

integer nf_fill_int2

integer nf_fill_int

real nf_fill_float

real nf_fill_real

doubleprecision nf_fill_double

56

57

parameter (nf_fill_byte = -127)

58

parameter (nf_fill_int1 = nf_fill_byte)

59

parameter (nf_fill_char = 0)

60

parameter (nf_fill_short = -32767)

61

parameter (nf_fill_int2 = nf_fill_short)

62

parameter (nf_fill_int = -2147483647)

63

parameter (nf_fill_float = 9.9692099683868690e+36)

64

parameter (nf_fill_real = nf_fill_float)

65

parameter (nf_fill_double = 9.9692099683868690e+36)

66

67

!

68

! mode flags for opening and creating a netcdf dataset:

!

integer nf_nowrite

integer nf_write

integer nf_clobber

integer nf_noclobber

integer nf_fill

integer nf_nofill

integer nf_lock

integer nf_share

integer nf_64bit_offset

79

integer nf_sizehint_default

80

integer nf_align_chunk

81

integer nf_format_classic

82

integer nf_format_64bit

83

84

parameter (nf_nowrite = 0)

85

parameter (nf_write = 1)

86

parameter (nf_clobber = 0)

87

parameter (nf_noclobber = 4)

88

parameter (nf_fill = 0)

89

parameter (nf_nofill = 256)

90

parameter (nf_lock = 1024)

91

parameter (nf_share = 2048)

92

parameter (nf_64bit_offset = 512)

93

parameter (nf_sizehint_default = 0)

94

parameter (nf_align_chunk = -1)

95

parameter (nf_format_classic = 1)

96

parameter (nf_format_64bit = 2)

97

98

!

99

! size argument for defining an unlimited dimension:

100

!

101

integer nf_unlimited

102

parameter (nf_unlimited = 0)

103

104

!

105

! global attribute id:

106

!

107

integer nf_global

108

parameter (nf_global = 0)

109

110

!

111

! implementation limits:

!

integer nf_max_dims

integer nf_max_attrs

integer nf_max_vars

integer nf_max_name

integer nf_max_var_dims

118

119

parameter (nf_max_dims = 1024)

120

parameter (nf_max_attrs = 8192)

121

parameter (nf_max_vars = 8192)

122

parameter (nf_max_name = 256)

123

parameter (nf_max_var_dims = nf_max_dims)

!

! error codes:

!

integer nf_noerr

integer nf_ebadid

integer nf_eexist

integer nf_einval

integer nf_eperm

integer nf_enotindefine

134

integer nf_eindefine

135

integer nf_einvalcoords

136

integer nf_emaxdims

137

integer nf_enameinuse

integer nf_enotatt

integer nf_emaxatts

integer nf_ebadtype

integer nf_ebaddim

integer nf_eunlimpos

integer nf_emaxvars

integer nf_enotvar

integer nf_eglobal

integer nf_enotnc

integer nf_ests

integer nf_emaxname

integer nf_eunlimit

integer nf_enorecvars

integer nf_echar

integer nf_eedge

integer nf_estride

integer nf_ebadname

integer nf_erange

integer nf_enomem

integer nf_evarsize

integer nf_edimsize

integer nf_etrunc

parameter (nf_noerr = 0)

162

parameter (nf_ebadid = -33)

163

parameter (nf_eexist = -35)

164

parameter (nf_einval = -36)

165

parameter (nf_eperm = -37)

166

parameter (nf_enotindefine = -38)

167

parameter (nf_eindefine = -39)

168

parameter (nf_einvalcoords = -40)

169

parameter (nf_emaxdims = -41)

170

parameter (nf_enameinuse = -42)

171

parameter (nf_enotatt = -43)

172

parameter (nf_emaxatts = -44)

173

parameter (nf_ebadtype = -45)

174

parameter (nf_ebaddim = -46)

175

parameter (nf_eunlimpos = -47)

176

parameter (nf_emaxvars = -48)

177

parameter (nf_enotvar = -49)

178

parameter (nf_eglobal = -50)

179

parameter (nf_enotnc = -51)

180

parameter (nf_ests = -52)

181

parameter (nf_emaxname = -53)

182

parameter (nf_eunlimit = -54)

183

parameter (nf_enorecvars = -55)

184

parameter (nf_echar = -56)

185

parameter (nf_eedge = -57)

186

parameter (nf_estride = -58)

187

parameter (nf_ebadname = -59)

188

parameter (nf_erange = -60)

189

parameter (nf_enomem = -61)

190

parameter (nf_evarsize = -62)

191

parameter (nf_edimsize = -63)

192

parameter (nf_etrunc = -64)

193

!

194

! error handling modes:

!

integer nf_fatal

integer nf_verbose

parameter (nf_fatal = 1)

200

parameter (nf_verbose = 2)

201

202

!

203

! miscellaneous routines:

204

!

205

character*80 nf_inq_libvers

206

external nf_inq_libvers

207

208

character*80 nf_strerror

! (integer ncerr)

external nf_strerror

logical nf_issyserr

! (integer ncerr)

external nf_issyserr

!

! control routines:

!

integer nf_inq_base_pe

220

! (integer ncid,

221

! integer pe)

222

external nf_inq_base_pe

223

224

integer nf_set_base_pe

225

! (integer ncid,

226

! integer pe)

227

external nf_set_base_pe

228

229

integer nf_create

230

! (character*(*) path,

! integer cmode,

! integer ncid)

external nf_create

integer nf__create

! (character*(*) path,

237

! integer cmode,

238

! integer initialsz,

239

! integer chunksizehint,

! integer ncid)

external nf__create

integer nf__create_mp

244

! (character*(*) path,

! integer cmode,

! integer initialsz,

! integer basepe,

! integer chunksizehint,

249

! integer ncid)

250

external nf__create_mp

251

252

integer nf_open

253

! (character*(*) path,

! integer mode,

! integer ncid)

external nf_open

integer nf__open

! (character*(*) path,

260

! integer mode,

261

! integer chunksizehint,

! integer ncid)

external nf__open

integer nf__open_mp

! (character*(*) path,

267

! integer mode,

268

! integer basepe,

269

! integer chunksizehint,

! integer ncid)

external nf__open_mp

integer nf_set_fill

! (integer ncid,

! integer fillmode,

! integer old_mode)

external nf_set_fill

integer nf_set_default_format

280

! (integer format,

281

! integer old_format)

282

external nf_set_default_format

integer nf_redef

! (integer ncid)

external nf_redef

integer nf_enddef

! (integer ncid)

external nf_enddef

integer nf__enddef

! (integer ncid,

! integer h_minfree,

! integer v_align,

! integer v_minfree,

! integer r_align)

external nf__enddef

integer nf_sync

! (integer ncid)

external nf_sync

integer nf_abort

! (integer ncid)

external nf_abort

integer nf_close

! (integer ncid)

external nf_close

integer nf_delete

! (character*(*) ncid)

external nf_delete

!

! general inquiry routines:

!

integer nf_inq

! (integer ncid,

! integer ndims,

! integer nvars,

! integer ngatts,

! integer unlimdimid)

external nf_inq

integer nf_inq_ndims

! (integer ncid,

! integer ndims)

external nf_inq_ndims

integer nf_inq_nvars

! (integer ncid,

! integer nvars)

external nf_inq_nvars

integer nf_inq_natts

! (integer ncid,

! integer ngatts)

external nf_inq_natts

342

343

integer nf_inq_unlimdim

344

! (integer ncid,

345

! integer unlimdimid)

346

external nf_inq_unlimdim

347

348

integer nf_inq_format

349

! (integer ncid,

350

! integer format)

351

external nf_inq_format

352

353

!

354

! dimension routines:

!

integer nf_def_dim

! (integer ncid,

! character(*) name,

! integer len,

! integer dimid)

external nf_def_dim

integer nf_inq_dimid

! (integer ncid,

! character(*) name,

! integer dimid)

external nf_inq_dimid

integer nf_inq_dim

! (integer ncid,

! integer dimid,

! character(*) name,

! integer len)

external nf_inq_dim

integer nf_inq_dimname

! (integer ncid,

! integer dimid,

! character(*) name)

external nf_inq_dimname

382

383

integer nf_inq_dimlen

! (integer ncid,

! integer dimid,

! integer len)

external nf_inq_dimlen

388

389

integer nf_rename_dim

! (integer ncid,

! integer dimid,

! character(*) name)

external nf_rename_dim

394

395

!

396

! general attribute routines:

!

integer nf_inq_att

! (integer ncid,

! integer varid,

! character(*) name,

! integer xtype,

! integer len)

external nf_inq_att

integer nf_inq_attid

! (integer ncid,

! integer varid,

! character(*) name,

! integer attnum)

external nf_inq_attid

413

414

integer nf_inq_atttype

! (integer ncid,

! integer varid,

! character(*) name,

! integer xtype)

external nf_inq_atttype

420

421

integer nf_inq_attlen

! (integer ncid,

! integer varid,

! character(*) name,

! integer len)

external nf_inq_attlen

427

428

integer nf_inq_attname

! (integer ncid,

! integer varid,

! integer attnum,

! character(*) name)

external nf_inq_attname

integer nf_copy_att

! (integer ncid_in,

! integer varid_in,

! character(*) name,

! integer ncid_out,

! integer varid_out)

external nf_copy_att

integer nf_rename_att

444

! (integer ncid,

445

! integer varid,

446

! character(*) curname,

447

! character(*) newname)

448

external nf_rename_att

integer nf_del_att

! (integer ncid,

! integer varid,

! character(*) name)

external nf_del_att

!

! attribute put/get routines:

458

!

459

460

integer nf_put_att_text

! (integer ncid,

! integer varid,

! character(*) name,

! integer len,

! character(*) text)

external nf_put_att_text

467

468

integer nf_get_att_text

! (integer ncid,

! integer varid,

! character(*) name,

! character(*) text)

external nf_get_att_text

474

475

integer nf_put_att_int1

! (integer ncid,

! integer varid,

! character(*) name,

! integer xtype,

! integer len,

! nf_int1_t i1vals(1))

482

external nf_put_att_int1

483

484

integer nf_get_att_int1

! (integer ncid,

! integer varid,

! character(*) name,

! nf_int1_t i1vals(1))

489

external nf_get_att_int1

490

491

integer nf_put_att_int2

! (integer ncid,

! integer varid,

! character(*) name,

! integer xtype,

! integer len,

! nf_int2_t i2vals(1))

498

external nf_put_att_int2

499

500

integer nf_get_att_int2

! (integer ncid,

! integer varid,

! character(*) name,

! nf_int2_t i2vals(1))

505

external nf_get_att_int2

506

507

integer nf_put_att_int

! (integer ncid,

! integer varid,

! character(*) name,

! integer xtype,

! integer len,

! integer ivals(1))

external nf_put_att_int

515

516

integer nf_get_att_int

! (integer ncid,

! integer varid,

! character(*) name,

! integer ivals(1))

external nf_get_att_int

522

523

integer nf_put_att_real

! (integer ncid,

! integer varid,

! character(*) name,

! integer xtype,

! integer len,

! real rvals(1))

external nf_put_att_real

531

532

integer nf_get_att_real

! (integer ncid,

! integer varid,

! character(*) name,

! real rvals(1))

external nf_get_att_real

538

539

integer nf_put_att_double

! (integer ncid,

! integer varid,

! character(*) name,

! integer xtype,

! integer len,

! double dvals(1))

external nf_put_att_double

547

548

integer nf_get_att_double

! (integer ncid,

! integer varid,

! character(*) name,

! double dvals(1))

external nf_get_att_double

554

555

!

556

! general variable routines:

!

integer nf_def_var

! (integer ncid,

! character(*) name,

! integer datatype,

! integer ndims,

! integer dimids(1),

! integer varid)

external nf_def_var

integer nf_inq_var

! (integer ncid,

! integer varid,

! character(*) name,

! integer datatype,

! integer ndims,

! integer dimids(1),

! integer natts)

external nf_inq_var

integer nf_inq_varid

! (integer ncid,

! character(*) name,

! integer varid)

external nf_inq_varid

583

584

integer nf_inq_varname

! (integer ncid,

! integer varid,

! character(*) name)

external nf_inq_varname

589

590

integer nf_inq_vartype

! (integer ncid,

! integer varid,

! integer xtype)

external nf_inq_vartype

595

596

integer nf_inq_varndims

! (integer ncid,

! integer varid,

! integer ndims)

external nf_inq_varndims

601

602

integer nf_inq_vardimid

! (integer ncid,

! integer varid,

! integer dimids(1))

external nf_inq_vardimid

607

608

integer nf_inq_varnatts

! (integer ncid,

! integer varid,

! integer natts)

external nf_inq_varnatts

613

614

integer nf_rename_var

! (integer ncid,

! integer varid,

! character(*) name)

external nf_rename_var

integer nf_copy_var

! (integer ncid_in,

! integer varid,

! integer ncid_out)

external nf_copy_var

!

! entire variable put/get routines:

628

!

629

630

integer nf_put_var_text

! (integer ncid,

! integer varid,

! character(*) text)

external nf_put_var_text

635

636

integer nf_get_var_text

! (integer ncid,

! integer varid,

! character(*) text)

external nf_get_var_text

641

642

integer nf_put_var_int1

643

! (integer ncid,

644

! integer varid,

645

! nf_int1_t i1vals(1))

646

external nf_put_var_int1

647

648

integer nf_get_var_int1

649

! (integer ncid,

650

! integer varid,

651

! nf_int1_t i1vals(1))

652

external nf_get_var_int1

653

654

integer nf_put_var_int2

655

! (integer ncid,

656

! integer varid,

657

! nf_int2_t i2vals(1))

658

external nf_put_var_int2

659

660

integer nf_get_var_int2

661

! (integer ncid,

662

! integer varid,

663

! nf_int2_t i2vals(1))

664

external nf_get_var_int2

665

666

integer nf_put_var_int

! (integer ncid,

! integer varid,

! integer ivals(1))

external nf_put_var_int

671

672

integer nf_get_var_int

! (integer ncid,

! integer varid,

! integer ivals(1))

external nf_get_var_int

677

678

integer nf_put_var_real

! (integer ncid,

! integer varid,

! real rvals(1))

external nf_put_var_real

683

684

integer nf_get_var_real

! (integer ncid,

! integer varid,

! real rvals(1))

external nf_get_var_real

689

690

integer nf_put_var_double

691

! (integer ncid,

692

! integer varid,

693

! doubleprecision dvals(1))

694

external nf_put_var_double

695

696

integer nf_get_var_double

697

! (integer ncid,

698

! integer varid,

699

! doubleprecision dvals(1))

700

external nf_get_var_double

701

702

!

703

! single variable put/get routines:

704

!

705

706

integer nf_put_var1_text

! (integer ncid,

! integer varid,

! integer index(1),

! character*1 text)

external nf_put_var1_text

712

713

integer nf_get_var1_text

! (integer ncid,

! integer varid,

! integer index(1),

! character*1 text)

external nf_get_var1_text

719

720

integer nf_put_var1_int1

! (integer ncid,

! integer varid,

! integer index(1),

! nf_int1_t i1val)

external nf_put_var1_int1

726

727

integer nf_get_var1_int1

! (integer ncid,

! integer varid,

! integer index(1),

! nf_int1_t i1val)

external nf_get_var1_int1

733

734

integer nf_put_var1_int2

! (integer ncid,

! integer varid,

! integer index(1),

! nf_int2_t i2val)

external nf_put_var1_int2

740

741

integer nf_get_var1_int2

! (integer ncid,

! integer varid,

! integer index(1),

! nf_int2_t i2val)

external nf_get_var1_int2

747

748

integer nf_put_var1_int

! (integer ncid,

! integer varid,

! integer index(1),

! integer ival)

external nf_put_var1_int

754

755

integer nf_get_var1_int

! (integer ncid,

! integer varid,

! integer index(1),

! integer ival)

external nf_get_var1_int

761

762

integer nf_put_var1_real

! (integer ncid,

! integer varid,

! integer index(1),

! real rval)

external nf_put_var1_real

768

769

integer nf_get_var1_real

! (integer ncid,

! integer varid,

! integer index(1),

! real rval)

external nf_get_var1_real

775

776

integer nf_put_var1_double

! (integer ncid,

! integer varid,

! integer index(1),

! doubleprecision dval)

781

external nf_put_var1_double

782

783

integer nf_get_var1_double

! (integer ncid,

! integer varid,

! integer index(1),

! doubleprecision dval)

788

external nf_get_var1_double

789

790

!

791

! variable array put/get routines:

792

!

793

794

integer nf_put_vara_text

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! character(*) text)

external nf_put_vara_text

801

802

integer nf_get_vara_text

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! character(*) text)

external nf_get_vara_text

809

810

integer nf_put_vara_int1

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! nf_int1_t i1vals(1))

816

external nf_put_vara_int1

817

818

integer nf_get_vara_int1

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! nf_int1_t i1vals(1))

824

external nf_get_vara_int1

825

826

integer nf_put_vara_int2

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! nf_int2_t i2vals(1))

832

external nf_put_vara_int2

833

834

integer nf_get_vara_int2

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! nf_int2_t i2vals(1))

840

external nf_get_vara_int2

841

842

integer nf_put_vara_int

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer ivals(1))

external nf_put_vara_int

849

850

integer nf_get_vara_int

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer ivals(1))

external nf_get_vara_int

857

858

integer nf_put_vara_real

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! real rvals(1))

external nf_put_vara_real

865

866

integer nf_get_vara_real

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! real rvals(1))

external nf_get_vara_real

873

874

integer nf_put_vara_double

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! doubleprecision dvals(1))

880

external nf_put_vara_double

881

882

integer nf_get_vara_double

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! doubleprecision dvals(1))

888

external nf_get_vara_double

889

890

!

891

! strided variable put/get routines:

892

!

893

894

integer nf_put_vars_text

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer stride(1),

! character(*) text)

external nf_put_vars_text

902

903

integer nf_get_vars_text

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer stride(1),

! character(*) text)

external nf_get_vars_text

911

912

integer nf_put_vars_int1

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer stride(1),

! nf_int1_t i1vals(1))

919

external nf_put_vars_int1

920

921

integer nf_get_vars_int1

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer stride(1),

! nf_int1_t i1vals(1))

928

external nf_get_vars_int1

929

930

integer nf_put_vars_int2

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer stride(1),

! nf_int2_t i2vals(1))

937

external nf_put_vars_int2

938

939

integer nf_get_vars_int2

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer stride(1),

! nf_int2_t i2vals(1))

946

external nf_get_vars_int2

947

948

integer nf_put_vars_int

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer stride(1),

! integer ivals(1))

external nf_put_vars_int

956

957

integer nf_get_vars_int

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer stride(1),

! integer ivals(1))

external nf_get_vars_int

965

966

integer nf_put_vars_real

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer stride(1),

! real rvals(1))

external nf_put_vars_real

974

975

integer nf_get_vars_real

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer stride(1),

! real rvals(1))

external nf_get_vars_real

983

984

integer nf_put_vars_double

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer stride(1),

! doubleprecision dvals(1))

991

external nf_put_vars_double

992

993

integer nf_get_vars_double

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer stride(1),

! doubleprecision dvals(1))

1000

external nf_get_vars_double

1001

1002

!

1003

! mapped variable put/get routines:

1004

!

1005

1006

integer nf_put_varm_text

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer stride(1),

! integer imap(1),

! character(*) text)

external nf_put_varm_text

1015

1016

integer nf_get_varm_text

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer stride(1),

! integer imap(1),

! character(*) text)

external nf_get_varm_text

1025

1026

integer nf_put_varm_int1

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer stride(1),

! integer imap(1),

! nf_int1_t i1vals(1))

1034

external nf_put_varm_int1

1035

1036

integer nf_get_varm_int1

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer stride(1),

! integer imap(1),

! nf_int1_t i1vals(1))

1044

external nf_get_varm_int1

1045

1046

integer nf_put_varm_int2

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer stride(1),

! integer imap(1),

! nf_int2_t i2vals(1))

1054

external nf_put_varm_int2

1055

1056

integer nf_get_varm_int2

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer stride(1),

! integer imap(1),

! nf_int2_t i2vals(1))

1064

external nf_get_varm_int2

1065

1066

integer nf_put_varm_int

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer stride(1),

! integer imap(1),

! integer ivals(1))

external nf_put_varm_int

1075

1076

integer nf_get_varm_int

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer stride(1),

! integer imap(1),

! integer ivals(1))

external nf_get_varm_int

1085

1086

integer nf_put_varm_real

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer stride(1),

! integer imap(1),

! real rvals(1))

external nf_put_varm_real

1095

1096

integer nf_get_varm_real

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer stride(1),

! integer imap(1),

! real rvals(1))

external nf_get_varm_real

1105

1106

integer nf_put_varm_double

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer stride(1),

! integer imap(1),

! doubleprecision dvals(1))

1114

external nf_put_varm_double

1115

1116

integer nf_get_varm_double

! (integer ncid,

! integer varid,

! integer start(1),

! integer count(1),

! integer stride(1),

! integer imap(1),

! doubleprecision dvals(1))

1124

external nf_get_varm_double

! NetCDF-2.

!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

1129

! begin netcdf 2.4 backward compatibility:

!

!

! functions in the fortran interface

!

integer nccre

integer ncopn

integer ncddef

integer ncdid

integer ncvdef

integer ncvid

integer nctlen

integer ncsfil

external nccre

external ncopn

external ncddef

external ncdid

external ncvdef

external ncvid

external nctlen

external ncsfil

integer ncrdwr

integer nccreat

integer ncexcl

integer ncindef

integer ncnsync

integer nchsync

integer ncndirty

integer nchdirty

integer nclink

integer ncnowrit

integer ncwrite

integer ncclob

integer ncnoclob

integer ncglobal

integer ncfill

integer ncnofill

integer maxncop

integer maxncdim

integer maxncatt

integer maxncvar

integer maxncnam

integer maxvdims

integer ncnoerr

integer ncebadid

integer ncenfile

integer nceexist

integer nceinval

integer nceperm

integer ncenotin

integer nceindef

integer ncecoord

integer ncemaxds

integer ncename

integer ncenoatt

integer ncemaxat

integer ncebadty

integer ncebadd

integer ncests

integer nceunlim

integer ncemaxvs

integer ncenotvr

integer nceglob

integer ncenotnc

integer ncfoobar

integer ncsyserr

integer ncfatal

integer ncverbos

integer ncentool

!

! netcdf data types:

!

integer ncbyte

integer ncchar

integer ncshort

integer nclong

integer ncfloat

integer ncdouble

parameter(ncbyte = 1)

1215

parameter(ncchar = 2)

1216

parameter(ncshort = 3)

1217

parameter(nclong = 4)

1218

parameter(ncfloat = 5)

1219

parameter(ncdouble = 6)

1220

1221

!

1222

! masks for the struct nc flag field; passed in as 'mode' arg to

1223

! nccreate and ncopen.

1224

!

1225

1226

! read/write, 0 => readonly

1227

parameter(ncrdwr = 1)

1228

! in create phase, cleared by ncendef

1229

parameter(nccreat = 2)

1230

! on create destroy existing file

1231

parameter(ncexcl = 4)

1232

! in define mode, cleared by ncendef

1233

parameter(ncindef = 8)

1234

! synchronise numrecs on change (x'10')

1235

parameter(ncnsync = 16)

1236

! synchronise whole header on change (x'20')

1237

parameter(nchsync = 32)

1238

! numrecs has changed (x'40')

1239

parameter(ncndirty = 64)

1240

! header info has changed (x'80')

1241

parameter(nchdirty = 128)

1242

! prefill vars on endef and increase of record, the default behavior

1243

parameter(ncfill = 0)

1244

! do not fill vars on endef and increase of record (x'100')

1245

parameter(ncnofill = 256)

1246

! isa link (x'8000')

1247

parameter(nclink = 32768)

1248

1249

!

1250

! 'mode' arguments for nccreate and ncopen

1251

!

1252

parameter(ncnowrit = 0)

1253

parameter(ncwrite = ncrdwr)

1254

parameter(ncclob = nf_clobber)

1255

parameter(ncnoclob = nf_noclobber)

1256

1257

!

1258

! 'size' argument to ncdimdef for an unlimited dimension

1259

!

1260

integer ncunlim

1261

parameter(ncunlim = 0)

1262

1263

!

1264

! attribute id to put/get a global attribute

1265

!

1266

parameter(ncglobal = 0)

!

! advisory maximums:

!

parameter(maxncop = 64)

1272

parameter(maxncdim = 1024)

1273

parameter(maxncatt = 8192)

1274

parameter(maxncvar = 8192)

1275

! not enforced

1276

parameter(maxncnam = 256)

1277

parameter(maxvdims = maxncdim)

1278

1279

!

1280

! global netcdf error status variable

1281

! initialized in error.c

!

! no error

parameter(ncnoerr = nf_noerr)

1286

! not a netcdf id

1287

parameter(ncebadid = nf_ebadid)

1288

! too many netcdfs open

1289

parameter(ncenfile = -31) ! nc_syserr

1290

! netcdf file exists && ncnoclob

1291

parameter(nceexist = nf_eexist)

1292

! invalid argument

1293

parameter(nceinval = nf_einval)

1294

! write to read only

1295

parameter(nceperm = nf_eperm)

1296

! operation not allowed in data mode

1297

parameter(ncenotin = nf_enotindefine )

1298

! operation not allowed in define mode

1299

parameter(nceindef = nf_eindefine)

1300

! coordinates out of domain

1301

parameter(ncecoord = nf_einvalcoords)

1302

! maxncdims exceeded

1303

parameter(ncemaxds = nf_emaxdims)

1304

! string match to name in use

1305

parameter(ncename = nf_enameinuse)

1306

! attribute not found

1307

parameter(ncenoatt = nf_enotatt)

1308

! maxncattrs exceeded

1309

parameter(ncemaxat = nf_emaxatts)

1310

! not a netcdf data type

1311

parameter(ncebadty = nf_ebadtype)

1312

! invalid dimension id

1313

parameter(ncebadd = nf_ebaddim)

1314

! ncunlimited in the wrong index

1315

parameter(nceunlim = nf_eunlimpos)

1316

! maxncvars exceeded

1317

parameter(ncemaxvs = nf_emaxvars)

1318

! variable not found

1319

parameter(ncenotvr = nf_enotvar)

1320

! action prohibited on ncglobal varid

1321

parameter(nceglob = nf_eglobal)

1322

! not a netcdf file

1323

parameter(ncenotnc = nf_enotnc)

1324

parameter(ncests = nf_ests)

1325

parameter (ncentool = nf_emaxname)

1326

parameter(ncfoobar = 32)

1327

parameter(ncsyserr = -31)

1328

1329

!

1330

! global options variable. used to determine behavior of error handler.

1331

! initialized in lerror.c

1332

!

1333

parameter(ncfatal = 1)

1334

parameter(ncverbos = 2)

1335

1336

!

1337

! default fill values. these must be the same as in the c interface.

!

integer filbyte

integer filchar

integer filshort

integer fillong

real filfloat

doubleprecision fildoub

1345

1346

parameter (filbyte = -127)

1347

parameter (filchar = 0)

1348

parameter (filshort = -32767)

1349

parameter (fillong = -2147483647)

1350

parameter (filfloat = 9.9692099683868690e+36)

1351

parameter (fildoub = 9.9692099683868690e+36)

1352

!=======================================================================

!

! Auteur: F. Hourdin

! -------

!

! Objet:

! ------

! Light interface for netcdf outputs. can be used outside LMDZ

1360

!

1361

!=======================================================================

1362

1363

integer imax,jmax,lmax,nid

1364

INTEGER dim_coord(4)

1365

real iotd_ts,iotd_t0

1366

integer :: n_names_iotd_def

1367

character*20, dimension(200) :: names_iotd_def

1368

character*20 :: un_nom

1369

1370

common/iotd_ca/imax,jmax,lmax,nid,dim_coord,iotd_t0,iotd_ts

1371

common/iotd_cb/n_names_iotd_def,names_iotd_def

1372

!$OMP THREADPRIVATE(/iotd_ca/)

1373

!$OMP THREADPRIVATE(/iotd_cb/)

integer ierr

! Arguments:

! ----------

✗

ierr=NF_close(nid)

1380

1381

✗

END

1382