Changeset 3597 for palm/trunk/SOURCE/surface_mod.f90
 Timestamp:
 Dec 4, 2018 8:40:18 AM (3 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/surface_mod.f90
r3593 r3597 26 26 !  27 27 ! $Id$ 28 ! Added pt_2m and renamed t_surf_10cm to pt_10cm. Removed some _eb variables as 29 ! they are no longer used. 30 ! 31 ! 3593 20181203 13:51:13Z kanani 28 32 ! Replace degree symbol by 'degrees' 29 33 ! … … 409 413 REAL(wp), DIMENSION(:), ALLOCATABLE :: rad_sw_ref !< incoming shortwave radiation from reflection 410 414 REAL(wp), DIMENSION(:), ALLOCATABLE :: rad_sw_res !< resedual shortwave radiation in surface after last reflection step 411 412 413 415 414 416 REAL(wp), DIMENSION(:), ALLOCATABLE :: c_liq !< liquid water coverage (of vegetated area) … … 422 424 REAL(wp), DIMENSION(:), ALLOCATABLE :: qsws_eb !< 423 425 REAL(wp), DIMENSION(:), ALLOCATABLE :: qsws_liq !< surface flux of latent heat (liquid water portion) 424 REAL(wp), DIMENSION(:), ALLOCATABLE :: qsws_liq_eb !< surface flux of latent heat (liquid water portion)425 426 REAL(wp), DIMENSION(:), ALLOCATABLE :: qsws_soil !< surface flux of latent heat (soil portion) 426 REAL(wp), DIMENSION(:), ALLOCATABLE :: qsws_soil_eb !< surface flux of latent heat (soil portion)427 427 REAL(wp), DIMENSION(:), ALLOCATABLE :: qsws_veg !< surface flux of latent heat (vegetation portion) 428 REAL(wp), DIMENSION(:), ALLOCATABLE :: qsws_veg_eb !< surface flux of latent heat (vegetation portion)429 428 430 429 REAL(wp), DIMENSION(:), ALLOCATABLE :: r_a !< aerodynamic resistance … … 436 435 REAL(wp), DIMENSION(:), ALLOCATABLE :: r_s !< total surface resistance (combination of r_soil and r_canopy) 437 436 REAL(wp), DIMENSION(:), ALLOCATABLE :: r_canopy_min !< minimum canopy (stomatal) resistance 438 437 438 REAL(wp), DIMENSION(:), ALLOCATABLE :: pt_10cm !< near surface air potential temperature at distance 10 cm from the surface (K) 439 REAL(wp), DIMENSION(:), ALLOCATABLE :: pt_2m !< near surface air potential temperature at distance 2 m from the surface (K) 440 439 441 REAL(wp), DIMENSION(:,:), ALLOCATABLE :: alpha_vg !< coef. of Van Genuchten 440 442 REAL(wp), DIMENSION(:,:), ALLOCATABLE :: lambda_w !< hydraulic diffusivity of soil (?) … … 550 552 REAL(wp), DIMENSION(:), ALLOCATABLE :: wshf_eb_av !< average of wshf_eb 551 553 REAL(wp), DIMENSION(:), ALLOCATABLE :: qsws_eb_av !< average of qsws_eb 552 REAL(wp), DIMENSION(:), ALLOCATABLE :: qsws_veg_ eb_av !< average of qsws_veg_eb553 REAL(wp), DIMENSION(:), ALLOCATABLE :: qsws_liq_ eb_av !< average of qsws_liq_eb554 REAL(wp), DIMENSION(:), ALLOCATABLE :: qsws_veg_av !< average of qsws_veg_eb 555 REAL(wp), DIMENSION(:), ALLOCATABLE :: qsws_liq_av !< average of qsws_liq_eb 554 556 REAL(wp), DIMENSION(:), ALLOCATABLE :: t_surf_wall_av !< average of wall surface temperature (K) 555 557 REAL(wp), DIMENSION(:), ALLOCATABLE :: t_surf_av !< average of wall surface temperature (K) 556 558 REAL(wp), DIMENSION(:), ALLOCATABLE :: t_surf_window_av !< average of window surface temperature (K) 557 559 REAL(wp), DIMENSION(:), ALLOCATABLE :: t_surf_green_av !< average of green wall surface temperature (K) 558 REAL(wp), DIMENSION(:), ALLOCATABLE :: t_surf_10cm_av !< average of the near surface temperature (K) 559 560 561 REAL(wp), DIMENSION(:), ALLOCATABLE :: pt_10cm_av !< average of theta_10cm (K) 562 560 563 REAL(wp), DIMENSION(:,:), ALLOCATABLE :: t_wall_av !< Average of t_wall 561 564 REAL(wp), DIMENSION(:,:), ALLOCATABLE :: t_window_av !< Average of t_window … … 1270 1273 ALLOCATE ( surfaces%shf(1:surfaces%ns) ) 1271 1274 ! 1272 ! surface temperature1275 ! Surface temperature 1273 1276 ALLOCATE ( surfaces%pt_surface(1:surfaces%ns) ) 1274 1277 ! … … 1280 1283 ALLOCATE ( surfaces%vpt_surface(1:surfaces%ns) ) 1281 1284 ENDIF 1285 1282 1286 ! 1283 1287 ! Characteristic scalar and surface flux of scalar
Note: See TracChangeset
for help on using the changeset viewer.