Changeset 5084 for LMDZ6/trunk/libf/dyn3d/dynetat0.F90

Timestamp:

Jul 19, 2024, 6:40:44 PM (2 months ago)

Author:

Laurent Fairhead

Message:

Reverting to r4065. Updating fortran standard broke too much stuff. Will do it by smaller chunks
AB, LF

File:

• LMDZ6/trunk/libf/dyn3d/dynetat0.F90 (modified) (1 diff)

LMDZ6/trunk/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 lmdz_netcdf,      ONLY: NF90_OPEN,  NF90_NOWRITE, NF90_INQ_VARID, &
+  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