Changeset 5090 for LMDZ6/branches/Amaury_dev/libf/dyn3d/dynredem_mod.F90

Timestamp:

Jul 20, 2024, 6:08:57 PM (2 months ago)

Author:

abarral

Message:

Move lmdz_netcdf_format.F90 -> lmdz_cppkeys_wrapper.F90 to handle other CPP keys
Replace all (except wrapper) use of CPP_PHYS by fortran logical

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d/dynredem_mod.F90 (modified) (1 diff)

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

@@ -3 +3 @@
   USE netcdf, ONLY: nf90_strerror,nf90_noerr,nf90_redef,nf90_put_var,nf90_enddef,nf90_put_att,&
           nf90_inq_varid,nf90_get_var,nf90_def_var
-  USE lmdz_netcdf_format, ONLY: nf90_format
+  USE lmdz_cppkeys_wrapper, ONLY: nf90_format
   IMPLICIT NONE; PRIVATE
   PUBLIC :: dynredem_write_u, dynredem_write_v, dynredem_read_u, err