Changeset 5071 for LMDZ6/trunk/libf/misc

Timestamp:

Jul 18, 2024, 3:07:22 PM (7 months ago)

Author:

abarral

Message:

Replace nf_put_var* by nf90_put_var as discussed w/ Lionel

File:

• LMDZ6/trunk/libf/misc/lmdz_netcdf.F90 (modified) (1 diff)

LMDZ6/trunk/libf/misc/lmdz_netcdf.F90

@@ -30 +30 @@
 CONTAINS
 
-  ! Note: below, we use the same declarations as the fortran netcdf lib, hence the use of (*)
-
-  ! We'd like to use "nf_put_var", but it already exists as a legacy nc4 function
-  ! CPP_NC_DOUBLE wrapper around nf_put_var_real, nf_put_var_double
-  INTEGER FUNCTION nf_put_var_rd(ncid, varid, vals)
-    INTEGER, INTENT(IN) :: ncid, varid
-    REAl(REAL_FORMAT), INTENT(IN) :: vals(*)  ! (*) as declared in netcdf lib
-
-    IF (CPP_NC_DOUBLE) THEN
-      nf_put_var_rd = nf_put_var_double(ncid, varid, vals)
-    ELSE
-      nf_put_var_rd = nf_put_var_real(ncid, varid, vals)
-    END IF
-  END FUNCTION nf_put_var_rd
-
-  ! CPP_NC_DOUBLE wrapper around nf_put_vara_real, nf_put_vara_double
-  INTEGER FUNCTION nf_put_vara_rd(ncid, varid, start, counts, vals)
-    INTEGER, INTENT(IN) :: ncid, varid
-    INTEGER, INTENT(IN) :: start(*), counts(*)
-    REAl(REAL_FORMAT), INTENT(IN) :: vals(*)
-
-    IF (CPP_NC_DOUBLE) THEN
-      nf_put_vara_rd = nf_put_vara_double(ncid, varid, start, counts, vals)
-    ELSE
-      nf_put_vara_rd = nf_put_vara_real(ncid, varid, start, counts, vals)
-    END IF
-  END FUNCTION nf_put_vara_rd
-
-  ! CPP_NC_DOUBLE wrapper around nf_get_vara_real, nf_get_vara_double
-  INTEGER FUNCTION nf_get_vara_rd(ncid, varid, start, counts, vals)
-    INTEGER, INTENT(IN) :: ncid, varid
-    INTEGER, INTENT(IN) :: start(*), counts(*)
-    REAl(REAL_FORMAT), INTENT(OUT) :: vals(*)
-
-    IF (CPP_NC_DOUBLE) THEN
-      nf_get_vara_rd = nf_get_vara_double(ncid, varid, start, counts, vals)
-    ELSE
-      nf_get_vara_rd = nf_get_vara_real(ncid, varid, start, counts, vals)
-    END IF
-  END FUNCTION nf_get_vara_rd
-
 END MODULE lmdz_netcdf