1! { dg-do compile }
2! { dg-options "-O3 -floop-nest-optimize" }
3SUBROUTINE rk_addtend_dry ( t_tend, t_tendf, t_save, rk_step, &
4                            h_diabatic, mut, msft, ide, jde,  &
5                            ims,ime, jms,jme, kms,kme,        &
6                            its,ite, jts,jte, kts,kte)
7   IMPLICIT NONE
8   INTEGER ,  INTENT(IN   ) :: ide, jde, ims, ime, jms, jme, kms, kme, &
9                               its, ite, jts, jte, kts, kte
10   INTEGER ,  INTENT(IN   ) :: rk_step
11   REAL , DIMENSION( ims:ime , kms:kme, jms:jme  ), &
12       INTENT(INOUT) :: t_tend, t_tendf
13   REAL , DIMENSION( ims:ime , kms:kme, jms:jme  ) , &
14       INTENT(IN   ) ::  t_save, h_diabatic
15   REAL , DIMENSION( ims:ime , jms:jme ) , INTENT(IN   ) :: mut, msft
16   INTEGER :: i, j, k
17   DO j = jts,MIN(jte,jde-1)
18   DO k = kts,kte-1
19   DO i = its,MIN(ite,ide-1)
20     IF(rk_step == 1)t_tendf(i,k,j) = t_tendf(i,k,j) +  t_save(i,k,j)
21      t_tend(i,k,j) =  t_tend(i,k,j) +  t_tendf(i,k,j)/msft(i,j)  &
22                                     +  mut(i,j)*h_diabatic(i,k,j)/msft(i,j)
23   ENDDO
24   ENDDO
25   ENDDO
26END SUBROUTINE rk_addtend_dry
27