Changeset 1670 for LMDZ5/trunk/libf/phylmd/phytrac.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/phytrac.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/phytrac.F90

@@ -8 +8 @@
      cdragh,    coefh,    fm_therm, entr_therm,&
      yu1,       yv1,      ftsol,    pctsrf,    &
+     ustar,     u10m,      v10m,               &
      xlat,      frac_impa,frac_nucl,xlon,      &
      presnivs,  pphis,    pphi,     albsol,    &
@@ -119 +120 @@
 !--------------
 !
-  REAL,DIMENSION(klon),INTENT(IN)      :: cdragh ! coeff drag pour T et Q
-  REAL,DIMENSION(klon,klev),INTENT(IN) :: coefh  ! coeff melange CL (m**2/s)
-  REAL,DIMENSION(klon),INTENT(IN)      :: yu1    ! vents au premier niveau
-  REAL,DIMENSION(klon),INTENT(IN)      :: yv1    ! vents au premier niveau
+  REAL,DIMENSION(klon),INTENT(IN)     :: cdragh ! coeff drag pour T et Q
+  REAL,DIMENSION(klon,klev),INTENT(IN):: coefh  ! coeff melange CL (m**2/s)
+  REAL,DIMENSION(klon),INTENT(IN)     :: ustar,u10m,v10m ! u* & vent a 10m (m/s)
+  REAL,DIMENSION(klon),INTENT(IN)     :: yu1    ! vents au premier niveau
+  REAL,DIMENSION(klon),INTENT(IN)     :: yv1    ! vents au premier niveau
 !
 !Lessivage:
@@ -244 +246 @@
      !    -- Traitement des traceurs avec traclmdz
      CALL traclmdz(nstep, julien, gmtime, pdtphys, t_seri, paprs, pplay, &
-          cdragh,  coefh, yu1, yv1, ftsol, pctsrf, xlat, xlon, couchelimite, &
-          sh, tr_seri, source, solsym, d_tr_cl, zmasse)
+          cdragh,  coefh, yu1, yv1, ftsol, pctsrf, xlat, xlon,couchelimite,sh,&
+          rh, pphi, ustar, u10m, v10m, &
+          tr_seri, source, solsym, d_tr_cl, zmasse)
   CASE('inca')
      !    -- CHIMIE INCA  config_inca = aero or chem --