Changeset 1144 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/surf_land_mod.F90

Timestamp:

Apr 8, 2009, 12:47:23 PM (16 years ago)

Author:

jghattas

Message:

Ajoute des variables q2m et t2m comme argument d'entrees dans ORCHIDEE. Pour cela, ajoute de la calcul de ces variables avec stdlevvar avant calcul sur sous-surface.

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/surf_land_mod.F90 (modified) (3 diffs)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/surf_land_mod.F90

@@ -15 +15 @@
        AcoefU, AcoefV, BcoefU, BcoefV, & 
        pref, u1, v1, rugoro, pctsrf, &
+       lwdown_m, q2m, t2m, &
        snow, qsol, agesno, tsoil, &
        z0_new, alb1_new, alb2_new, evap, fluxsens, fluxlat, &
        qsurf, tsurf_new, dflux_s, dflux_l, &
-       flux_u1, flux_v1, & 
-       lwdown_m)
+       flux_u1, flux_v1 ) 
 
     USE dimphy
@@ -58 +58 @@
     REAL, DIMENSION(klon), INTENT(IN)       :: rugoro
     REAL, DIMENSION(klon,nbsrf), INTENT(IN) :: pctsrf
-
     REAL, DIMENSION(klon), INTENT(IN)       :: lwdown_m  ! downwelling longwave radiation at mean surface
                                                          ! corresponds to previous sollwdown
+    REAL, DIMENSION(klon), INTENT(IN)       :: q2m, t2m
 
 ! In/Output variables
@@ -129 +129 @@
             cdragh, AcoefH, AcoefQ, BcoefH, BcoefQ, &
             precip_rain, precip_snow, lwdown_m, swnet, swdown, &
-            pref_tmp, &
+            pref_tmp, q2m, t2m, &
             evap, fluxsens, fluxlat, &              
             tsol_rad, tsurf_new, alb1_new, alb2_new, &