30 |
real, intent(inout):: teta((iim + 1) * (jjm + 1), llm) |
real, intent(inout):: teta((iim + 1) * (jjm + 1), llm) |
31 |
REAL q(:, :, :, :) ! (iim + 1, jjm + 1, llm, nq) |
REAL q(:, :, :, :) ! (iim + 1, jjm + 1, llm, nq) |
32 |
REAL, intent(inout):: ps((iim + 1) * (jjm + 1)) |
REAL, intent(inout):: ps((iim + 1) * (jjm + 1)) |
33 |
REAL masse((iim + 1) * (jjm + 1), llm) |
REAL, intent(inout):: masse((iim + 1) * (jjm + 1), llm) |
34 |
REAL finvmaold((iim + 1) * (jjm + 1), llm) |
REAL finvmaold((iim + 1) * (jjm + 1), llm) |
35 |
real, intent(in):: dt ! time step, in s |
real, intent(in):: dt ! time step, in s |
36 |
LOGICAL, INTENT (IN) :: leapf |
LOGICAL, INTENT (IN) :: leapf |