Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phylmd/regr_pr_int_m.F90

Timestamp:

Jul 24, 2024, 4:23:34 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/regr_pr_int_m.F90 (modified) (4 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 lmdz_regr_lint, 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
-    integer, intent(in):: julien ! jour julien, 1 <= julien <= 360
+    INTEGER, INTENT(IN):: ncid ! NetCDF ID of the file
+    CHARACTER(LEN=*), INTENT(IN):: name ! of the NetCDF variable
+    INTEGER, INTENT(IN):: julien ! jour julien, 1 <= julien <= 360
 
-    real, intent(in):: plev(:)
+    REAL, INTENT(IN):: plev(:)
     ! (pressure level of input data, in Pa, in strictly ascending order)
 
-    real, intent(in):: pplay(:, :) ! (klon, nbp_lev)
+    REAL, INTENT(IN):: pplay(:, :) ! (klon, nbp_lev)
     ! (pression pour le mileu de chaque couche, en Pa)
 
-    real, intent(in):: top_value
+    REAL, INTENT(IN):: top_value
     ! (extra value of field at 0 pressure)
 
-    real, intent(out):: v3(:, :) ! (klon, nbp_lev)
+    REAL, INTENT(OUT):: v3(:, :) ! (klon, nbp_lev)
     ! (regridded field on the partial "physics" grid)
     ! ("v3(i, k)" is at longitude "xlon(i)", latitude
@@ -53 +53 @@
     ! Variables local to the procedure:
 
-    integer varid, ncerr ! for NetCDF
+    INTEGER varid, ncerr ! for NetCDF
 
     real  v1(nbp_lon, nbp_lat, 0:size(plev))
@@ -61 +61 @@
     ! "v1(:, j, k >=1)" is at latitude "rlatu(j)" and pressure "plev(k)".)
 
-    real v2(klon, 0:size(plev))
+    REAL v2(klon, 0:size(plev))
     ! (field scattered to the partial "physics" horizontal grid)
     ! "v2(i, k >= 1)" is at longitude "xlon(i)", latitude "xlat(i)"
     ! and pressure "plev(k)".)
 
-    integer i
+    INTEGER i
 
     !--------------------------------------------
@@ -74 +74 @@
 
     !$omp master
-    if (is_mpi_root) THEN
+    IF (is_mpi_root) THEN
        CALL nf95_inq_varid(ncid, name, varid)