Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/iophys.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/iophys.F90 (modified) (2 diffs)

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

@@ -231 +231 @@
 
   ijl = 0
-  do l = 1, lllm
+  DO l = 1, lllm
     ! Pole nord
     ijl = ijl + 1
-    do i = 1, imax
+    DO i = 1, imax
       zx(i, 1, l) = px(ijl)
     enddo
     ! Grille normale
-    do j = 2, jmax - 1
-      do i = 1, imax
+    DO j = 2, jmax - 1
+      DO i = 1, imax
         ijl = ijl + 1
         zx(i, j, l) = px(ijl)
@@ -247 +247 @@
     IF (jmax > 1) THEN
       ijl = ijl + 1
-      do i = 1, imax
+      DO i = 1, imax
         zx(i, jmax, l) = px(ijl)
       enddo