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

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

@@ -46 +46 @@
   ifd(if) = im
   imd(if) = im
-  do i = 1, im
+  DO i = 1, im
     xd(i, if) = x(i) * fx
     IF(xd(i, if)<xmin) iid(if) = i + 1
@@ -56 +56 @@
   jfd(if) = jm
   jmd(if) = jm
-  do j = 1, jm
+  DO j = 1, jm
     yd(j, if) = y(j) * fy
     IF(yd(j, if)>ymax) jid(if) = j + 1
@@ -78 +78 @@
 
   lmd(if) = lm
-  do l = 1, lm
+  DO l = 1, lm
     zd(l, if) = z(l) * fz
   enddo