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

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/inter_barxy_m.F90

@@ -261 +261 @@
     idat = 1
 
-    do while (imod <= imodmax)
-      do while (xxim(imod)>xxid(idat))
+    DO while (imod <= imodmax)
+      DO while (xxim(imod)>xxid(idat))
         dx = xxid(idat) - x0
         dxm = dxm + dx
@@ -330 +330 @@
     jdat = 1
 
-    do while (jmod <= size(yjmod))
-      do while (yjmod(jmod) > yjdat(jdat))
+    DO while (jmod <= size(yjmod))
+      DO while (yjmod(jmod) > yjdat(jdat))
         dy = yjdat(jdat) - y0
         dym = dym + dy