36 |
use nr_util, only: assert |
use nr_util, only: assert |
37 |
use writehist_m, only: writehist |
use writehist_m, only: writehist |
38 |
|
|
|
! Variables dynamiques: |
|
39 |
REAL, intent(inout):: ucov(:, :, :) ! (iim + 1, jjm + 1, llm) vent covariant |
REAL, intent(inout):: ucov(:, :, :) ! (iim + 1, jjm + 1, llm) vent covariant |
40 |
REAL, intent(inout):: vcov(:, :, :) ! (iim + 1, jjm, llm) ! vent covariant |
REAL, intent(inout):: vcov(:, :, :) ! (iim + 1, jjm, llm) ! vent covariant |
41 |
|
|
51 |
|
|
52 |
! Local: |
! Local: |
53 |
|
|
|
! Variables dynamiques: |
|
|
|
|
54 |
REAL pks(iim + 1, jjm + 1) ! exner au sol |
REAL pks(iim + 1, jjm + 1) ! exner au sol |
55 |
REAL pk(iim + 1, jjm + 1, llm) ! exner au milieu des couches |
REAL pk(iim + 1, jjm + 1, llm) ! exner au milieu des couches |
56 |
REAL pkf(iim + 1, jjm + 1, llm) ! exner filtr\'e au milieu des couches |
REAL pkf(iim + 1, jjm + 1, llm) ! exner filtr\'e au milieu des couches |