/[lmdze]/trunk/Sources/dyn3d/etat0.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/etat0.f

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

revision 212 by guez, Thu Jan 12 12:31:31 2017 UTC revision 214 by guez, Wed Mar 22 13:40:27 2017 UTC
# Line 269  contains Line 269  contains
269      ! Ad\'equation avec le maque terre/mer      ! Ad\'equation avec le maque terre/mer
270      WHERE (pctsrf(:, is_lic) < EPSFRA) pctsrf(:, is_lic) = 0.      WHERE (pctsrf(:, is_lic) < EPSFRA) pctsrf(:, is_lic) = 0.
271      WHERE (zmasq < EPSFRA) pctsrf(:, is_lic) = 0.      WHERE (zmasq < EPSFRA) pctsrf(:, is_lic) = 0.
272      pctsrf(:, is_ter) = zmasq      where (zmasq <= EPSFRA) pctsrf(:, is_ter) = zmasq
273      where (zmasq > EPSFRA)      where (zmasq > EPSFRA)
274         where (pctsrf(:, is_lic) >= zmasq)         where (pctsrf(:, is_lic) >= zmasq)
275            pctsrf(:, is_lic) = zmasq            pctsrf(:, is_lic) = zmasq
Legend:
Removed from v.212  
changed lines
  Added in v.214
  ViewVC Help
Powered by ViewVC 1.1.21