Last change
on this file since 1154 was
1154,
checked in by lguez, 16 years ago
|
-- Added "NetCDF95" interface in "bibio".
-- NetCDF95 uses the module "typesizes", which is part of NetCDF, so we
exclude dependency on "typesizes" in "bld.cfg".
-- Added "assert_eq" and "assert" procedures, which are in the public
part of Numerical Recipes.
-- Added some interpolation and regridding utilities in "bibio".
-- Added the ability to read an ozone climatology from a NetCDF file.
-- Commented out unused variables and code in "etat0_netcdf".
-- Updated calls to NetCDF in "etat0_netcdf": from Fortran 77
interface to Fortran 90 interface.
-- Removed useless "deallocate" at the end of "etat0_netcdf".
-- Corrected some declarations not conforming to Fortran standard, such
as "integer*4", or obsolescent such as "character*4".
-- Replaced some calls to not-standard function "float" by calls to
"real".
-- On Brodie at IDRIS, the NetCDF library compiled with OpenMP should
be used. Changed path in "arch-SX8_BRODIE.path".
-- Added warning for incompatibility of debugging options and OpenMP
parallelization in "makelmdz_fcm".
|
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.