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 |