Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/gr_int_dyn.f90

Timestamp:

Jul 24, 2024, 4:23:34 PM (2 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/gr_int_dyn.f90 (modified) (1 diff)

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

@@ -34 +34 @@
   do j = 1, jp1
     do i = 1, iim
-      if (j == 1) THEN
+      IF (j == 1) THEN
         champdyn(i, j) = polenord
-      else if (j == jp1) THEN
+      ELSE IF (j == jp1) THEN
         champdyn(i, j) = polesud
       else