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

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

@@ -73 +73 @@
 
     ! Poles:
-    do j = 1, nbp_lat, nbp_lat-1
+    DO j = 1, nbp_lat, nbp_lat-1
        CALL regr_conserv(1, r_mob(j, :), press_in_edg, &
             p3d(1, j, nbp_lev + 1:1:-1), o3_mob_regr(1, j, nbp_lev:1:-1))
@@ -80 +80 @@
 
     ! Other latitudes:
-    do j = 2, nbp_lat-1
-       do i = 1, nbp_lon
+    DO j = 2, nbp_lat-1
+       DO i = 1, nbp_lon
           CALL regr_conserv(1, r_mob(j, :), press_in_edg, &
                p3d(i, j, nbp_lev + 1:1:-1), o3_mob_regr(i, j, nbp_lev:1:-1))