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 ) |