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

Timestamp:

Jul 24, 2024, 4:23:34 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

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

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

@@ -35 +35 @@
 
   ierr = nf90_open ("limitcarbon.nc", nf90_nowrite, nid1)
-  if (ierr/=nf90_noerr) THEN
+  IF (ierr/=nf90_noerr) THEN
     WRITE(6, *)' Pb d''ouverture du fichier limitbc.nc'
     WRITE(6, *)' ierr = ', ierr
     CALL exit(1)
-  endif
+  ENDIF
 
   ! Tranche a lire: