43 |
! parbu,pbarv : flux de masse en x et y en Pa.m2.s-1 |
! parbu,pbarv : flux de masse en x et y en Pa.m2.s-1 |
44 |
|
|
45 |
INTEGER lon, lat, niv |
INTEGER lon, lat, niv |
46 |
INTEGER i, j, jv, k, kp, l, lp |
INTEGER i, j, jv, k, l, lp |
47 |
INTEGER ntra |
INTEGER ntra |
48 |
! PARAMETER (ntra = 1) |
! PARAMETER (ntra = 1) |
49 |
|
|
90 |
REAL fxx(iim, llm, ntra), fxy(iim, llm, ntra) |
REAL fxx(iim, llm, ntra), fxy(iim, llm, ntra) |
91 |
REAL fxz(iim, llm, ntra), fyy(iim, llm, ntra) |
REAL fxz(iim, llm, ntra), fyy(iim, llm, ntra) |
92 |
REAL fyz(iim, llm, ntra), fzz(iim, llm, ntra) |
REAL fyz(iim, llm, ntra), fzz(iim, llm, ntra) |
|
REAL s00(ntra) |
|
|
REAL sm0 ! Just temporal variable |
|
93 |
|
|
94 |
! work arrays |
! work arrays |
95 |
|
|