Changeset 1942 for LMDZ5/branches/LMDZ5-DOFOCO/libf/phylmd/surf_land_orchidee_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/surf_land_orchidee_mod.F90 (modified) (5 diffs)

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

@@ -39 +39 @@
        evap, fluxsens, fluxlat, &              
        tsol_rad, tsurf_new, alb1_new, alb2_new, &
-       emis_new, z0_new, qsurf)
+       emis_new, z0_new, qsurf, rmu0)
 
     USE mod_surf_para
@@ -124 +124 @@
     REAL, DIMENSION(klon), INTENT(IN)         :: lwdown, swnet, swdown, ps
     REAL, DIMENSION(klon), INTENT(IN)         :: q2m, t2m
+    REAL, DIMENSION(klon), INTENT(IN)         :: rmu0
 
 ! Parametres de sortie
@@ -198 +199 @@
     INTEGER :: orch_omp_rank
     INTEGER :: orch_omp_size
+
+    REAL, DIMENSION(knon)                     :: sinang
+
 !
 ! Fin definition
@@ -402 +406 @@
                evap, fluxsens, fluxlat, coastalflow, riverflow, &
                tsol_rad, tsurf_new, qsurf, albedo_out, emis_new, z0_new, &
-               lon_scat, lat_scat, q2m, t2m)
+               lon_scat, lat_scat, q2m, t2m, sinang=rmu0)
 #endif         
        ENDIF
@@ -426 +430 @@
             evap(1:knon), fluxsens(1:knon), fluxlat(1:knon), coastalflow(1:knon), riverflow(1:knon), &
             tsol_rad(1:knon), tsurf_new(1:knon), qsurf(1:knon), albedo_out(1:knon,:), emis_new(1:knon), z0_new(1:knon), &
-            lon_scat, lat_scat, q2m, t2m)
+            lon_scat, lat_scat, q2m, t2m, sinang=rmu0(1:knon))
 #endif       
     ENDIF