Changeset 5100 for LMDZ6/branches/Amaury_dev/libf/dyn3d/iniacademic.F90

Timestamp:

Jul 23, 2024, 7:00:20 AM (8 weeks 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/libf/dyn3d/iniacademic.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d/iniacademic.F90

@@ -22 +22 @@
   USE ener_mod, ONLY: etot0,ptot0,ztot0,stot0,ang0
   USE readTracFiles_mod, ONLY: addPhase
-  use netcdf, only : NF90_NOWRITE,NF90_OPEN,nf90_noerr,NF90_INQ_VARID,NF90_CLOSE,nf90_get_var
+  use netcdf, only : nf90_nowrite,nf90_open,nf90_noerr,NF90_INQ_VARID,nf90_close,nf90_get_var
 
   !   Author:    Frederic Hourdin      original: 15/01/93
@@ -140 +140 @@
 
      relief=0.
-     ierr = NF90_OPEN ('relief_in.nc', NF90_NOWRITE,nid_relief)
+     ierr = nf90_open ('relief_in.nc', nf90_nowrite,nid_relief)
      if (ierr==nf90_noerr) THEN
          ierr=NF90_INQ_VARID(nid_relief,'RELIEF',varid)
@@ -150 +150 @@
          endif
      endif
-     ierr = NF90_CLOSE (nid_relief)
+     ierr = nf90_close (nid_relief)
 
      !------------------------------------------------------------------