42 |
REAL, intent(inout):: teta(:, :, :) ! (iim + 1, jjm + 1, llm) |
REAL, intent(inout):: teta(:, :, :) ! (iim + 1, jjm + 1, llm) |
43 |
! potential temperature |
! potential temperature |
44 |
|
|
45 |
REAL, intent(inout):: ps(iim + 1, jjm + 1) ! pression au sol, en Pa |
REAL, intent(inout):: ps(:, :) ! (iim + 1, jjm + 1) pression au sol, en Pa |
46 |
REAL masse(ip1jmp1, llm) ! masse d'air |
REAL masse(ip1jmp1, llm) ! masse d'air |
47 |
REAL phis(ip1jmp1) ! geopotentiel au sol |
REAL phis(ip1jmp1) ! geopotentiel au sol |
48 |
|
|
145 |
IF (offline) CALL fluxstokenc(pbaru, pbarv, masse, teta, phi, phis, & |
IF (offline) CALL fluxstokenc(pbaru, pbarv, masse, teta, phi, phis, & |
146 |
dtvr, itau) |
dtvr, itau) |
147 |
|
|
148 |
! integrations dynamique et traceurs: |
! Integrations dynamique et traceurs: |
149 |
CALL integrd(vcovm1, ucovm1, tetam1, psm1, massem1, dv, du, dteta, dp, & |
CALL integrd(vcovm1, ucovm1, tetam1, psm1, massem1, dv, du, dteta, dp, & |
150 |
vcov, ucov, teta, q(:, :, :, :2), ps, masse, finvmaold, dt, leapf) |
vcov, ucov, teta, q(:, :, :, :2), ps, masse, finvmaold, dt, leapf) |
151 |
|
|