diff --git a/src/MNH/turb.f90 b/src/MNH/turb.f90 index fe601404b3bd445cab028809585648ee9a7b222c..4e937eb99e2949ff84855b0907edf52b5be75cf9 100644 --- a/src/MNH/turb.f90 +++ b/src/MNH/turb.f90 @@ -827,19 +827,6 @@ END IF (XMNH_TINY + ZUSLOPE(:,:)**2 + ZVSLOPE(:,:)**2 ) & ) ! -!* 4.3 rotate the wind at time t -! - IF (CPROGRAM/='AROME ') THEN - CALL ROTATE_WIND(PUT,PVT,PWT, & - PDIRCOSXW, PDIRCOSYW, PDIRCOSZW, & - PCOSSLOPE,PSINSLOPE, & - PDXX,PDYY,PDZZ, & - ZUSLOPE,ZVSLOPE ) -! - CALL UPDATE_ROTATE_WIND(ZUSLOPE,ZVSLOPE) - END IF -! -! !* 4.6 compute the surface tangential fluxes ! ZTAU11M(:,:) =2./3.*( (1.+ (PZZ (:,:,IKB+KKL)-PZZ (:,:,IKB)) &