Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/o3_chem_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/phylmd/o3_chem_m.F90 (modified) (1 diff)

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

@@ -161 +161 @@
     ! above the middle of layer "k":
     sigma_mass(:, nbp_lev) = zmasse(:, nbp_lev) * q(:, nbp_lev) ! top layer
-    do k =  nbp_lev - 1, 1, -1
+    DO k =  nbp_lev - 1, 1, -1
        sigma_mass(:, k) = sigma_mass(:, k+1) + zmasse(:, k) * q(:, k)
     END DO