Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/phylmd/read_map2D.F90

Timestamp:

Jul 23, 2024, 8:22:55 AM (4 months ago)

Author:

abarral

Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/read_map2D.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/read_map2D.F90

@@ -33 +33 @@
      IF (ierr /= nf90_noerr) CALL write_err_mess('Problem in opening file')
 
-     ierr = NF90_INQ_VARID(nid, trim(varname), nvarid)
+     ierr = nf90_inq_varid(nid, trim(varname), nvarid)
      IF (ierr /= nf90_noerr) CALL write_err_mess('The variable is absent in file')