Changeset 1707 for LMDZ5/branches/testing/libf/phylmd/change_srf_frac_mod.F90

Timestamp:

Jan 11, 2013, 10:19:19 AM (11 years ago)

Author:

Laurent Fairhead

Message:

Version testing basée sur la r1706

---

Testing release based on r1706

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/change_srf_frac_mod.F90 (modified) (3 diffs)

LMDZ5/branches/testing/libf/phylmd/change_srf_frac_mod.F90

@@ -12 +12 @@
 
   SUBROUTINE change_srf_frac(itime, dtime, jour, &
-       pctsrf, alb1, alb2, tsurf, u10m, v10m, pbl_tke)
+       pctsrf, alb1, alb2, tsurf, ustar, u10m, v10m, pbl_tke)
 !
 ! This subroutine is called from physiq.F at each timestep. 
@@ -46 +46 @@
     REAL, DIMENSION(klon,nbsrf), INTENT(INOUT) :: alb2   ! albedo second interval in SW spektrum
     REAL, DIMENSION(klon,nbsrf), INTENT(INOUT) :: tsurf
+    REAL, DIMENSION(klon,nbsrf), INTENT(INOUT) :: ustar
     REAL, DIMENSION(klon,nbsrf), INTENT(INOUT) :: u10m
     REAL, DIMENSION(klon,nbsrf), INTENT(INOUT) :: v10m
@@ -150 +151 @@
 ! 
 !****************************************************************************************
-       CALL pbl_surface_newfrac(itime, pctsrf, pctsrf_old, tsurf, alb1, alb2, u10m, v10m, pbl_tke)
+       CALL pbl_surface_newfrac(itime, pctsrf, pctsrf_old, tsurf, alb1, alb2, ustar, u10m, v10m, pbl_tke)
 
     ELSE