13 |
|
|
14 |
! Laurent FAIRHEAD, February 2000 |
! Laurent FAIRHEAD, February 2000 |
15 |
|
|
|
use abort_gcm_m, only: abort_gcm |
|
16 |
USE dimphy, ONLY: klon |
USE dimphy, ONLY: klon |
17 |
USE indicesol, ONLY: is_lic, is_oce, is_sic, is_ter, nbsrf |
USE indicesol, ONLY: is_lic, is_oce, is_sic, is_ter, nbsrf |
18 |
USE netcdf, ONLY: nf90_noerr, nf90_nowrite |
USE netcdf, ONLY: nf90_nowrite |
19 |
use netcdf95, only: NF95_CLOSE, nf95_get_var, NF95_INQ_VARID, nf95_open |
use netcdf95, only: NF95_CLOSE, nf95_get_var, NF95_INQ_VARID, nf95_open |
20 |
use nr_util, only: assert_eq |
use nr_util, only: assert |
21 |
|
|
22 |
integer, intent(IN):: itime ! numero du pas de temps courant |
integer, intent(IN):: itime ! numero du pas de temps courant |
23 |
real, intent(IN):: dtime ! pas de temps de la physique (en s) |
real, intent(IN):: dtime ! pas de temps de la physique (en s) |
36 |
|
|
37 |
! Local: |
! Local: |
38 |
|
|
|
integer knon ! nombre de points dans le domaine a traiter |
|
|
|
|
39 |
INTEGER, save:: lmt_pas ! frequence de lecture des conditions limites |
INTEGER, save:: lmt_pas ! frequence de lecture des conditions limites |
40 |
! (en pas de physique) |
! (en pas de physique) |
41 |
|
|
53 |
|
|
54 |
! -------------------------------------------------- |
! -------------------------------------------------- |
55 |
|
|
56 |
knon = assert_eq(size(knindex), size(lmt_sst), "interfoce_lim knon") |
call assert(size(knindex) == size(lmt_sst), "interfoce_lim knon") |
57 |
|
|
58 |
if (debut .and. .not. allocated(sst_lu)) then |
if (debut .and. .not. allocated(sst_lu)) then |
59 |
lmt_pas = nint(86400. / dtime) ! pour une lecture une fois par jour |
lmt_pas = nint(86400. / dtime) ! pour une lecture une fois par jour |