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

Timestamp:

Jul 24, 2024, 2:54:37 PM (2 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/condsurfc_new.f90 (modified) (1 diff)

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

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