--- trunk/libf/phylmd/Orography/grid_noro_m.f90	2011/01/25 15:11:05	39
+++ trunk/libf/phylmd/Orography/grid_noro_m.f90	2011/02/22 13:49:36	40
@@ -254,7 +254,7 @@
           zxtzy(ii, jj)=zxtzy(ii, jj)/weight(ii, jj)
           ztz(ii, jj)  =ztz(ii, jj)/weight(ii, jj)
           !  Standard deviation:
-          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))
        ENDDO
     ENDDO