4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE interfoce_lim(itime, dtime, jour, knindex, debut, lmt_sst, & |
SUBROUTINE interfoce_lim(dtime, jour, knindex, debut, lmt_sst, pctsrf_new) |
|
pctsrf_new) |
|
8 |
|
|
9 |
! lecture conditions limites |
! lecture conditions limites |
10 |
! Cette routine sert d'interface entre le modèle atmosphérique et |
! Cette routine sert d'interface entre le modèle atmosphérique et |
17 |
USE netcdf, ONLY: nf90_nowrite |
USE netcdf, ONLY: nf90_nowrite |
18 |
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 |
19 |
use nr_util, only: assert |
use nr_util, only: assert |
20 |
|
use time_phylmdz, only: itap |
21 |
|
|
|
integer, intent(IN):: itime ! numero du pas de temps courant |
|
22 |
real, intent(IN):: dtime ! pas de temps de la physique (en s) |
real, intent(IN):: dtime ! pas de temps de la physique (en s) |
23 |
integer, intent(IN):: jour ! jour a lire dans l'annee |
integer, intent(IN):: jour ! jour a lire dans l'annee |
24 |
|
|
64 |
if ((jour - jour_lu) /= 0) deja_lu = .false. |
if ((jour - jour_lu) /= 0) deja_lu = .false. |
65 |
|
|
66 |
! Tester d'abord si c'est le moment de lire le fichier |
! Tester d'abord si c'est le moment de lire le fichier |
67 |
if (mod(itime - 1, lmt_pas) == 0 .and. .not. deja_lu) then |
if (mod(itap - 1, lmt_pas) == 0 .and. .not. deja_lu) then |
68 |
call NF95_OPEN ('limit.nc', NF90_NOWRITE, ncid) |
call NF95_OPEN ('limit.nc', NF90_NOWRITE, ncid) |
69 |
|
|
70 |
! Fraction "ocean" |
! Fraction "ocean" |