4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE calfis(rdayvrai, time, ucov, vcov, teta, q, ps, pk, phis, phi, & |
SUBROUTINE calfis(rdayvrai, time, ucov, vcov, teta, q, pk, phis, phi, w, & |
8 |
w, dufi, dvfi, dtetafi, dqfi, lafin) |
dufi, dvfi, dtetafi, dqfi, lafin) |
9 |
|
|
10 |
! From dyn3d/calfis.F, version 1.3, 2005/05/25 13:10:09 |
! From dyn3d/calfis.F, version 1.3, 2005/05/25 13:10:09 |
11 |
! Authors: P. Le Van, F. Hourdin |
! Authors: P. Le Van, F. Hourdin |
55 |
REAL, intent(in):: q(:, :, :, :) ! (iim + 1, jjm + 1, llm, nqmx) |
REAL, intent(in):: q(:, :, :, :) ! (iim + 1, jjm + 1, llm, nqmx) |
56 |
! mass fractions of advected fields |
! mass fractions of advected fields |
57 |
|
|
|
REAL, intent(in):: ps(:, :) ! (iim + 1, jjm + 1) surface pressure |
|
|
|
|
58 |
REAL, intent(in):: pk(:, :, :) ! (iim + 1, jjm + 1, llm) |
REAL, intent(in):: pk(:, :, :) ! (iim + 1, jjm + 1, llm) |
59 |
! Exner = cp * (p / preff)**kappa |
! Exner = cp * (p / preff)**kappa |
60 |
|
|
75 |
LOGICAL, intent(in):: lafin |
LOGICAL, intent(in):: lafin |
76 |
|
|
77 |
! Local: |
! Local: |
78 |
INTEGER i, j, l, ig0, iq, iiq |
INTEGER i, j, l, ig0, iq |
|
REAL zpsrf(klon) |
|
79 |
REAL paprs(klon, llm + 1) ! aux interfaces des couches |
REAL paprs(klon, llm + 1) ! aux interfaces des couches |
80 |
REAL play(klon, llm) ! aux milieux des couches |
REAL play(klon, llm) ! aux milieux des couches |
81 |
REAL pphi(klon, llm), pphis(klon) |
REAL pphi(klon, llm), pphis(klon) |