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

Timestamp:

May 19, 2020 3:45:12 PM (5 years ago)

Author:

raasch

Message:

files re-formatted to follow the PALM coding standard, redundant if statement removed

File:

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

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! redundant if statement removed
+! 
+! 4535 2020-05-15 12:07:23Z raasch
 ! bugfix for restart data format query
 ! 
@@ -3062 +3065 @@
 
 
-    CHARACTER (LEN=20) :: spc_name_av !<   
-
     INTEGER(iwp) ::  lsp             !<
     INTEGER(iwp) ::  k               !< 
@@ -3087 +3088 @@
 
 
-    IF ( ALLOCATED( chem_species ) )  THEN
-
-       DO  lsp = 1, nspec
-
-          !< for time-averaged chemical conc.
-          spc_name_av  =  TRIM( chem_species(lsp)%name )//'_av'
-
-          IF ( restart_string(1:length) == TRIM( chem_species(lsp)%name) )    &
-             THEN
-             !< read data into tmp_3d
-             IF ( k == 1 )  READ ( 13 )  tmp_3d  
-             !< fill ..%conc in the restart run    
-             chem_species(lsp)%conc(:,nysc-nbgp:nync+nbgp,                    &
-                  nxlc-nbgp:nxrc+nbgp) =                  & 
-                  tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
-             found = .TRUE.
-          ELSEIF (restart_string(1:length) == spc_name_av )  THEN
-             IF ( k == 1 )  READ ( 13 )  tmp_3d
-             chem_species(lsp)%conc_av(:,nysc-nbgp:nync+nbgp,                 &
-                  nxlc-nbgp:nxrc+nbgp) =               &
-                  tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
-             found = .TRUE.
-          ENDIF
-
-       ENDDO
-
-    ENDIF
+    DO  lsp = 1, nspec
+
+       IF ( restart_string(1:length) == TRIM( chem_species(lsp)%name) )  THEN
+
+          IF ( k == 1 )  READ ( 13 )  tmp_3d
+          chem_species(lsp)%conc(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) =                      &
+                                                   tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
+          found = .TRUE.
+
+       ELSEIF (restart_string(1:length) == TRIM( chem_species(lsp)%name ) // '_av' )  THEN
+
+          IF ( k == 1 )  READ ( 13 )  tmp_3d
+          chem_species(lsp)%conc_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) =                   &
+                                                   tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
+          found = .TRUE.
+
+       ENDIF
+
+    ENDDO
 
 
@@ -3128 +3121 @@
     IMPLICIT NONE
 
-    INTEGER(iwp) ::  lsp !<
-
-    IF ( ALLOCATED( chem_species ) )  THEN
-
-       DO  lsp = 1, nspec
-
-          CALL rrd_mpi_io( TRIM( chem_species(lsp)%name ), chem_species(lsp)%conc )
-          CALL rrd_mpi_io( TRIM( chem_species(lsp)%name )//'_av', chem_species(lsp)%conc_av )
-
-       ENDDO
-
-    ENDIF
+    INTEGER(iwp) ::  lsp  !<
+
+
+    DO  lsp = 1, nspec
+
+       CALL rrd_mpi_io( TRIM( chem_species(lsp)%name ), chem_species(lsp)%conc )
+       CALL rrd_mpi_io( TRIM( chem_species(lsp)%name )//'_av', chem_species(lsp)%conc_av )
+
+    ENDDO
 
  END SUBROUTINE chem_rrd_local_mpi