26 |
USE indicesol, ONLY: epsfra, is_lic, is_oce, is_sic, is_ter |
USE indicesol, ONLY: epsfra, is_lic, is_oce, is_sic, is_ter |
27 |
USE interface_surf, ONLY: conf_interface |
USE interface_surf, ONLY: conf_interface |
28 |
USE interfsur_lim_m, ONLY: interfsur_lim |
USE interfsur_lim_m, ONLY: interfsur_lim |
29 |
use read_sst_m, only: read_sst |
use limit_read_sst_m, only: limit_read_sst |
30 |
use soil_m, only: soil |
use soil_m, only: soil |
31 |
USE suphec_m, ONLY: rcpd, rtt |
USE suphec_m, ONLY: rcpd, rtt |
32 |
|
|
179 |
case (is_oce) |
case (is_oce) |
180 |
! Surface "oc\'ean", appel \`a l'interface avec l'oc\'ean |
! Surface "oc\'ean", appel \`a l'interface avec l'oc\'ean |
181 |
|
|
182 |
call read_sst(julien, knindex, tsurf) |
call limit_read_sst(julien, knindex, tsurf) |
183 |
cal = 0. |
cal = 0. |
184 |
beta = 1. |
beta = 1. |
185 |
dif_grnd = 0. |
dif_grnd = 0. |