Changeset 5073 for LMDZ6/trunk/libf/dynphy_lonlat/phylmd

Timestamp:

Jul 18, 2024, 4:57:05 PM (2 months ago)

Author:

abarral

Message:

Remove all NC_DOUBLE uses outside of lmdz_netcdf.F90 (except in obsolete/, which I hope we'll ditch soon...)
Note: make sure to check convergence at some point, it's possible that we've messed up some when replacing nf_* by nf90_* calls
(lint) replace obsolete logical operators along the way

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_netcdf, 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