Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/regr_pr_int_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_int_m.F90 (modified) (2 diffs)

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

@@ -24 +24 @@
     ! Regridding is by linear interpolation.
 
-    use dimphy, only: klon
-    use netcdf95, only: nf95_inq_varid, nf95_get_var
-    use lmdz_assert, only: assert
-    use regr_lint_m, only: regr_lint
-    use lmdz_phys_mpi_data, only: is_mpi_root
-    use lmdz_grid_phy, only: nbp_lon, nbp_lat, nbp_lev
-    use lmdz_phys_transfert_para, only: scatter2d
+    use dimphy, ONLY: klon
+    use netcdf95, ONLY: nf95_inq_varid, nf95_get_var
+    use lmdz_assert, ONLY: assert
+    use regr_lint_m, ONLY: regr_lint
+    use lmdz_phys_mpi_data, ONLY: is_mpi_root
+    use lmdz_grid_phy, ONLY: nbp_lon, nbp_lat, nbp_lev
+    use lmdz_phys_transfert_para, ONLY: scatter2d
     ! (pack to the LMDZ horizontal "physics" grid and scatter)
 
     integer, intent(in):: ncid ! NetCDF ID of the file
-    character(len=*), intent(in):: name ! of the NetCDF variable
+    CHARACTER(LEN=*), intent(in):: name ! of the NetCDF variable
     integer, intent(in):: julien ! jour julien, 1 <= julien <= 360
 
@@ -74 +74 @@
 
     !$omp master
-    if (is_mpi_root) then
+    if (is_mpi_root) THEN
        CALL nf95_inq_varid(ncid, name, varid)