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

Timestamp:

Jan 21, 2014, 4:06:36 PM (11 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/pbl_surface_mod.F90 (modified) (4 diffs)

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

@@ -443 +443 @@
     REAL, DIMENSION(klon,klev+1)       :: ytke
     REAL, DIMENSION(klon,nsoilmx)      :: ytsoil
+    REAL, DIMENSION(klon)              :: yrmu0
     CHARACTER(len=80)                  :: abort_message
     CHARACTER(len=20)                  :: modname = 'pbl_surface'
@@ -554 +555 @@
     d_t_diss= 0.0 ;d_u = 0.0     ; d_v = 0.0        ; yqsol = 0.0    
     ytherm = 0.0  ; ytke=0.
+    yrmu0 = 0.0
     
     tke(:,:,is_ave)=0.
@@ -710 +712 @@
           ypaprs(j,klev+1) = paprs(i,klev+1)
           ywindsp(j) = SQRT(u10m(i,nsrf)**2 + v10m(i,nsrf)**2 )
+          yrmu0(j)=rmu0(i)
        END DO
 
@@ -856 +859 @@
                yz0_new, yalb1_new, yalb2_new, yevap, yfluxsens, yfluxlat, &
                yqsurf, ytsurf_new, y_dflux_t, y_dflux_q, &
-               y_flux_u1, y_flux_v1 )
+               y_flux_u1, y_flux_v1, yrmu0 )