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

Timestamp:

Jul 24, 2024, 2:54:37 PM (2 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

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

@@ -12 +12 @@
 
   INTEGER :: iim
-  integer :: ip1, jp1
+  INTEGER :: ip1, jp1
   REAL :: champin(iim, jp1)
   REAL :: champdyn(iim+1, jp1)
 
   INTEGER :: i, j
-  real :: polenord, polesud
+  REAL :: polenord, polesud
 
   !-----------------------------------------------------------------------
@@ -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