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

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/inidissip.F90

@@ -173 +173 @@
 
   IF (vert_prof_dissip == 1) THEN
-    do l = 1, llm
+    DO l = 1, llm
       pseudoz = 8. * log(preff / presnivs(l))
       zvert(l) = 1 + &