Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/cv3a_compress.F90

Timestamp:

Aug 2, 2024, 2:12:03 PM (7 weeks 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/cv3a_compress.F90 (modified) (2 diffs)

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

@@ -166 +166 @@
         omega(nn, k) = omega1(i, k)
 #ifdef ISO
-        do ixt=1,ntraciso
+        DO ixt=1,ntraciso
           xt(ixt,nn,k)=xt1(ixt,i,k)
           xt_wake(ixt,nn,k)=xt1_wake(ixt,i,k)
@@ -218 +218 @@
       Alp(nn) = Alp1(i)
 #ifdef ISO
-        do ixt=1,ntraciso
+        DO ixt=1,ntraciso
           xtnk(ixt,nn)=xtnk1(ixt,i)
         enddo