Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/condsurfc.f90

Timestamp:

Jul 23, 2024, 8:22:55 AM (2 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/Dust/condsurfc.f90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/condsurfc.f90

@@ -4 +4 @@
         lmt_omnat)
   USE dimphy
-  USE netcdf, ONLY : nf90_close, nf90_noerr, nf90_inq_varid, nf90_open, nf90_nowrite, nf90_get_var
+  USE netcdf, ONLY: nf90_close, nf90_noerr, nf90_inq_varid, nf90_open, nf90_nowrite, nf90_get_var
   IMPLICIT none
 
@@ -38 +38 @@
     write(6, *)' Pb d''ouverture du fichier limitbc.nc'
     write(6, *)' ierr = ', ierr
-    call exit(1)
+    CALL exit(1)
   endif