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