Ignore:
Timestamp:
Jan 21, 2014, 4:06:36 PM (11 years ago)
Author:
jghattas
Message:

Passing the cosine of solar zenith angle from pbl_surface into orchidee.
Matthew McGrath?(LSCE)

Location:
LMDZ5/branches/LMDZ5-DOFOCO/libf/phylmd
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/branches/LMDZ5-DOFOCO/libf/phylmd/pbl_surface_mod.F90

    r1787 r1942  
    443443    REAL, DIMENSION(klon,klev+1)       :: ytke
    444444    REAL, DIMENSION(klon,nsoilmx)      :: ytsoil
     445    REAL, DIMENSION(klon)              :: yrmu0
    445446    CHARACTER(len=80)                  :: abort_message
    446447    CHARACTER(len=20)                  :: modname = 'pbl_surface'
     
    554555    d_t_diss= 0.0 ;d_u = 0.0     ; d_v = 0.0        ; yqsol = 0.0   
    555556    ytherm = 0.0  ; ytke=0.
     557    yrmu0 = 0.0
    556558   
    557559    tke(:,:,is_ave)=0.
     
    710712          ypaprs(j,klev+1) = paprs(i,klev+1)
    711713          ywindsp(j) = SQRT(u10m(i,nsrf)**2 + v10m(i,nsrf)**2 )
     714          yrmu0(j)=rmu0(i)
    712715       END DO
    713716
     
    856859               yz0_new, yalb1_new, yalb2_new, yevap, yfluxsens, yfluxlat, &
    857860               yqsurf, ytsurf_new, y_dflux_t, y_dflux_q, &
    858                y_flux_u1, y_flux_v1 )
     861               y_flux_u1, y_flux_v1, yrmu0 )
    859862               
    860863     
  • LMDZ5/branches/LMDZ5-DOFOCO/libf/phylmd/surf_land_mod.F90

    r1785 r1942  
    1919       z0_new, alb1_new, alb2_new, evap, fluxsens, fluxlat, &
    2020       qsurf, tsurf_new, dflux_s, dflux_l, &
    21        flux_u1, flux_v1 )
     21       flux_u1, flux_v1, rmu0)
    2222
    2323    USE dimphy
     
    6161                                                         ! corresponds to previous sollwdown
    6262    REAL, DIMENSION(klon), INTENT(IN)       :: q2m, t2m
     63    REAL, DIMENSION(klon), INTENT(IN)       :: rmu0      ! cosine of solar zenith angle
    6364
    6465! In/Output variables
     
    132133            evap, fluxsens, fluxlat, &             
    133134            tsol_rad, tsurf_new, alb1_new, alb2_new, &
    134             emis_new, z0_new, qsurf)       
     135            emis_new, z0_new, qsurf, rmu0)       
    135136
    136137
  • LMDZ5/branches/LMDZ5-DOFOCO/libf/phylmd/surf_land_orchidee_mod.F90

    r1941 r1942  
    3939       evap, fluxsens, fluxlat, &             
    4040       tsol_rad, tsurf_new, alb1_new, alb2_new, &
    41        emis_new, z0_new, qsurf)
     41       emis_new, z0_new, qsurf, rmu0)
    4242
    4343    USE mod_surf_para
     
    124124    REAL, DIMENSION(klon), INTENT(IN)         :: lwdown, swnet, swdown, ps
    125125    REAL, DIMENSION(klon), INTENT(IN)         :: q2m, t2m
     126    REAL, DIMENSION(klon), INTENT(IN)         :: rmu0
    126127
    127128! Parametres de sortie
     
    198199    INTEGER :: orch_omp_rank
    199200    INTEGER :: orch_omp_size
     201
     202    REAL, DIMENSION(knon)                     :: sinang
     203
    200204!
    201205! Fin definition
     
    402406               evap, fluxsens, fluxlat, coastalflow, riverflow, &
    403407               tsol_rad, tsurf_new, qsurf, albedo_out, emis_new, z0_new, &
    404                lon_scat, lat_scat, q2m, t2m)
     408               lon_scat, lat_scat, q2m, t2m, sinang=rmu0)
    405409#endif         
    406410       ENDIF
     
    426430            evap(1:knon), fluxsens(1:knon), fluxlat(1:knon), coastalflow(1:knon), riverflow(1:knon), &
    427431            tsol_rad(1:knon), tsurf_new(1:knon), qsurf(1:knon), albedo_out(1:knon,:), emis_new(1:knon), z0_new(1:knon), &
    428             lon_scat, lat_scat, q2m, t2m)
     432            lon_scat, lat_scat, q2m, t2m, sinang=rmu0(1:knon))
    429433#endif       
    430434    ENDIF
Note: See TracChangeset for help on using the changeset viewer.