Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotopes_mod.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/phylmdiso/isotopes_mod.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotopes_mod.F90

@@ -289 +289 @@
    ALLOCATE(Rmethox(niso))
 
-   do ixt=1,niso
+   DO ixt=1,niso
      IF (ixt.EQ.iso_HTO) then  ! Tritium
        tkcin0(ixt) = 0.01056