Last change
on this file since 1192 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
|
Rev | Line | |
---|
[1157] | 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.