| 33 |
use fxhyp_m, only: fxhyp |
use fxhyp_m, only: fxhyp |
| 34 |
use fyhyp_m, only: fyhyp |
use fyhyp_m, only: fyhyp |
| 35 |
use geopot_m, only: geopot |
use geopot_m, only: geopot |
| 36 |
use grid_atob, only: grille_m |
use grille_m_m, only: grille_m |
| 37 |
use grid_change, only: init_dyn_phy, dyn_phy |
use grid_change, only: init_dyn_phy, dyn_phy |
| 38 |
use indicesol, only: is_oce, is_sic, is_ter, is_lic, epsfra |
use indicesol, only: is_oce, is_sic, is_ter, is_lic, epsfra |
| 39 |
use iniadvtrac_m, only: iniadvtrac |
use iniadvtrac_m, only: iniadvtrac |
| 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 |
Parent Directory
| 
Revision Log
| 
Patch