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

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

@@ -30 +30 @@
   sommemasses = 0
   sommemqs = 0
-  do l = 1, llm
-    do i = 1, iip1
+  DO l = 1, llm
+    DO i = 1, iip1
       sommemasses(l) = sommemasses(l) + masse(i, jjp1, l)
       sommemqs(l) = sommemqs(l) + masse(i, jjp1, l) * q(i, jjp1, l)
@@ -41 +41 @@
   sommemassen = 0
   sommemqn = 0
-  do l = 1, llm
-    do i = 1, iip1
+  DO l = 1, llm
+    DO i = 1, iip1
       sommemassen(l) = sommemassen(l) + masse(i, 1, l)
       sommemqn(l) = sommemqn(l) + masse(i, 1, l) * q(i, 1, l)
@@ -50 +50 @@
 
   ! On force le traceur à prendre cette valeur aux pôles
-  do l = 1, llm
-    do i = 1, iip1
+  DO l = 1, llm
+    DO i = 1, iip1
       q(i, 1, l) = qpolen(l)
       q(i, jjp1, l) = qpoles(l)