Ignore:
Timestamp:
Mar 10, 2016 11:01:04 AM (8 years ago)
Author:
maronga
Message:

added support for water and paved surfaced in land surface model / minor changes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/modules.f90

    r1787 r1788  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Added roughness length for moisture (z0q)
    2222!
    2323! Former revisions:
     
    384384          saswsb, saswst, shf, tnudge, td_lsa_lpt, td_lsa_q, td_sub_lpt,       &
    385385          td_sub_q, total_2d_a, total_2d_o, ts, tswst, ug_vert, unudge, us,    &
    386           usws, uswst, vnudge, vg_vert, vsws, vswst, wnudge, wsubs_vert, z0, z0h
     386          usws, uswst, vnudge, vg_vert, vsws, vswst, wnudge, wsubs_vert,       &
     387          z0,                                                                  & !< roughness length for momentum
     388          z0h,                                                                 & !< roughness length for heat
     389          z0q                                                                    !< roughness length for moisture
    387390
    388391    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::                                 &
     
    432435    USE kinds
    433436
    434     REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  lwp_av,                & !> Avg. liquid water path
    435                                               precipitation_rate_av, & !> Avg. of precipitation rate
    436                                               ol_av,                 & !> Avg. of Obukhov length
    437                                               qsws_av,               & !> Avg. of surface moisture flux
    438                                               shf_av,                & !> Avg. of surface heat flux
    439                                               ts_av,                 & !> Avg. of characteristic temperature scale
    440                                               us_av,                 & !> Avg. of friction velocity
    441                                               z0_av,                 & !> Avg. of roughness length for momentum
    442                                               z0h_av                   !> Avg. of roughness length for heat and moisture
     437    REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  lwp_av,                & !< Avg. liquid water path
     438                                              precipitation_rate_av, & !< Avg. of precipitation rate
     439                                              ol_av,                 & !< Avg. of Obukhov length
     440                                              qsws_av,               & !< Avg. of surface moisture flux
     441                                              shf_av,                & !< Avg. of surface heat flux
     442                                              ts_av,                 & !< Avg. of characteristic temperature scale
     443                                              us_av,                 & !< Avg. of friction velocity
     444                                              z0_av,                 & !< Avg. of roughness length for momentum
     445                                              z0h_av,                & !< Avg. of roughness length for heat
     446                                              z0q_av                   !< Avg. of roughness length for moisture
    443447
    444448    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE, TARGET ::                         &
Note: See TracChangeset for help on using the changeset viewer.