16 |
use nr_util, only: assert |
use nr_util, only: assert |
17 |
|
|
18 |
CHARACTER(len=*), INTENT (IN):: fichnom |
CHARACTER(len=*), INTENT (IN):: fichnom |
19 |
REAL, INTENT (IN):: vcov(:, :, :) ! (iim + 1, jjm, llm) |
REAL, INTENT(IN):: vcov(:, :, :) ! (iim + 1, jjm, llm) |
20 |
REAL, INTENT (IN):: ucov(:, :, :) ! (iim + 1, jjm + 1, llm) |
REAL, INTENT(IN):: ucov(:, :, :) ! (iim + 1, jjm + 1, llm) |
21 |
REAL, INTENT (IN):: teta(:, :, :) ! (iim + 1, jjm + 1, llm) |
REAL, INTENT(IN):: teta(:, :, :) ! (iim + 1, jjm + 1, llm) |
22 |
REAL, INTENT (IN):: q(:, :, :, :) ! (iim + 1, jjm + 1, llm, nqmx) |
REAL, INTENT(IN):: q(:, :, :, :) ! (iim + 1, jjm + 1, llm, nqmx) |
23 |
REAL, INTENT (IN):: masse(:, :, :) ! (iim + 1, jjm + 1, llm) |
REAL, INTENT(IN):: masse(:, :, :) ! (iim + 1, jjm + 1, llm) |
24 |
REAL, INTENT (IN):: ps(:, :) ! (iim + 1, jjm + 1) |
REAL, INTENT(IN):: ps(:, :) ! (iim + 1, jjm + 1) |
25 |
INTEGER, INTENT (IN):: itau |
INTEGER, INTENT(IN):: itau |
26 |
|
|
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" |