From 25b3a79276524140130e652b350777ba25f5704a Mon Sep 17 00:00:00 2001
From: Gaelle Tanguy <gaelle.tanguy@meteo.fr>
Date: Thu, 26 Nov 2015 14:49:21 +0000
Subject: [PATCH] C.Lac 11/2015 remove individual modification for tree drag
---
src/SURFEX/pgd_cover.F90 | 10 ----------
1 file changed, 10 deletions(-)
diff --git a/src/SURFEX/pgd_cover.F90 b/src/SURFEX/pgd_cover.F90
index c2d37c707..35dc68c68 100644
--- a/src/SURFEX/pgd_cover.F90
+++ b/src/SURFEX/pgd_cover.F90
@@ -143,7 +143,6 @@ INTEGER :: ICOVER ! 0 if cover is not present, >1 if prese
! ! (even on another processor)
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
-INTEGER :: JI, JX, JY
!---------------------------------------------------------------
!
!* 1. Initializations
@@ -196,15 +195,6 @@ IF (ANY(XUNIF_COVER/=0.)) THEN
XCOVER(:,JCOVER) = XUNIF_COVER(JCOVER)
END DO
XCOVER(:,:)=XCOVER(:,:)/SPREAD(SUM(XCOVER(:,:),2),2,JPCOVER)
- DO JI=1,NL
- JY = (JI-1)/20+1
- JX = JI -(JY-1)*20
- IF (JX>=2 .AND. JX<4) THEN
- XCOVER(JI,:) = 0. !JI->JX
- XCOVER(JI,202)= 1. !JI->JX
- END IF
- END DO
-! inclusion d'arbres
END IF
!
!* 3.3 No data
--
GitLab