Changeset 1670 for LMDZ5/trunk/libf/phylmd/change_srf_frac_mod.F90

Timestamp:

Oct 17, 2012, 10:42:04 AM (12 years ago)

Author:

idelkadi

Message:

Modifications for inclusion of chimere dust emission module :
u* is passed from the boundary layer parameterization to the physics
main routine (physiq.F) and then to phytrac, traclmdz and change_srf_frac.
The interface of traclmdz is enriched with 4 other variables.
Also u* and the vertically cumulated amount of tracers is added in the
outputs.

Modifications pour l'inclusion du module d'émission de poussière de Chimere :
u* est passé depuis la couche limite vers le programme principal de la
physique (physiq.F) et ensuite à phytrac, traclmdz et change_srf_frac.
L'interface de traclmdz est enrichie avec 4 autres variables.
Les variables u* et les cumuls verticaux des traceurs sont ajoutés
dans les sorties.

File:

• LMDZ5/trunk/libf/phylmd/change_srf_frac_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/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