Changeset 2572 for LMDZ5/trunk/libf

Timestamp:

Jun 14, 2016, 4:16:56 PM (8 years ago)

Author:

jghattas

Message:

Corected bug introduced in rev [2240] : guistiness was added in the subroutine surf_land_orchidee in the default module but the old module were forgotten.

File:

• LMDZ5/trunk/libf/phylmd/surf_land_orchidee_noopenmp_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/surf_land_orchidee_noopenmp_mod.F90

@@ -38 +38 @@
        knindex, rlon, rlat, yrmu0, pctsrf, &
        debut, lafin, &
-       plev,  u1_lay, v1_lay, temp_air, spechum, epot_air, ccanopy, & 
+       plev,  u1_lay, v1_lay, gustiness, temp_air, spechum, epot_air, ccanopy, & 
        tq_cdrag, petAcoef, peqAcoef, petBcoef, peqBcoef, &
        precip_rain, precip_snow, lwdown, swnet, swdown, &
@@ -122 +122 @@
     REAL, DIMENSION(klon), INTENT(IN)         :: yrmu0
     REAL, DIMENSION(klon), INTENT(IN)         :: plev
-    REAL, DIMENSION(klon), INTENT(IN)         :: u1_lay, v1_lay
+    REAL, DIMENSION(klon), INTENT(IN)         :: u1_lay, v1_lay, gustiness
     REAL, DIMENSION(klon), INTENT(IN)         :: temp_air, spechum
     REAL, DIMENSION(klon), INTENT(IN)         :: epot_air, ccanopy