source: LMDZ5/trunk/tools/Max_diff_nc_with_lib/NetCDF95/nf95_put_var.f90 @ 1907

Last change on this file since 1907 was 1907, checked in by lguez, 10 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 10.0 KB
Line 
1module nf95_put_var_m
2
3  implicit none
4
5  interface nf95_put_var
6     module procedure nf95_put_var_FourByteReal, nf95_put_var_FourByteInt, &
7          nf95_put_var_1D_FourByteReal, nf95_put_var_1D_FourByteInt, &
8          nf95_put_var_1D_EightByteReal, nf95_put_var_2D_FourByteReal, &
9          nf95_put_var_2D_EightByteReal, nf95_put_var_3D_FourByteReal, &
10          nf95_put_var_3D_EightByteReal, nf95_put_var_4D_FourByteReal, &
11          nf95_put_var_4D_EightByteReal
12  end interface
13
14  private
15  public nf95_put_var
16
17contains
18
19  subroutine nf95_put_var_FourByteReal(ncid, varid, values, start, ncerr)
20
21    use typesizes, only: FourByteReal
22    use netcdf, only: nf90_put_var
23    use handle_err_m, only: handle_err
24
25    integer, intent(in) :: ncid, varid
26    real(kind = FourByteReal), intent(in) :: values
27    integer, dimension(:), optional, intent(in) :: start
28    integer, intent(out), optional:: ncerr
29
30    ! Variable local to the procedure:
31    integer ncerr_not_opt
32
33    !-------------------
34
35    ncerr_not_opt = nf90_put_var(ncid, varid, values, start)
36    if (present(ncerr)) then
37       ncerr = ncerr_not_opt
38    else
39       call handle_err("nf95_put_var_FourByteReal", ncerr_not_opt, ncid, &
40            varid)
41    end if
42
43  end subroutine nf95_put_var_FourByteReal
44
45  !***********************
46
47  subroutine nf95_put_var_FourByteInt(ncid, varid, values, start, ncerr)
48
49    use typesizes, only: FourByteInt
50    use netcdf, only: nf90_put_var
51    use handle_err_m, only: handle_err
52
53    integer, intent(in) :: ncid, varid
54    integer(kind = FourByteInt), intent(in) :: values
55    integer, dimension(:), optional, intent(in) :: start
56    integer, intent(out), optional:: ncerr
57
58    ! Variable local to the procedure:
59    integer ncerr_not_opt
60
61    !-------------------
62
63    ncerr_not_opt = nf90_put_var(ncid, varid, values, start)
64    if (present(ncerr)) then
65       ncerr = ncerr_not_opt
66    else
67       call handle_err("nf95_put_var_FourByteInt", ncerr_not_opt, ncid, &
68            varid)
69    end if
70
71  end subroutine nf95_put_var_FourByteInt
72
73  !***********************
74
75  subroutine nf95_put_var_1D_FourByteReal(ncid, varid, values, start, &
76       count_nc, stride, map, ncerr)
77
78    use typesizes, only: FourByteReal
79    use netcdf, only: nf90_put_var
80    use handle_err_m, only: handle_err
81
82    integer,                         intent(in) :: ncid, varid
83    real(kind = FourByteReal), intent(in) :: values(:)
84    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
85    integer, intent(out), optional:: ncerr
86
87    ! Variable local to the procedure:
88    integer ncerr_not_opt
89
90    !-------------------
91
92    ncerr_not_opt = nf90_put_var(ncid, varid, values, start, count_nc, &
93         stride, map)
94    if (present(ncerr)) then
95       ncerr = ncerr_not_opt
96    else
97       call handle_err("nf95_put_var_1D_FourByteReal", ncerr_not_opt, ncid, &
98            varid)
99    end if
100
101  end subroutine nf95_put_var_1D_FourByteReal
102
103  !***********************
104
105  subroutine nf95_put_var_1D_FourByteInt(ncid, varid, values, start, &
106       count_nc, stride, map, ncerr)
107
108    use typesizes, only: FourByteInt
109    use netcdf, only: nf90_put_var
110    use handle_err_m, only: handle_err
111
112    integer,                         intent(in) :: ncid, varid
113    integer(kind = FourByteInt), intent(in) :: values(:)
114    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
115    integer, intent(out), optional:: ncerr
116
117    ! Variable local to the procedure:
118    integer ncerr_not_opt
119
120    !-------------------
121
122    ncerr_not_opt = nf90_put_var(ncid, varid, values, start, count_nc, &
123         stride, map)
124    if (present(ncerr)) then
125       ncerr = ncerr_not_opt
126    else
127       call handle_err("nf95_put_var_1D_FourByteInt", ncerr_not_opt, ncid, &
128            varid)
129    end if
130
131  end subroutine nf95_put_var_1D_FourByteInt
132
133  !***********************
134
135  subroutine nf95_put_var_1D_EightByteReal(ncid, varid, values, start, &
136       count_nc, stride, map, ncerr)
137
138    use typesizes, only: eightByteReal
139    use netcdf, only: nf90_put_var
140    use handle_err_m, only: handle_err
141
142    integer,                         intent(in) :: ncid, varid
143    real (kind = EightByteReal),     intent(in) :: values(:)
144    integer, dimension(:), optional, intent(in):: start, count_nc, stride, map
145    integer, intent(out), optional:: ncerr
146
147    ! Variable local to the procedure:
148    integer ncerr_not_opt
149
150    !-------------------
151
152    ncerr_not_opt = nf90_put_var(ncid, varid, values, start, count_nc, &
153         stride, map)
154    if (present(ncerr)) then
155       ncerr = ncerr_not_opt
156    else
157       call handle_err("nf95_put_var_1D_eightByteReal", ncerr_not_opt, ncid, &
158            varid)
159    end if
160
161  end subroutine nf95_put_var_1D_EightByteReal
162
163  !***********************
164
165  subroutine nf95_put_var_2D_FourByteReal(ncid, varid, values, start, &
166       count_nc, stride, map, ncerr)
167
168    use typesizes, only: FourByteReal
169    use netcdf, only: nf90_put_var
170    use handle_err_m, only: handle_err
171
172    integer,                         intent(in) :: ncid, varid
173    real (kind = FourByteReal), intent(in) :: values(:, :)
174    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
175    integer, intent(out), optional:: ncerr
176
177    ! Variable local to the procedure:
178    integer ncerr_not_opt
179
180    !-------------------
181
182    ncerr_not_opt = nf90_put_var(ncid, varid, values, start, count_nc, &
183         stride, map)
184    if (present(ncerr)) then
185       ncerr = ncerr_not_opt
186    else
187       call handle_err("nf95_put_var_2D_FourByteReal", ncerr_not_opt, ncid, &
188            varid)
189    end if
190
191  end subroutine nf95_put_var_2D_FourByteReal
192
193  !***********************
194
195  subroutine nf95_put_var_2D_EightByteReal(ncid, varid, values, start, &
196       count_nc, stride, map, ncerr)
197
198    use typesizes, only: EightByteReal
199    use netcdf, only: nf90_put_var
200    use handle_err_m, only: handle_err
201
202    integer,                         intent(in) :: ncid, varid
203    real (kind = EightByteReal), intent(in) :: values(:, :)
204    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
205    integer, intent(out), optional:: ncerr
206
207    ! Variable local to the procedure:
208    integer ncerr_not_opt
209
210    !-------------------
211
212    ncerr_not_opt = nf90_put_var(ncid, varid, values, start, count_nc, &
213         stride, map)
214    if (present(ncerr)) then
215       ncerr = ncerr_not_opt
216    else
217       call handle_err("nf95_put_var_2D_EightByteReal", ncerr_not_opt, ncid, &
218            varid)
219    end if
220
221  end subroutine nf95_put_var_2D_EightByteReal
222
223  !***********************
224
225  subroutine nf95_put_var_3D_FourByteReal(ncid, varid, values, start, &
226       count_nc, stride, map, ncerr)
227
228    use typesizes, only: FourByteReal
229    use netcdf, only: nf90_put_var
230    use handle_err_m, only: handle_err
231
232    integer,                         intent(in) :: ncid, varid
233    real (kind = FourByteReal), intent(in) :: values(:, :, :)
234    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
235    integer, intent(out), optional:: ncerr
236
237    ! Variable local to the procedure:
238    integer ncerr_not_opt
239
240    !-------------------
241
242    ncerr_not_opt = nf90_put_var(ncid, varid, values, start, count_nc, &
243         stride, map)
244    if (present(ncerr)) then
245       ncerr = ncerr_not_opt
246    else
247       call handle_err("nf95_put_var_3D_FourByteReal", ncerr_not_opt, ncid, &
248            varid)
249    end if
250
251  end subroutine nf95_put_var_3D_FourByteReal
252
253  !***********************
254
255  subroutine nf95_put_var_3D_EightByteReal(ncid, varid, values, start, &
256       count_nc, stride, map, ncerr)
257
258    use typesizes, only: eightByteReal
259    use netcdf, only: nf90_put_var
260    use handle_err_m, only: handle_err
261
262    integer,                         intent(in) :: ncid, varid
263    real (kind = EightByteReal),     intent(in) :: values(:, :, :)
264    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
265    integer, intent(out), optional:: ncerr
266
267    ! Variable local to the procedure:
268    integer ncerr_not_opt
269
270    !-------------------
271
272    ncerr_not_opt = nf90_put_var(ncid, varid, values, start, count_nc, &
273         stride, map)
274    if (present(ncerr)) then
275       ncerr = ncerr_not_opt
276    else
277       call handle_err("nf95_put_var_3D_eightByteReal", ncerr_not_opt, ncid, &
278            varid)
279    end if
280
281  end subroutine nf95_put_var_3D_EightByteReal
282
283  !***********************
284
285  subroutine nf95_put_var_4D_FourByteReal(ncid, varid, values, start, &
286       count_nc, stride, map, ncerr)
287
288    use typesizes, only: FourByteReal
289    use netcdf, only: nf90_put_var
290    use handle_err_m, only: handle_err
291
292    integer,                         intent(in) :: ncid, varid
293    real (kind = FourByteReal), intent(in) :: values(:, :, :, :)
294    integer, dimension(:), optional, intent(in) :: start, count_nc, stride, map
295    integer, intent(out), optional:: ncerr
296
297    ! Variable local to the procedure:
298    integer ncerr_not_opt
299
300    !-------------------
301
302    ncerr_not_opt = nf90_put_var(ncid, varid, values, start, count_nc, &
303         stride, map)
304    if (present(ncerr)) then
305       ncerr = ncerr_not_opt
306    else
307       call handle_err("nf95_put_var_4D_FourByteReal", ncerr_not_opt, ncid, &
308            varid)
309    end if
310
311  end subroutine nf95_put_var_4D_FourByteReal
312
313  !***********************
314
315  subroutine nf95_put_var_4D_EightByteReal(ncid, varid, values, start, &
316       count_nc, stride, map, ncerr)
317
318    use typesizes, only: EightByteReal
319    use netcdf, only: nf90_put_var
320    use handle_err_m, only: handle_err
321
322    integer, intent(in):: ncid, varid
323    real(kind = EightByteReal), intent(in):: values(:, :, :, :)
324    integer, dimension(:), optional, intent(in):: start, count_nc, stride, map
325    integer, intent(out), optional:: ncerr
326
327    ! Variable local to the procedure:
328    integer ncerr_not_opt
329
330    !-------------------
331
332    ncerr_not_opt = nf90_put_var(ncid, varid, values, start, count_nc, &
333         stride, map)
334    if (present(ncerr)) then
335       ncerr = ncerr_not_opt
336    else
337       call handle_err("nf95_put_var_4D_EightByteReal", ncerr_not_opt, ncid, &
338            varid)
339    end if
340
341  end subroutine nf95_put_var_4D_EightByteReal
342
343end module nf95_put_var_m
Note: See TracBrowser for help on using the repository browser.