Changeset 888 for LMDZ4/trunk/libf/phylmd/surf_land_orchidee_mod.F90

Timestamp:

Feb 4, 2008, 5:24:28 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Modifications sur l'albedo JG
LF

File:

• LMDZ4/trunk/libf/phylmd/surf_land_orchidee_mod.F90 (modified) (4 diffs)

LMDZ4/trunk/libf/phylmd/surf_land_orchidee_mod.F90

@@ -37 +37 @@
        ps, &
        evap, fluxsens, fluxlat, &              
-       tsol_rad, tsurf_new, alb_new, alblw, &
+       tsol_rad, tsurf_new, alb1_new, alb2_new, &
        emis_new, z0_new, qsurf)
 !    
@@ -84 +84 @@
 !   tsol_rad     
 !   tsurf_new    temperature au sol
-!   alb_new      albedo
+!   alb1_new     albedo in visible SW interval
+!   alb2_new     albedo in near IR interval
 !   emis_new     emissivite
 !   z0_new       surface roughness
@@ -120 +121 @@
 !****************************************************************************************
     REAL, DIMENSION(klon), INTENT(OUT)        :: evap, fluxsens, fluxlat, qsurf
-    REAL, DIMENSION(klon), INTENT(OUT)        :: tsol_rad, tsurf_new, alb_new, alblw
+    REAL, DIMENSION(klon), INTENT(OUT)        :: tsol_rad, tsurf_new
+    REAL, DIMENSION(klon), INTENT(OUT)        :: alb1_new, alb2_new
     REAL, DIMENSION(klon), INTENT(OUT)        :: emis_new, z0_new
 
@@ -442 +444 @@
     ENDIF
 
-    alb_new(1:knon) = albedo_out(1:knon,1) 
-    alblw(1:knon) = albedo_out(1:knon,2)
+    alb1_new(1:knon) = albedo_out(1:knon,1) 
+    alb2_new(1:knon) = albedo_out(1:knon,2)
 
 ! Convention orchidee: positif vers le haut