Changeset 3738

Timestamp:

Feb 12, 2019 5:00:45 PM (6 years ago)

Author:

suehring

Message:

clean-up debug prints

File:

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

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Clean-up debug prints
+! 
+! 3737 2019-02-12 16:57:06Z suehring
 ! Enable mesoscale offline nesting for chemistry variables as well as 
 ! initialization of chemistry via dynamic input file.
@@ -1412 +1415 @@
 !                                                           TRIM(chem_species(lsp)%name)       
             IF (av == 0) THEN
-            write(9,*) "before", TRIM(chem_species(lsp)%name), fill_value
-            flush(9)
                DO  i = nxl, nxr
                   DO  j = nys, nyn
                      DO  k = nzb_do, nzt_do
-!                      write(9,*) k, j, i
-!                      flush(9)
-!                      write(9) chem_species(lsp)%conc(k,j,i)
-!                      flush(9)
-!                      write(9) "fill", fill_value
-!                      flush(9)
                          local_pf(i,j,k) = MERGE(                             &
                                              chem_species(lsp)%conc(k,j,i),   &