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

Timestamp:

Apr 8, 2009, 12:47:23 PM (15 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_noopenmp_mod.F90 (modified) (7 diffs)

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

@@ -40 +40 @@
        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, &
@@ -121 +121 @@
     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
@@ -134 +134 @@
     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
@@ -390 +391 @@
                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)
 
 #else          
@@ -402 +403 @@
                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
           
@@ -426 +427 @@
             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)
        
 #else
@@ -438 +439 @@
             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