Changeset 2839 for LMDZ5/branches/testing/libf/phylmd/regr_pr_int_m.F90

Timestamp:

Mar 30, 2017, 4:16:38 PM (7 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2785:2838 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/regr_pr_int_m.F90 (modified) (2 diffs)

LMDZ5/branches/testing/libf/phylmd/regr_pr_int_m.F90

@@ -28 +28 @@
     use netcdf, only: nf90_get_var
     use assert_m, only: assert
-    use regr1_lint_m, only: regr1_lint
+    use regr_lint_m, only: regr_lint
     use mod_phys_lmdz_mpi_data, only: is_mpi_root
     use mod_grid_phy_lmdz, only: nbp_lon, nbp_lat, nbp_lev
@@ -97 +97 @@
     ! Regrid in pressure at each horizontal position:
     do i = 1, klon
-       v3(i, nbp_lev:1:-1) = regr1_lint(v2(i, :), (/0., plev/), pplay(i, nbp_lev:1:-1))
+       call regr_lint(1, v2(i, :), (/0., plev/), pplay(i, nbp_lev:1:-1), &
+                         v3(i, nbp_lev:1:-1))
        ! (invert order of indices because "pplay" is in descending order)
     end do