subroutine fv_sat_adj::fv_sat_adj_work |
( |
real(kind=kind_dyn), intent(in) |
mdt, |
|
|
real(kind=kind_dyn), intent(in) |
zvir, |
|
|
integer, intent(in) |
is, |
|
|
integer, intent(in) |
ie, |
|
|
integer, intent(in) |
js, |
|
|
integer, intent(in) |
je, |
|
|
integer, intent(in) |
ng, |
|
|
logical, intent(in) |
hydrostatic, |
|
|
logical, intent(in) |
consv_te, |
|
|
real(kind=kind_dyn), dimension (is - ng:ie + ng, js - ng:je + ng), intent(out) |
te0, |
|
|
|
ifdef, |
|
|
|
MULTI_GASES |
|
) |
| |
|
private |