29 |
! area. See "grid_noto.txt". |
! area. See "grid_noto.txt". |
30 |
|
|
31 |
use dimens_m, only: iim, jjm |
use dimens_m, only: iim, jjm |
|
use nr_util, only: assert, pi |
|
32 |
use mva9_m, only: mva9 |
use mva9_m, only: mva9 |
33 |
|
use nr_util, only: assert, pi |
34 |
|
|
35 |
REAL, intent(in):: xdata(:), ydata(:) ! coordinates of input field |
REAL, intent(in):: xdata(:), ydata(:) ! coordinates of input field |
36 |
REAL, intent(in):: zdata(:, :) ! input field |
REAL, intent(in):: zdata(:, :) ! input field |
37 |
REAL, intent(in):: x(:), y(:) ! coordinates of output field |
REAL, intent(in):: x(:), y(:) ! coordinates of output field |
38 |
|
|
39 |
! Correlations of US Navy orography gradients: |
! Correlations of US Navy orography gradients: |
40 |
REAL, intent(out):: zphi(:, :) |
REAL, intent(out):: zphi(:, :) ! orography not smoothed |
41 |
real, intent(out):: zmea(:, :) ! Mean orography |
real, intent(out):: zmea(:, :) ! smoothed orography |
42 |
real, intent(out):: zstd(:, :) ! Standard deviation |
real, intent(out):: zstd(:, :) ! Standard deviation |
43 |
REAL, intent(out):: zsig(:, :) ! Slope |
REAL, intent(out):: zsig(:, :) ! Slope |
44 |
real, intent(out):: zgam(:, :) ! Anisotropy |
real, intent(out):: zgam(:, :) ! Anisotropy |