152 |
jmdep = size(dlat_ini) |
jmdep = size(dlat_ini) |
153 |
|
|
154 |
call nf95_inq_dimid(ncid, "time", dimid) |
call nf95_inq_dimid(ncid, "time", dimid) |
155 |
call NF95_INQuire_DIMension(ncid, dimid, len=lmdep) |
call NF95_INQuire_DIMension(ncid, dimid, nclen=lmdep) |
156 |
print *, 'lmdep = ', lmdep |
print *, 'lmdep = ', lmdep |
157 |
! PM 28/02/2002 : nouvelle coordonnée temporelle, fichiers AMIP |
! PM 28/02/2002 : nouvelle coordonnée temporelle, fichiers AMIP |
158 |
! pas en jours |
! pas en jours |
251 |
jmdep = size(dlat_ini) |
jmdep = size(dlat_ini) |
252 |
|
|
253 |
call nf95_inq_dimid(ncid, "time", dimid) |
call nf95_inq_dimid(ncid, "time", dimid) |
254 |
call NF95_INQuire_DIMension(ncid, dimid, len=lmdep) |
call NF95_INQuire_DIMension(ncid, dimid, nclen=lmdep) |
255 |
print *, 'lmdep = ', lmdep |
print *, 'lmdep = ', lmdep |
256 |
!PM28/02/2002 : nouvelle coord temporelle fichiers AMIP pas en jours |
!PM28/02/2002 : nouvelle coord temporelle fichiers AMIP pas en jours |
257 |
! Ici on suppose qu'on a 12 mois (de 30 jours). |
! Ici on suppose qu'on a 12 mois (de 30 jours). |