39 |
use grid_change, only: dyn_phy, init_dyn_phy |
use grid_change, only: dyn_phy, init_dyn_phy |
40 |
use advtrac_m, only: iniadvtrac |
use advtrac_m, only: iniadvtrac |
41 |
use leapfrog_m, only: leapfrog |
use leapfrog_m, only: leapfrog |
42 |
|
use dynredem0_m, only: dynredem0 |
43 |
|
|
44 |
IMPLICIT NONE |
IMPLICIT NONE |
45 |
|
|
53 |
REAL ps(ip1jmp1) ! pression au sol (Pa) |
REAL ps(ip1jmp1) ! pression au sol (Pa) |
54 |
|
|
55 |
REAL masse(ip1jmp1, llm) ! masse d'air |
REAL masse(ip1jmp1, llm) ! masse d'air |
56 |
REAL phis(ip1jmp1) ! géopotentiel au sol |
REAL phis(iim + 1, jjm + 1) ! géopotentiel au sol |
57 |
|
|
58 |
! Variables pour le fichier histoire : |
! Variables pour le fichier histoire : |
59 |
REAL time_0 |
REAL time_0 |