Changeset 4601 for palm/trunk/SOURCE/surface_data_output_mod.f90

Timestamp:

Jul 14, 2020 12:06:09 PM (4 years ago)

Author:

suehring

Message:

Chemistry: Bugfix in variable name separation in profile-output initialization; Bugfix in counting the number of chemistry profiles; Surface-data output: Minor simplification in name creation for IO variables in restart files; init_grid: minor formatting adjustments

File:

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

palm/trunk/SOURCE/surface_data_output_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Minor simplification in name creation for IO variables in restart files.
+!
+! 4600 2020-07-13 18:50:12Z suehring
 ! - Change: adjustmens for mpi-io - surface data is transformed to a 2D-based surface array
 !   before writing.
@@ -4701 +4704 @@
 
     DO  nv = 1, dosurf_no(1)
-       IF ( nv < 10                     )  WRITE( dum, '(I1)') nv
-       IF ( nv < 100   .AND.  nv >= 10  )  WRITE( dum, '(I2)') nv
-       IF ( nv < 1000  .AND.  nv >= 100 )  WRITE( dum, '(I3)') nv
+       WRITE( dum, '(I3.3)' )  nv
 
        CALL rd_mpi_io_check_array( 'surfaces%var_av' // TRIM( dum ), found = array_found )
@@ -4954 +4955 @@
              ENDDO
 
-             IF ( nv < 10                     )  WRITE( dum, '(I1)') nv
-             IF ( nv < 100   .AND.  nv >= 10  )  WRITE( dum, '(I2)') nv
-             IF ( nv < 1000  .AND.  nv >= 100 )  WRITE( dum, '(I3)') nv
+             WRITE( dum, '(I3.3)' )  nv
 
              CALL wrd_mpi_io_surface( 'surfaces%var_av' // TRIM( dum ), surf_out )