Changeset 2037 for palm/trunk/SOURCE/ls_forcing_mod.f90

Timestamp:

Oct 26, 2016 11:15:40 AM (8 years ago)

Author:

knoop

Message:

Anelastic approximation implemented

File:

• palm/trunk/SOURCE/ls_forcing_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/ls_forcing_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Anelastic approximation implemented
 ! 
 ! Former revisions:
@@ -109 +109 @@
            ONLY:  p_surf, pt_surf, q_surf, qsws_surf, shf_surf, td_lsa_lpt,    &
                   td_lsa_q, td_sub_lpt, td_sub_q, time_surf, time_vert,        &
+                  heatflux_input_conversion, waterflux_input_conversion,       &
                   ug_vert, vg_vert, wsubs_vert, zu
 
@@ -213 +214 @@
        ENDDO
 
+       shf_surf  = shf_surf  * heatflux_input_conversion(nzb)
+       qsws_surf = qsws_surf * waterflux_input_conversion(nzb)
 
        IF ( time_surf(1) > end_time )  THEN