/[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 325 by guez, Thu Jul 12 17:53:18 2018 UTC revision 326 by guez, Mon Jun 10 00:29:10 2019 UTC
# Line 190  contains Line 190  contains
190                     weighx = MAX(0., min(zbordest, zbordoue, zlenx))                     weighx = MAX(0., min(zbordest, zbordoue, zlenx))
191                     IF (weighx /= 0) THEN                     IF (weighx /= 0) THEN
192                        num_tot(ii, jj) = num_tot(ii, jj) + 1.                        num_tot(ii, jj) = num_tot(ii, jj) + 1.
193                        if (zusn(i, j) >= 1.) then                        if (zusn(i, j) >= 1.) &
194                           num_lan(ii, jj) = num_lan(ii, jj) + 1.                             num_lan(ii, jj) = num_lan(ii, jj) + 1.
                       end if  
195                        weight(ii, jj) = weight(ii, jj) + weighx * weighy                        weight(ii, jj) = weight(ii, jj) + weighx * weighy
196                        zxtzx(ii, jj) = zxtzx(ii, jj) &                        zxtzx(ii, jj) = zxtzx(ii, jj) &
197                             + zxtzxusn(i, j) * weighx * weighy                             + zxtzxusn(i, j) * weighx * weighy
Legend:
Removed from v.325  
changed lines
  Added in v.326
  ViewVC Help
Powered by ViewVC 1.1.21