1! { dg-do compile } 2! { dg-options "-Ofast" } 3! { dg-additional-options "-march=znver2" { target x86_64-*-* i?86-*-* } } 4 SUBROUTINE sfddagd( regime, znt,ite ,jte ) 5 REAL, DIMENSION( ime, IN) :: regime, znt 6 REAL, DIMENSION( ite, jte) :: wndcor_u 7 LOGICAL wrf_dm_on_monitor 8 IF( int4 == 1 ) THEN 9 DO j=jts,jtf 10 DO i=itsu,itf 11 reg = regime(i, j) 12 IF( reg > 10.0 ) THEN 13 znt0 = znt(i-1, j) + znt(i, j) 14 IF( znt0 <= 0.2) THEN 15 wndcor_u(i,j) = 0.2 16 ENDIF 17 ENDIF 18 ENDDO 19 ENDDO 20 IF ( wrf_dm_on_monitor()) THEN 21 ENDIF 22 ENDIF 23 END 24