Ignore:
Timestamp:
Oct 26, 2016 11:15:40 AM (5 years ago)
Author:
knoop
Message:

Anelastic approximation implemented

File:
1 edited

Legend:

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

    r2001 r2037  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Anelastic approximation implemented
    2323!
    2424! Former revisions:
     
    109109           ONLY:  p_surf, pt_surf, q_surf, qsws_surf, shf_surf, td_lsa_lpt,    &
    110110                  td_lsa_q, td_sub_lpt, td_sub_q, time_surf, time_vert,        &
     111                  heatflux_input_conversion, waterflux_input_conversion,       &
    111112                  ug_vert, vg_vert, wsubs_vert, zu
    112113
     
    213214       ENDDO
    214215
     216       shf_surf  = shf_surf  * heatflux_input_conversion(nzb)
     217       qsws_surf = qsws_surf * waterflux_input_conversion(nzb)
    215218
    216219       IF ( time_surf(1) > end_time )  THEN
Note: See TracChangeset for help on using the changeset viewer.