Last change
on this file since 1211 was
1157,
checked in by Laurent Fairhead, 16 years ago
|
Le makegcm traditionnel ne sait pas gérer les *.f90
FH/LF
|
File size:
1.4 KB
|
Line | |
---|
1 | ! $Id$ |
---|
2 | module netcdf95 |
---|
3 | |
---|
4 | ! Author: Lionel GUEZ |
---|
5 | |
---|
6 | ! Three criticisms may be made about the Fortran 90 NetCDF interface: |
---|
7 | |
---|
8 | ! -- NetCDF procedures are usually functions with side effects. |
---|
9 | ! First, they have "intent(out)" arguments. |
---|
10 | ! Furthermore, there is obviously data transfer inside the procedures. |
---|
11 | ! Any data transfer inside a function is considered as a side effect. |
---|
12 | |
---|
13 | ! -- The caller of a NetCDF procedure usually has to handle the error |
---|
14 | ! status. NetCDF procedures would be much friendlier if they behaved |
---|
15 | ! like the Fortran input/output statements. That is, the error status |
---|
16 | ! should be an optional output argument. |
---|
17 | ! If the caller does not request the error status and there is an |
---|
18 | ! error then the NetCDF procedure should produce an error message |
---|
19 | ! and stop the program. |
---|
20 | |
---|
21 | ! -- Some procedures use array arguments with assumed size. |
---|
22 | ! It would be better to use the pointer attribute. |
---|
23 | |
---|
24 | ! This module produces a NetCDF interface that answers those three |
---|
25 | ! criticisms for some (not all) procedures. |
---|
26 | |
---|
27 | ! This module replaces some of the official NetCDF procedures. |
---|
28 | ! This module also provides the procedures "handle_err" and "nf95_gw_var". |
---|
29 | |
---|
30 | ! This module provides only a partial replacement for some generic |
---|
31 | ! procedures such as "nf90_def_var". |
---|
32 | |
---|
33 | use nf95_def_var_m |
---|
34 | use nf95_put_var_m |
---|
35 | use nf95_gw_var_m |
---|
36 | use nf95_put_att_m |
---|
37 | use simple |
---|
38 | use handle_err_m |
---|
39 | |
---|
40 | end module netcdf95 |
---|
Note: See
TracBrowser
for help on using the repository browser.