Changeset 5249 for LMDZ6/trunk/libf/dynphy_lonlat

Timestamp:

Oct 22, 2024, 11:35:08 AM (7 weeks ago)

Author:

abarral

Message:

Replace uses of cpp key NC_DOUBLE

File:

• LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90

@@ -80 +80 @@
   USE comconst_mod, ONLY: pi
   USE phys_cal_mod, ONLY: calend
+  USE lmdz_cppkeys_wrapper, ONLY: nf90_format
   IMPLICIT NONE
 !-------------------------------------------------------------------------------
@@ -107 +108 @@
   INTEGER :: id_tim,  id_SST,  id_BILS, id_RUG, id_ALB
   INTEGER :: id_FOCE, id_FSIC, id_FTER, id_FLIC, varid_longitude, varid_latitude
-  INTEGER :: NF90_FORMAT
   INTEGER :: ndays                   !--- Depending on the output calendar
   CHARACTER(LEN=ns) :: str
 
 !--- INITIALIZATIONS -----------------------------------------------------------
-#ifdef NC_DOUBLE
-  NF90_FORMAT=NF90_DOUBLE
-#else
-  NF90_FORMAT=NF90_FLOAT
-#endif
   CALL inigeom