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

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/writedyn_xios.F90

@@ -133 +133 @@
 
   !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
-  do ll = 1, llm
-    do ii = ijb, ije
+  DO ll = 1, llm
+    DO ii = ijb, ije
       tm(ii, ll) = teta(ii, ll) * ppk(ii, ll) / cpp
     enddo