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 |