Changeset 3738 for palm


Ignore:
Timestamp:
Feb 12, 2019 5:00:45 PM (5 years ago)
Author:
suehring
Message:

clean-up debug prints

File:
1 edited

Legend:

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

    r3737 r3738  
    2727! -----------------
    2828! $Id$
     29! Clean-up debug prints
     30!
     31! 3737 2019-02-12 16:57:06Z suehring
    2932! Enable mesoscale offline nesting for chemistry variables as well as
    3033! initialization of chemistry via dynamic input file.
     
    14121415!                                                           TRIM(chem_species(lsp)%name)       
    14131416            IF (av == 0) THEN
    1414             write(9,*) "before", TRIM(chem_species(lsp)%name), fill_value
    1415             flush(9)
    14161417               DO  i = nxl, nxr
    14171418                  DO  j = nys, nyn
    14181419                     DO  k = nzb_do, nzt_do
    1419 !                      write(9,*) k, j, i
    1420 !                      flush(9)
    1421 !                      write(9) chem_species(lsp)%conc(k,j,i)
    1422 !                      flush(9)
    1423 !                      write(9) "fill", fill_value
    1424 !                      flush(9)
    14251420                         local_pf(i,j,k) = MERGE(                             &
    14261421                                             chem_species(lsp)%conc(k,j,i),   &
Note: See TracChangeset for help on using the changeset viewer.