Changeset 5100 for LMDZ6/branches/Amaury_dev/libf/dyn3d/dynetat0.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/dynetat0.F90 (modified) (3 diffs)

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

@@ -8 +8 @@
   USE infotrac,    ONLY: nqtot, tracers, niso, iqIsoPha, iH2O, isoName
   USE strings_mod, ONLY: maxlen, msg, strStack, real2str, int2str
-  USE netcdf,      ONLY: NF90_OPEN,  NF90_NOWRITE, NF90_INQ_VARID, &
-                         NF90_CLOSE, nf90_get_var, nf90_noerr
+  USE netcdf,      ONLY: nf90_open,  nf90_nowrite, NF90_INQ_VARID, &
+                         nf90_close, nf90_get_var, nf90_noerr
   USE readTracFiles_mod, ONLY: new2oldH2O, newHNO3, oldHNO3, getKey
   USE control_mod, ONLY: planet_type
@@ -50 +50 @@
 !--- Initial state file opening
   var=fichnom
-  CALL err(NF90_OPEN(var,NF90_NOWRITE,fID),"open",var)
+  CALL err(nf90_open(var,nf90_nowrite,fID),"open",var)
   CALL get_var1("controle",tab_cntrl)
 
@@ -188 +188 @@
   END DO
 
-  CALL err(NF90_CLOSE(fID),"close",fichnom)
+  CALL err(nf90_close(fID),"close",fichnom)
   day_ini=day_ini+INT(time)
   time=time-INT(time)