Changeset 5182 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/dynredem_loc.F90

Timestamp:

Sep 10, 2024, 4:25:29 PM (2 months ago)

Author:

abarral

Message:

(WIP) Replace REPROBUS CPP KEY by logical
properly name modules

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/dynredem_loc.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/dynredem_loc.F90

@@ -8 +8 @@
   USE mod_hallo
   USE lmdz_strings, ONLY: maxlen
-  USE infotrac, ONLY: nqtot, tracers
+  USE lmdz_infotrac, ONLY: nqtot, tracers
   USE netcdf, ONLY: nf90_create, nf90_def_dim, nf90_inq_varid, nf90_global, &
           nf90_close, nf90_put_att, nf90_unlimited, nf90_clobber, &
@@ -169 +169 @@
   USE mod_hallo
   USE lmdz_strings, ONLY: maxlen
-  USE infotrac, ONLY: nqtot, tracers, type_trac
+  USE lmdz_infotrac, ONLY: nqtot, tracers, type_trac
   USE control_mod
   USE netcdf, ONLY: nf90_open, nf90_nowrite, nf90_get_var, nf90_inq_varid, &