Changeset 4881 for palm/trunk/SOURCE/surface_mod.f90

Timestamp:

Feb 19, 2021 10:05:08 PM (3 years ago)

Author:

forkel

Message:

removed unused parameters and write statements in chemistry

File:

• palm/trunk/SOURCE/surface_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/surface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! removed constant_top_csflux option
+!
+!
+! 4877 2021-02-17 16:17:35Z suehring
 ! bugfix in init_single_surface_properties for vertical surfaces
 !
@@ -2928 +2932 @@
     IF ( passive_scalar .AND. constant_top_scalarflux )  surf%ssws(num_h) = top_scalarflux *       &
                                                                             rho_air_zw(nzt+1)
-!
-!-- Prescribe top chemical species' flux
-    DO  lsp = 1, nvar
-       IF ( air_chemistry  .AND.  constant_top_csflux(lsp) )  THEN
-          surf%cssws(lsp,num_h) = top_csflux(lsp) * rho_air_zw(nzt+1)
-       ENDIF
-    ENDDO
 !
 !-- Prescribe top salinity flux