Changeset 1635 for LMDZ5/trunk/libf/bibio/netcdf95.F90

Timestamp:

Jul 12, 2012, 1:37:16 PM (12 years ago)

Author:

lguez

Message:

In "dynetat0" and "dynredem_*", replaced calls to "nf_get_var*" and
"nf_put_var*" (old NetCDF 77 interface, embedded in a test of
NC_DOUBLE) by calls to "nf90_get_var" and "nf95_put_var". This
required a change of the rank of some variables in those procedures.

Updated the NetCDF95 library, included in "bibio".

Revision tested in sequential and parallel with MPI. Identical
results.

File:

• LMDZ5/trunk/libf/bibio/netcdf95.F90 (modified) (1 diff)

LMDZ5/trunk/libf/bibio/netcdf95.F90

@@ -3 +3 @@
 
   ! Author: Lionel GUEZ
-
-  ! Three criticisms may be made about the Fortran 90 NetCDF interface:
-
-  ! -- NetCDF procedures are usually functions with side effects.
-  ! First, they have "intent(out)" arguments.
-  ! Furthermore, there is obviously data transfer inside the procedures.
-  ! Any data transfer inside a function is considered as a side effect.
-
-  ! -- The caller of a NetCDF procedure usually has to handle the error
-  ! status. NetCDF procedures would be much friendlier if they behaved
-  ! like the Fortran input/output statements. That is, the error status
-  ! should be an optional output argument.
-  ! If the caller does not request the error status and there is an
-  ! error then the NetCDF procedure should produce an error message
-  ! and stop the program.
-
-  ! -- Some procedures use array arguments with assumed size.
-  ! It would be better to use the pointer attribute.
-
-  ! This module produces a NetCDF interface that answers those three
-  ! criticisms for some (not all) procedures.
-
-  ! "nf95_get_att" is more secure than "nf90_get_att" because it
-  ! checks that the "values" argument is long enough and removes the
-  ! null terminator, if any.
-
-  ! This module replaces some of the official NetCDF procedures.
-  ! This module also provides the procedures "handle_err" and "nf95_gw_var".
-
-  ! This module provides only a partial replacement for some generic
-  ! procedures such as "nf90_def_var".
+  ! See:
+  ! http://www.lmd.jussieu.fr/~lglmd/NetCDF95
 
   use nf95_def_var_m
   use nf95_put_var_m
+  use nf95_get_var_m
   use nf95_gw_var_m
   use nf95_put_att_m