Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/regr_pr_o3_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/regr_pr_o3_m.F90 (modified) (1 diff)

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

@@ -25 +25 @@
     ! hPa and strictly increasing.
 
-    use netcdf95, only: nf95_open, nf95_close, nf95_inq_varid, nf95_get_var
-    use netcdf, only:  nf90_nowrite
-    use lmdz_assert, only: assert
-    use regr_conserv_m, only: regr_conserv
-    use press_coefoz_m, only: press_in_edg
-    use time_phylmdz_mod, only: day_ref
-    use lmdz_grid_phy, only: nbp_lon, nbp_lat, nbp_lev
+    use netcdf95, ONLY: nf95_open, nf95_close, nf95_inq_varid, nf95_get_var
+    use netcdf, ONLY:  nf90_nowrite
+    use lmdz_assert, ONLY: assert
+    use regr_conserv_m, ONLY: regr_conserv
+    use press_coefoz_m, ONLY: press_in_edg
+    use time_phylmdz_mod, ONLY: day_ref
+    use lmdz_grid_phy, ONLY: nbp_lon, nbp_lat, nbp_lev
 
     REAL, intent(in):: p3d(:, :, :) ! pressure at layer interfaces, in Pa