Changeset 1635 for LMDZ5/trunk/libf/phylmd

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/phylmd/regr_lat_time_climoz_m.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/regr_lat_time_climoz_m.F90

@@ -224 +224 @@
     ! Get the  number of months:
     call nf95_inq_dimid(ncid_in, "time", dimid)
-    call nf95_inquire_dimension(ncid_in, dimid, len=n_month)
+    call nf95_inquire_dimension(ncid_in, dimid, nclen=n_month)
 
     allocate(o3_in(n_lat, n_plev, n_month, read_climoz))