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

Timestamp:

Jul 24, 2024, 2:54:37 PM (3 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_comb_coefoz_m.F90 (modified) (2 diffs)

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

@@ -39 +39 @@
     ! It allocates module variables.
 
-    use dimphy, only: klon
-    use lmdz_grid_phy, only: nbp_lev
+    use dimphy, ONLY: klon
+    use lmdz_grid_phy, ONLY: nbp_lev
 
     ! Variables local to the procedure:
@@ -71 +71 @@
     !    coefficients are combined to define the five module variables.
 
-    use netcdf95, only: nf95_open, nf95_close
-    use netcdf, only: nf90_nowrite
-    use lmdz_assert, only: assert
-    use dimphy, only: klon
-    use lmdz_phys_mpi_data, only: is_mpi_root
-    use regr_pr_time_av_m, only: regr_pr_time_av
-    use regr_pr_int_m, only: regr_pr_int
-    use press_coefoz_m, only: press_in_edg, plev
-    use lmdz_grid_phy, only: nbp_lev
+    use netcdf95, ONLY: nf95_open, nf95_close
+    use netcdf, ONLY: nf90_nowrite
+    use lmdz_assert, ONLY: assert
+    use dimphy, ONLY: klon
+    use lmdz_phys_mpi_data, ONLY: is_mpi_root
+    use regr_pr_time_av_m, ONLY: regr_pr_time_av
+    use regr_pr_int_m, ONLY: regr_pr_int
+    use press_coefoz_m, ONLY: press_in_edg, plev
+    use lmdz_grid_phy, ONLY: nbp_lev
 
     integer, intent(in):: julien ! jour julien, 1 <= julien <= 360