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

LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_qsat.F90

@@ -74 +74 @@
     DO iter = 1, 10
       afaire(:) = abs(DT(:))>DDT0
-      do ig = 1, klon
+      DO ig = 1, klon
         IF (afaire(ig)) THEN
           Tbef(ig) = Tbef(ig) + DT(ig)