From 0f887e770c16ae55edbd8e5a083d448429277dad Mon Sep 17 00:00:00 2001
From: Gaelle Tanguy <gaelle.tanguy@meteo.fr>
Date: Thu, 14 Jan 2016 08:42:37 +0000
Subject: [PATCH] Christine 14/01/2016 : supression du deuxieme appel a
ROTATE_WIND
---
src/MNH/turb.f90 | 13 -------------
1 file changed, 13 deletions(-)
diff --git a/src/MNH/turb.f90 b/src/MNH/turb.f90
index fe601404b..4e937eb99 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)) &
--
GitLab