Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/ener_conserv.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/phylmd/ener_conserv.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/ener_conserv.F90

@@ -179 +179 @@
     fluxt(:, klev + 1) = 0.
 
-    do k = klev, 1, -1
+    DO k = klev, 1, -1
       fluxu(:, k) = fluxu(:, k + 1) + masse(:, k) * d_u(:, k)
       fluxv(:, k) = fluxv(:, k + 1) + masse(:, k) * d_v(:, k)
@@ -189 +189 @@
     dddt(:, 1) = (exner(:, 1) - 1.) * fluxt(:, 1)
 
-    do k = 2, klev
+    DO k = 2, klev
       dddu(:, k) = (zu(:, k) - zu(:, k - 1)) * fluxu(:, k)
       dddv(:, k) = (zv(:, k) - zv(:, k - 1)) * fluxv(:, k)
@@ -198 +198 @@
     dddt(:, klev + 1) = 0.
 
-    do k = 1, klev
+    DO k = 1, klev
       d_t_ech(:, k) = -(rcpd * (dddt(:, k) + dddt(:, k + 1))) / (2. * rcpd * masse(:, k))
       d_t_ec(:, k) = -(dddu(:, k) + dddu(:, k + 1) + dddv(:, k) + dddv(:, k + 1)) / (2. * rcpd * masse(:, k)) + d_t_ech(:, k)