source: LMDZ4/branches/LMDZ4-dev/libf/bibio/netcdf95.f90 @ 1154

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$
2module 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
40end module netcdf95
Note: See TracBrowser for help on using the repository browser.