108 |
REAL masse(iim + 1, jjm + 1, llm) |
REAL masse(iim + 1, jjm + 1, llm) |
109 |
REAL phi(iim + 1, jjm + 1, llm) |
REAL phi(iim + 1, jjm + 1, llm) |
110 |
REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm) |
REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm) |
111 |
REAL w(ip1jmp1, llm) |
REAL w(iim + 1, jjm + 1, llm) |
112 |
|
|
113 |
real sig1(klon, llm) ! section adiabatic updraft |
real sig1(klon, llm) ! section adiabatic updraft |
114 |
real w01(klon, llm) ! vertical velocity within adiabatic updraft |
real w01(klon, llm) ! vertical velocity within adiabatic updraft |
282 |
! V\'erification que somme des sous-surfaces vaut 1 : |
! V\'erification que somme des sous-surfaces vaut 1 : |
283 |
ji = count(abs(sum(pctsrf, dim = 2) - 1.) > EPSFRA) |
ji = count(abs(sum(pctsrf, dim = 2) - 1.) > EPSFRA) |
284 |
IF (ji /= 0) then |
IF (ji /= 0) then |
285 |
PRINT *, 'Probl\`eme r\'epartition sous maille pour ', ji, 'points' |
PRINT *, 'Bad surface percentages for ', ji, 'points' |
286 |
end IF |
end IF |
287 |
|
|
288 |
! Calcul interm\'ediaire : |
! Calcul interm\'ediaire : |