27 |
! Variables local to the procedure: |
! Variables local to the procedure: |
28 |
INTEGER ncid, varid |
INTEGER ncid, varid |
29 |
INTEGER iq |
INTEGER iq |
|
INTEGER:: nb = 0 |
|
30 |
|
|
31 |
!--------------------------------------------------------- |
!--------------------------------------------------------- |
32 |
|
|
43 |
call nf95_open(fichnom, nf90_write, ncid) |
call nf95_open(fichnom, nf90_write, ncid) |
44 |
|
|
45 |
! Écriture/extension de la coordonnée temps |
! Écriture/extension de la coordonnée temps |
|
nb = nb + 1 |
|
46 |
call nf95_inq_varid(ncid, 'temps', varid) |
call nf95_inq_varid(ncid, 'temps', varid) |
47 |
call nf95_put_var(ncid, varid, values=0., start=(/nb/)) |
call nf95_put_var(ncid, varid, values = 0.) |
|
PRINT *, "Enregistrement pour nb = ", nb |
|
48 |
|
|
49 |
! Récriture du tableau de contrôle, "itaufin" n'est pas défini quand |
! Récriture du tableau de contrôle, "itaufin" n'est pas défini quand |
50 |
! on passe dans "dynredem0" |
! on passe dans "dynredem0" |