Christine 14/01/2016 : supression du deuxieme appel a ROTATE_WIND
authorGaelle Tanguy <gaelle.tanguy@meteo.fr>
Thu, 14 Jan 2016 08:42:37 +0000 (08:42 +0000)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Thu, 19 May 2016 14:44:49 +0000 (16:44 +0200)
src/MNH/turb.f90

index fe60140..4e937eb 100644 (file)
@@ -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))  &