Changeset 2952 for LMDZ5/trunk/libf/phylmd/surf_land_orchidee_noopenmp_mod.F90

Timestamp:

Jul 14, 2017, 10:23:40 PM (7 years ago)

Author:

Laurent Fairhead

Message:

Parametrization of drag by copses
Need version 4465 of ORCHIDEE at least

6. Cheruy

Location:

LMDZ5/trunk

Files:

• . (modified) (1 prop)
• libf/phylmd/surf_land_orchidee_noopenmp_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/surf_land_orchidee_noopenmp_mod.F90

@@ -44 +44 @@
        evap, fluxsens, fluxlat, &              
        tsol_rad, tsurf_new, alb1_new, alb2_new, &
-       emis_new, z0_new, z0h_new, qsurf)
+       emis_new, z0_new, z0h_new, qsurf, &
+       veget, lai, height)
 !    
 ! Cette routine sert d'interface entre le modele atmospherique et le 
@@ -108 +109 @@
 
     INCLUDE "YOMCST.h"
-  
+    INCLUDE "dimpft.h"  
 !
 ! Parametres d'entree
@@ -138 +139 @@
     REAL, DIMENSION(klon), INTENT(OUT)        :: alb1_new, alb2_new
     REAL, DIMENSION(klon), INTENT(OUT)        :: emis_new, z0_new, z0h_new
+    REAL, DIMENSION(klon,nvm_lmdz), INTENT(OUT) :: veget ! dummy variables
+    REAL, DIMENSION(klon,nvm_lmdz), INTENT(OUT) :: lai   ! dummy variables
+    REAL, DIMENSION(klon,nvm_lmdz), INTENT(OUT) :: height! dummy variables
 
 ! Local