Changeset 1942 for LMDZ5/branches/LMDZ5-DOFOCO/libf/phylmd/surf_land_mod.F90

Timestamp:

Jan 21, 2014, 4:06:36 PM (10 years ago)

Author:

jghattas

Message:

Passing the cosine of solar zenith angle from pbl_surface into orchidee.
Matthew McGrath?(LSCE)

File:

• LMDZ5/branches/LMDZ5-DOFOCO/libf/phylmd/surf_land_mod.F90 (modified) (3 diffs)

LMDZ5/branches/LMDZ5-DOFOCO/libf/phylmd/surf_land_mod.F90

@@ -19 +19 @@
        z0_new, alb1_new, alb2_new, evap, fluxsens, fluxlat, &
        qsurf, tsurf_new, dflux_s, dflux_l, &
-       flux_u1, flux_v1 ) 
+       flux_u1, flux_v1, rmu0) 
 
     USE dimphy
@@ -61 +61 @@
                                                          ! corresponds to previous sollwdown
     REAL, DIMENSION(klon), INTENT(IN)       :: q2m, t2m
+    REAL, DIMENSION(klon), INTENT(IN)       :: rmu0      ! cosine of solar zenith angle
 
 ! In/Output variables
@@ -132 +133 @@
             evap, fluxsens, fluxlat, &              
             tsol_rad, tsurf_new, alb1_new, alb2_new, &
-            emis_new, z0_new, qsurf)       
+            emis_new, z0_new, qsurf, rmu0)       
 
 !