Changeset 2952 for LMDZ5/trunk/libf/phylmd/surf_land_orchidee_noz0h_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_noz0h_mod.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/phylmd/surf_land_orchidee_noz0h_mod.F90

@@ -46 +46 @@
        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)
 
     USE mod_surf_para
@@ -111 +112 @@
 !
     INCLUDE "YOMCST.h"
-  
+    INCLUDE "dimpft.h"  
 !
 ! Parametres d'entree
@@ -141 +142 @@
     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
@@ -213 +217 @@
 
     IF (check) WRITE(lunout,*)'Entree ', modname
+
+    IF (ifl_pbltree == 1) THEN
+       abort_message='Pb de coherence: cette interface vers ORCHIDEE ne peut pas etre utilise avec ifl_pbltree'
+       CALL abort_physic(modname,abort_message,1)
+    END IF
   
 ! Initialisation