Changeset 1144 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/surf_land_orchidee_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_orchidee_mod.F90 (modified) (5 diffs)

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

@@ -36 +36 @@
        tq_cdrag, petAcoef, peqAcoef, petBcoef, peqBcoef, &
        precip_rain, precip_snow, lwdown, swnet, swdown, &
-       ps, &
+       ps, q2m, t2m, &
        evap, fluxsens, fluxlat, &              
        tsol_rad, tsurf_new, alb1_new, alb2_new, &
@@ -120 +120 @@
     REAL, DIMENSION(klon), INTENT(IN)         :: precip_rain, precip_snow
     REAL, DIMENSION(klon), INTENT(IN)         :: lwdown, swnet, swdown, ps
-    REAL, DIMENSION(klon)                     :: swdown_vrai
+    REAL, DIMENSION(klon), INTENT(IN)         :: q2m, t2m
 
 ! Parametres de sortie
@@ -133 +133 @@
     INTEGER                                   :: ij, jj, igrid, ireal, index
     INTEGER                                   :: error
+    REAL, DIMENSION(klon)                     :: swdown_vrai
     CHARACTER (len = 20)                      :: modname = 'surf_land_orchidee'
     CHARACTER (len = 80)                      :: abort_message
@@ -391 +392 @@
                evap, fluxsens, fluxlat, coastalflow, riverflow, &
                tsol_rad, tsurf_new, qsurf, albedo_out, emis_new, z0_new, &
-               lon_scat, lat_scat)
+               lon_scat, lat_scat, q2m, t2m)
 #endif         
        ENDIF
@@ -415 +416 @@
             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)
+            lon_scat, lat_scat, q2m, t2m)
 #endif       
     ENDIF