Changeset 2772 for palm/trunk/SOURCE/chemistry_model_mod.f90

Timestamp:

Jan 29, 2018 1:10:35 PM (6 years ago)

Author:

suehring

Message:

Enable initialization via inifor without running land-surface model; small bugfix in chemistry model string treatment

File:

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

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Bugfix in string handling
+! 
+! 2768 2018-01-24 15:38:29Z kanani
 ! Shorten lines to maximum length of 132 characters
 ! 
@@ -816 +819 @@
 
             IF(myid == 0)  THEN
-               WRITE(6,'(a,3x,a,3x,a,e12.4)')  '   Species:     ',chem_species(lsp)%name(1:7),' & 
-                                        Initial Value = ',chem_species(lsp)%conc(nzb,nysg,nxlg)
+               WRITE(6,'(a,3x,a,3x,a,e12.4)')  '   Species:     ',chem_species(lsp)%name(1:7), & 
+                                        'Initial Value = ',chem_species(lsp)%conc(nzb,nysg,nxlg)
             ENDIF
          ENDDO
@@ -1241 +1244 @@
        DO lsp=1,nspec
           IF (TRIM(spec_name) == TRIM(chem_species(lsp)%name))   THEN
-             IF(myid == 0 .AND. chem_debug0 )  WRITE(6,*) 'Output of species ',TRIM(variable),'  &
-                                                          ',TRIM(chem_species(lsp)%name)       
+             IF(myid == 0 .AND. chem_debug0 )  WRITE(6,*) 'Output of species ' // TRIM(variable)  //  &
+                                                          TRIM(chem_species(lsp)%name)       
              
              IF (av == 0) THEN