Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/gr_int_dyn.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/gr_int_dyn.f90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/gr_int_dyn.f90

@@ -26 +26 @@
   polenord = 0.
   polesud = 0.
-  do i = 1, iim
+  DO i = 1, iim
     polenord = polenord + champin (i, 1)
     polesud = polesud + champin (i, jp1)
@@ -32 +32 @@
   polenord = polenord / iim
   polesud = polesud / iim
-  do j = 1, jp1
-    do i = 1, iim
+  DO j = 1, jp1
+    DO i = 1, iim
       IF (j == 1) THEN
         champdyn(i, j) = polenord