Changeset 2952 for LMDZ5/trunk/libf/phylmd/surf_land_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_mod.F90 (modified) (6 diffs)

LMDZ5/trunk/libf/phylmd/surf_land_mod.F90

@@ -1 +1 @@
 !
 MODULE surf_land_mod
-  
+
   IMPLICIT NONE
 
@@ -19 +19 @@
        z0m, z0h, SFRWL, alb_dir_new, alb_dif_new, evap, fluxsens, fluxlat, &   
        qsurf, tsurf_new, dflux_s, dflux_l, &
-       flux_u1, flux_v1 ) 
+       flux_u1, flux_v1 , & 
+       veget,lai,height)
 
     USE dimphy
@@ -33 +34 @@
     USE surf_land_orchidee_noz0h_mod
 #else
-    ! Compilation with default interface
+#if ORCHIDEE_NOFREIN
+    ! Compilation with cpp key ORCHIDEE_NOFREIN
+    USE surf_land_orchidee_nofrein_mod
+#else
     USE surf_land_orchidee_mod
 #endif
 #endif
+#endif
 
     USE surf_land_bucket_mod
@@ -44 +49 @@
     INCLUDE "dimsoil.h"
     INCLUDE "YOMCST.h"
-!albedo SB >>>
     INCLUDE "clesphys.h"
-!albedo SB <<<
+    INCLUDE "dimpft.h"
+
 
 ! Input variables  
@@ -96 +101 @@
     REAL, DIMENSION(klon), INTENT(OUT)       :: dflux_s, dflux_l      
     REAL, DIMENSION(klon), INTENT(OUT)       :: flux_u1, flux_v1  ! flux for U and V at first model level
+    REAL, DIMENSION(klon,nvm_lmdz), INTENT(OUT) :: veget,lai
+    REAL, DIMENSION(klon,nvm_lmdz), INTENT(OUT) :: height
 
 ! Local variables
@@ -150 +157 @@
             evap, fluxsens, fluxlat, &              
             tsol_rad, tsurf_new, alb1_new, alb2_new, &
-            emis_new, z0m, z0h, qsurf)       
+            emis_new, z0m, z0h, qsurf, &
+            veget, lai, height)       
+
 
 !