subroutine cu_gf_deep::neg_check |
( |
character *(*), intent(in) |
name, |
|
|
integer, intent(in) |
j, |
|
|
real(kind=kind_phys), intent(in) |
dt, |
|
|
real(kind=kind_phys), dimension (its:ite,kts:kte ), intent(inout) |
q, |
|
|
real(kind=kind_phys), dimension (its:ite,kts:kte ), intent(inout) |
outq, |
|
|
real(kind=kind_phys), dimension (its:ite,kts:kte ), intent(inout) |
outt, |
|
|
real(kind=kind_phys), dimension (its:ite,kts:kte ), intent(inout) |
outu, |
|
|
real(kind=kind_phys), dimension (its:ite,kts:kte ), intent(inout) |
outv, |
|
|
real(kind=kind_phys), dimension (its:ite,kts:kte ), intent(inout) |
outqc, |
|
|
real(kind=kind_phys), dimension (its:ite ), intent(inout) |
pret, |
|
|
integer, intent(in) |
its, |
|
|
integer, intent(in) |
ite, |
|
|
integer, intent(in) |
kts, |
|
|
integer, intent(in) |
kte, |
|
|
integer, intent(in) |
itf, |
|
|
integer, intent(in) |
ktf, |
|
|
integer, dimension (its:ite ), intent(in) |
ktop |
|
) |
| |