/[lmdze]/trunk/libf/phylmd/Orography/grid_noro_m.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/Orography/grid_noro_m.f90

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

revision 36 by guez, Thu Dec 2 17:11:04 2010 UTC revision 40 by guez, Tue Feb 22 13:49:36 2011 UTC
# Line 41  contains Line 41  contains
41      !           (d)      !           (d)
42    
43      use dimens_m, only: iim, jjm      use dimens_m, only: iim, jjm
44      use comconst, only: pi      use nr_util, only: assert, pi
     use nr_util, only: assert  
45    
46      REAL, intent(in):: xdata(:), ydata(:) ! coordinates of input field      REAL, intent(in):: xdata(:), ydata(:) ! coordinates of input field
47      REAL, intent(in):: zdata(:, :) ! input field      REAL, intent(in):: zdata(:, :) ! input field
# Line 255  contains Line 254  contains
254            zxtzy(ii, jj)=zxtzy(ii, jj)/weight(ii, jj)            zxtzy(ii, jj)=zxtzy(ii, jj)/weight(ii, jj)
255            ztz(ii, jj)  =ztz(ii, jj)/weight(ii, jj)            ztz(ii, jj)  =ztz(ii, jj)/weight(ii, jj)
256            !  Standard deviation:            !  Standard deviation:
257            zstd(ii, jj)=sqrt(AMAX1(0., ztz(ii, jj)-zmea(ii, jj)**2))            zstd(ii, jj)=sqrt(MAX(0., ztz(ii, jj) - zmea(ii, jj)**2))
258         ENDDO         ENDDO
259      ENDDO      ENDDO
260    
Legend:
Removed from v.36  
changed lines
  Added in v.40
  ViewVC Help
Powered by ViewVC 1.1.21