Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/surf_land_orchidee_noopenmp_mod.F90

    r1138 r1144  
    4040       tq_cdrag, petAcoef, peqAcoef, petBcoef, peqBcoef, &
    4141       precip_rain, precip_snow, lwdown, swnet, swdown, &
    42        ps, &
     42       ps, q2m, t2m, &
    4343       evap, fluxsens, fluxlat, &             
    4444       tsol_rad, tsurf_new, alb1_new, alb2_new, &
     
    121121    REAL, DIMENSION(klon), INTENT(IN)         :: precip_rain, precip_snow
    122122    REAL, DIMENSION(klon), INTENT(IN)         :: lwdown, swnet, swdown, ps
    123     REAL, DIMENSION(klon)                     :: swdown_vrai
     123    REAL, DIMENSION(klon), INTENT(IN)         :: q2m, t2m
    124124
    125125! Parametres de sortie
     
    134134    INTEGER                                   :: ij, jj, igrid, ireal, index
    135135    INTEGER                                   :: error
     136    REAL, DIMENSION(klon)                     :: swdown_vrai
    136137    CHARACTER (len = 20)                      :: modname = 'surf_land_orchidee'
    137138    CHARACTER (len = 80)                      :: abort_message
     
    390391               evap, fluxsens, fluxlat, coastalflow, riverflow, &
    391392               tsol_rad, tsurf_new, qsurf, albedo_out, emis_new, z0_new, &
    392                lon_scat, lat_scat)
     393               lon_scat, lat_scat, q2m, t2m)
    393394
    394395#else         
     
    402403               evap(1:knon), fluxsens(1:knon), fluxlat(1:knon), coastalflow(1:knon), riverflow(1:knon), &
    403404               tsol_rad(1:knon), tsurf_new(1:knon), qsurf(1:knon), albedo_out(1:knon,:), emis_new(1:knon), z0_new(1:knon), &
    404                lon_scat, lat_scat)
     405               lon_scat, lat_scat, q2m, t2m)
    405406#endif
    406407         
     
    426427            evap, fluxsens, fluxlat, coastalflow, riverflow, &
    427428            tsol_rad, tsurf_new, qsurf, albedo_out, emis_new, z0_new, &
    428             lon_scat, lat_scat)
     429            lon_scat, lat_scat, q2m, t2m)
    429430       
    430431#else
     
    438439            evap(1:knon), fluxsens(1:knon), fluxlat(1:knon), coastalflow(1:knon), riverflow(1:knon), &
    439440            tsol_rad(1:knon), tsurf_new(1:knon), qsurf(1:knon), albedo_out(1:knon,:), emis_new(1:knon), z0_new(1:knon), &
    440             lon_scat, lat_scat)
     441            lon_scat, lat_scat, q2m, t2m)
    441442#endif
    442443       
Note: See TracChangeset for help on using the changeset viewer.