Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_iotd.f90

Timestamp:

Aug 2, 2024, 2:12:03 PM (3 months ago)

Author:

abarral

Message:

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables

File:

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

LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_iotd.f90

@@ -249 +249 @@
     IF (ierr==0) THEN
       ierr = 0
-      do while (ierr==0)
+      DO while (ierr==0)
         read(99, *, iostat = ierr) un_nom
         IF (ierr==0) THEN