赋值出现问题

fcode

这是 nf_put_vara_NF_TYPE 的问题，跟其他的无关。这一堆

#define CONCAT3（op，T，D）op / ** / T / ** / D
#define CONCAT2（op，T）op / ** / T

#define NF_GET_VARA_(T) CONCAT2(nf_get_vara_,T)
#define NF_GET_VARA_T NF_GET_VARA_(NF_TYPE)

的#define NF_PUT_VARA_(T) CONCAT2(nf_put_vara_,T)
的#define NF_PUT_VARA_T NF_PUT_VARA_(NF_TYPE)

都是无关的内容。

定义一下就行了，比如
integer :: nf_put_vara_NF_TYPE

PS :   netcdf 的早期版本在现在的编译器看来，是有问题的