Changeset 5084 for LMDZ6/trunk/libf/dyn3dmem/dynredem_mod.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/dyn3dmem/dynredem_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3dmem/dynredem_mod.F90

@@ -4 +4 @@
   USE parallel_lmdz
   USE mod_hallo
-  USE lmdz_netcdf, ONLY:nf90_strerror,nf90_noerr,nf90_redef,nf90_put_var,nf90_inquire_dimension,&
-          nf90_format,nf90_inq_varid,nf90_get_var,nf90_def_var,nf90_enddef,nf90_put_att
+  USE netcdf
   PRIVATE
   PUBLIC :: dynredem_write_u, dynredem_write_v, dynredem_read_u, err
@@ -181 +180 @@
   CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: units
 !===============================================================================
-  CALL err(NF90_DEF_VAR(ncid,var,NF90_FORMAT,did,nvarid),"inq",var)
+#ifdef NC_DOUBLE
+  CALL err(NF90_DEF_VAR(ncid,var,NF90_DOUBLE,did,nvarid),"inq",var)
+#else
+  CALL err(NF90_DEF_VAR(ncid,var,NF90_FLOAT ,did,nvarid),"inq",var)
+#endif
   IF(title/="")      CALL err(NF90_PUT_ATT(ncid,nvarid,"title",title),var)
   IF(PRESENT(units)) CALL err(NF90_PUT_ATT(ncid,nvarid,"units",units),var)