subroutine cu_c3_deep::neg_check | ( | character *(*), intent(in) | name, |
integer, intent(in) | j, | ||
real(kind=kind_phys), intent(in) | dt, | ||
real(kind=kind_phys), dimension (its:,kts: ), intent(inout) | q, | ||
real(kind=kind_phys), dimension (its:,kts: ), intent(inout) | outq, | ||
real(kind=kind_phys), dimension (its:,kts: ), intent(inout) | outt, | ||
real(kind=kind_phys), dimension (its:,kts: ), intent(inout) | outu, | ||
real(kind=kind_phys), dimension (its:,kts: ), intent(inout) | outv, | ||
real(kind=kind_phys), dimension (its:,kts: ), intent(inout) | outqc, | ||
real(kind=kind_phys), dimension (its: ), 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: ), intent(in) | ktop ) |
Definition at line 3838 of file cu_c3_deep.F90.
Referenced by cu_c3_driver::cu_c3_driver_run().