Changeset 2934 for LMDZ5/branches/LMDZ_tree_FC/libf/phylmd/surf_land_orchidee_noopenmp_mod.F90

Timestamp:

Jul 7, 2017, 10:38:35 AM (7 years ago)

Author:

jghattas

Message:

Amelioration/correction pour retro-compatiblite avec different version de ORHCIDEE. Ajoute de test de coherence.

File:

• LMDZ5/branches/LMDZ_tree_FC/libf/phylmd/surf_land_orchidee_noopenmp_mod.F90 (modified) (3 diffs)

LMDZ5/branches/LMDZ_tree_FC/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