Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/condsurfs.f90

Timestamp:

Jul 24, 2024, 2:54:37 PM (3 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/condsurfs.f90 (modified) (1 diff)

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

@@ -36 +36 @@
 
   ierr = nf90_open ("limitsoufre.nc", nf90_nowrite, nid)
-  if (ierr/=nf90_noerr) then
-    write(6, *)' Pb d''ouverture du fichier limitsoufre.nc'
-    write(6, *)' ierr = ', ierr
+  if (ierr/=nf90_noerr) THEN
+    WRITE(6, *)' Pb d''ouverture du fichier limitsoufre.nc'
+    WRITE(6, *)' ierr = ', ierr
     CALL exit(1)
   endif