Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/o3_chem_m.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/o3_chem_m.F90 (modified) (3 diffs)

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

@@ -17 +17 @@
     ! Index "(i, :)" is for longitude "rlon(i)", latitude "rlat(i)".
 
-    use lmdz_assert, only: assert
-    use dimphy, only: klon
-    use regr_pr_comb_coefoz_m, only: c_Mob, a4_mass, a2, r_het_interm
-    use lmdz_grid_phy, only: nbp_lev
-    use nrtype, only: pi
+    use lmdz_assert, ONLY: assert
+    use dimphy, ONLY: klon
+    use regr_pr_comb_coefoz_m, ONLY: c_Mob, a4_mass, a2, r_het_interm
+    use lmdz_grid_phy, ONLY: nbp_lev
+    use nrtype, ONLY: pi
 
     integer, intent(in):: julien ! jour julien, 1 <= julien <= 360
@@ -115 +115 @@
     ! Index "(i, :)" is for longitude "rlon(i)", latitude "rlat(i)".
 
-    use regr_pr_comb_coefoz_m, only: a6_mass
-    use lmdz_assert, only: assert
-    use dimphy, only: klon
-    use lmdz_grid_phy, only: nbp_lev
+    use regr_pr_comb_coefoz_m, ONLY: a6_mass
+    use lmdz_assert, ONLY: assert
+    use dimphy, ONLY: klon
+    use lmdz_grid_phy, ONLY: nbp_lev
 
     real, intent(in):: q(:, :) ! mass fraction of ozone
@@ -167 +167 @@
     o3_prod = c + b * q + a6_mass * sigma_mass
 
-  end function o3_prod
+  END FUNCTION o3_prod
 
 end module o3_chem_m