Changeset 5100 for LMDZ6/branches/Amaury_dev/tools/netcdf95

Timestamp:

Jul 23, 2024, 7:00:20 AM (4 months ago)

Author:

abarral

Message:

Remove CPP_1D key. It was used once in a single file to wrap a whole internal module -> can't even compile if key is enabled.
(lint) Set NF90_* to lowercase

File:

• LMDZ6/branches/Amaury_dev/tools/netcdf95/Datasets/nf95_create_single.f90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/tools/netcdf95/Datasets/nf95_create_single.f90

@@ -19 +19 @@
     ! Shortcut to create a file containing a single primary variable.
 
-    use netcdf, only: NF90_CLOBBER, NF90_FLOAT
+    use netcdf, only: nf90_clobber, nf90_float
 
     use nf95_create_m, only: nf95_create
@@ -36 +36 @@
     !----------------------------------------------------------------------
 
-    call nf95_create(name // ".nc", NF90_CLOBBER, ncid)
+    call nf95_create(name // ".nc", nf90_clobber, ncid)
 
     do i = 1, size(coordinates)
        call nf95_def_dim(ncid, coordinates(i)%name, coordinates(i)%nclen, &
             dimids(i))
-       call nf95_def_var(ncid, coordinates(i)%name, NF90_FLOAT, dimids(i), &
+       call nf95_def_var(ncid, coordinates(i)%name, nf90_float, dimids(i), &
             varid_coord(i))
 
@@ -50 +50 @@
     END DO
 
-    call nf95_def_var(ncid, name, NF90_FLOAT, dimids, varid)
+    call nf95_def_var(ncid, name, nf90_float, dimids, varid)
 
   end subroutine nf95_create_single