/[lmdze]/trunk/phylmd/Orography/grid_noro.f
ViewVC logotype

Diff of /trunk/phylmd/Orography/grid_noro.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 95 by guez, Wed Apr 2 12:59:54 2014 UTC
# Line 29  contains Line 29  contains
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
Legend:
Removed from v.82  
changed lines
  Added in v.95
  ViewVC Help
Powered by ViewVC 1.1.21